View this PageEdit this PageAttachments to this PageHistory of this PageHomeRecent ChangesSearch the SwikiHelp Guide

funfunfun25

▲PREV　------　●　TOP　●　------　NEXT▼Uploaded Image: fmrph.jpg

ウィンドウのペインを分けるですよ

HTMLなんかのフレームを分けるみたくウィンドウのペインを分けるってのに挑戦。
ウィンドウのペインを２つに分けたりしちゃったりして、
それぞれに別の機能をもたせられたりするとた〜のしいじゃん。

■クラスを新たに作って、メソッドも追加しちゃいます。

クラスを新たに作ります。
--------------------------------------------
SystemWindow subclass: #TestMorph15
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'MyMorph'
--------------------------------------------
アクセプト。
Alt + s ( Cmd + s )

メソッドも追加しちゃいましょう。
「PastUpMorph」を２つつくって各ペインのサブモーフにします。
--------------------------------------------
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)ってのが上から７０％のところまでってことで
(0@0.7 corner 1@1)ってのは７０％のとこから下までってことやね。

Uploaded Image: image16.jpg


アクセプト。
Alt + s ( Cmd + s )

Uploaded Image: image14.jpg


■インスタンスをだしてみる

確認の為Workspaceに下記のコードを書いてドゥーイット。
--------------------------------------------
TestMorph15 new openInWorld
--------------------------------------------
Alt + d ( Cmd + d )

Uploaded Image: image15.jpg


ってなわけでうえが７０％で下が３０％のペインで分かれたウィンドウの
出来上がりってわけさ。

Uploaded Image: image17.jpg


■３つのペインに分ける。

こんどは上のペインも縦に２つに分けて３つのペインにしまする。
クラスを新たに作ります。
--------------------------------------------
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)
--------------------------------------------
上下のペインは３対７の割合で、上の左右のペインは５対５の割合で分かれてるのね。
上の２つのペインには「PastUpMorph」で下のペインは「ScrollableField」に
してみますた。＜「みますた」ってあ〜た・・・・

Uploaded Image: image20.jpg


アクセプト。
Alt + s ( Cmd + s )

Uploaded Image: image18.jpg


インスタンスをだしてみましょうか。
--------------------------------------------
TestMorph16 new openInWorld
--------------------------------------------
Alt + d ( Cmd + d )

Uploaded Image: image19.jpg


今回はじみ〜だけど、色分けしてみますた。

Uploaded Image: image21.jpg


上の２つのペインに別のモーフをぶっこんで、
下のペインにはテキストを入力してみますた。＜しつこい。

Uploaded Image: image22.jpg



▲PREV　------　●　TOP　●　------　NEXT▼







■　MEMO　■

Links to this Page