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

funfunfun24

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

スクロールバーをくっつけちゃうです。

こんどはウィンドウにスクロールバーをくっつけちゃいましょう。

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

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

メソッドも追加しちゃいましょう。ウィンドウの中は今回も「PastUpMorh」ね。
--------------------------------------------
initialize
	| t1 t2 |
	super initialize.
	t1 _ ScrollPane new.
	t2 _ PasteUpMorph new extent: 1000@1000.
	self
		addMorph: t2
		frame: (0 @ 0 extent: 1 @ 1).
	self
		addMorph: t1
		frame: (0 @ 0 extent: 1 @ 1).
	self setLabel: 'Test13'.
	self
		setWindowColor: (Color
			r: 0.5
			g: 0.8
			b: 0.5)
--------------------------------------------
アクセプト。
Alt + s ( Cmd + s )

Uploaded Image: image7.jpg


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

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

Uploaded Image: image8.jpg


右はしにちゃんとスクロールバーがついてますな。

Uploaded Image: image9.jpg


（注）実はこれじゃぜ〜んぜんっ！だめなんだよおおおう。
「ScrollPane」に「PastUpMorph」を「addMorph」しただけだと
スクロールがじぇんじぇん機能しないんだすよ。
っていうか別のモーフをウィンドウの中に入れてスクロールバーのあたりに置くと
スクロールバーの上に入れたモーフがのっかっちゃうんだよお〜。（しくしく）
自分なりにいろいろ調べてみたんだけど、おいらはいまだに迷子中でする･・・・。
さむばで・へるぷ・みいいいいいい！！

■縦横スクロールもつけちゃうぞ！！

さっきは縦のスクロールバーだけだったけど、
こんどは横のスクロールバーがついた「TwoWayScrolle」ってやつです。

（注）ちなみに上記の「ScrollPane」と違って、
この「TwoWayScrollPane」は問題ないとおもうです。
なぜな〜ら、サンプルにこうゆうのがあったんで難なくクリアしたです。
えっへん！！＜っておいおい！

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

メソッドも追加しちゃいましょう。
「inATwoWayScrollPane」メソッド（Morhクラスのね）で「PastUpMorph」を
「TowWayScrollPane」の中にいれてるらしい・・・。（自信ないよ〜ン）

とにかくこれで大丈夫そうだね。
「ScrollPane」でも「inAScrollPane」ってなメソッドが使えればいいんだけどね。＜もちろんないですよん。
--------------------------------------------
initialize
	| t1 t2 |
	super initialize.
	t1 _ PasteUpMorph new extent: 1000 @ 1000.
	t1 color: Color yellow.
	t2 _ t1 inATwoWayScrollPane.
	self
		addMorph: t2
		frame: (0 @ 0 extent: 1 @ 1).
	t2 fitContents.
	self setLabel: 'Test13'.
	self
		setWindowColor: (Color
			r: 1
			g: 0.8
			b: 0.3)
--------------------------------------------
アクセプト。
Alt + s ( Cmd + s )

Uploaded Image: image10.jpg


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

Uploaded Image: image11.jpg


縦と横にスクロールバーがついたね。

Uploaded Image: image12.jpg


試しにスクロールしてみるだす。「PastUpMorph」の右下のコーナーがみえるでしょ？

Uploaded Image: image13.jpg






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







■　MEMO　■
Saturday, 21 February 2004, 1:37:47 am
ウィンドウってMVCとかPluggableとかちらつくんですけど・・・。で、それなりにがんばってこれに挑戦するかな・・・。（でもあとでいいか・・・）そういやMVCダンスやったですよ、京都で。--thoru

Links to this Page