funfunfun24
スクロールバーをくっつけちゃうです。
こんどはウィンドウにスクロールバーをくっつけちゃいましょう。
■クラスを新たに作って、メソッドも追加しちゃいます。
クラスを新たに作ります。
--------------------------------------------
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 )
■インスタンスをだしてみる
確認の為Workspaceに下記のコードを書いてドゥーイット。
--------------------------------------------
TestMorph13 new openInWorld
--------------------------------------------
Alt + d ( Cmd + d )
右はしにちゃんとスクロールバーがついてますな。
(注)実はこれじゃぜ〜んぜんっ!だめなんだよおおおう。
「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 )
インスタンスをだしてみましょうか。
--------------------------------------------
TestMorph14 new openInWorld
--------------------------------------------
Alt + d ( Cmd + d )
縦と横にスクロールバーがついたね。
試しにスクロールしてみるだす。「PastUpMorph」の右下のコーナーがみえるでしょ?
▲PREV ------ ● TOP ● ------ NEXT▼
■ MEMO ■
Saturday, 21 February 2004, 1:37:47 am
ウィンドウってMVCとかPluggableとかちらつくんですけど・・・。で、それなりにがんばってこれに挑戦するかな・・・。(でもあとでいいか・・・)そういやMVCダンスやったですよ、京都で。--thoru
Links to this Page
- FunFunFunMorphic last edited on 25 March 2004 at 5:25:44 am by tk0005-202x210x196x109.ap-TK.usen.ad.jp
- funfunfun23 last edited on 17 June 2007 at 7:03:48 am by localhost.localdomain
- funfunfun25 last edited on 17 June 2007 at 7:10:54 am by localhost.localdomain