funfunfun25
ウィンドウのペインを分けるですよ
HTMLなんかのフレームを分けるみたくウィンドウのペインを分けるってのに挑戦。
ウィンドウのペインを2つに分けたりしちゃったりして、
それぞれに別の機能をもたせられたりするとた〜のしいじゃん。
■クラスを新たに作って、メソッドも追加しちゃいます。
クラスを新たに作ります。
--------------------------------------------
SystemWindow subclass: #TestMorph15
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'MyMorph'
--------------------------------------------
アクセプト。
Alt + s ( Cmd + s )
メソッドも追加しちゃいましょう。
「PastUpMorph」を2つつくって各ペインのサブモーフにします。
--------------------------------------------
initialize
| t1 t2 |
super initialize.
t1 _ PasteUpMorph new extent: self width @ self height.
t2 _ PasteUpMorph new extent: self width @ self height.
self
addMorph: t1
frame: (0 @ 0 corner: 1 @ 0.7);
addMorph: t2
frame: (0 @ 0.7 corner: 1 @ 1).
self setLabel: 'Test15'.
self
setWindowColor: (Color
r: 0.5
g: 0.5
b: 0.8)
--------------------------------------------
ここで(0@0 corner 1@0.7)ってのが上から70%のところまでってことで
(0@0.7 corner 1@1)ってのは70%のとこから下までってことやね。
アクセプト。
Alt + s ( Cmd + s )
■インスタンスをだしてみる
確認の為Workspaceに下記のコードを書いてドゥーイット。
--------------------------------------------
TestMorph15 new openInWorld
--------------------------------------------
Alt + d ( Cmd + d )
ってなわけでうえが70%で下が30%のペインで分かれたウィンドウの
出来上がりってわけさ。
■3つのペインに分ける。
こんどは上のペインも縦に2つに分けて3つのペインにしまする。
クラスを新たに作ります。
--------------------------------------------
SystemWindow subclass: #TestMorph16
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'MyMorph'
--------------------------------------------
アクセプト。
Alt + s ( Cmd + s )
メソッドも追加しちゃいましょう。
--------------------------------------------
initialize
| t1 t2 t3 |
super initialize.
t1 _ PasteUpMorph new extent: self width @ self height.
t2 _ PasteUpMorph new extent: self width @ self height.
t3 _ ScrollableField new extent: self width @ self height.
self
addMorph: t1
frame: (0 @ 0 corner: 0.5 @ 0.3);
addMorph: t2
frame: (0.5 @ 0 corner: 1 @ 0.3);
addMorph: t3
frame: (0 @ 0.3 corner: 1 @ 1).
self setLabel: 'Test16'.
self
setWindowColor: (Color
r: 0.5
g: 0.5
b: 0.8).
t1
color: (Color
r: 1
g: 1
b: 1).
t2
color: (Color
r: 0.8
g: 0.8
b: 0.8)
--------------------------------------------
上下のペインは3対7の割合で、上の左右のペインは5対5の割合で分かれてるのね。
上の2つのペインには「PastUpMorph」で下のペインは「ScrollableField」に
してみますた。<「みますた」ってあ〜た・・・・
アクセプト。
Alt + s ( Cmd + s )
インスタンスをだしてみましょうか。
--------------------------------------------
TestMorph16 new openInWorld
--------------------------------------------
Alt + d ( Cmd + d )
今回はじみ〜だけど、色分けしてみますた。
上の2つのペインに別のモーフをぶっこんで、
下のペインにはテキストを入力してみますた。<しつこい。
▲PREV ------ ● TOP ● ------ NEXT▼
■ MEMO ■
Links to this Page
- FunFunFunMorphic last edited on 25 March 2004 at 5:25:44 am by tk0005-202x210x196x109.ap-TK.usen.ad.jp
- funfunfun24 last edited on 18 June 2007 at 5:35:14 am by localhost.localdomain
- funfunfun26 last edited on 18 June 2007 at 5:48:01 am by localhost.localdomain