On Wed, 29 Dec 2010, Andreas Raab wrote:
On 12/29/2010 6:24 PM, Markus Schlager wrote:
Wie Du über den Workspace den Weg zum Fenster für die Kategorien
findest, habe ich nicht untersucht.
Momentan so:
pongbrowserfenster := (World submorphs select: [:each | each model =
pongbrowser]) at: 1.
pongbrowserbereiche := (((pongbrowserfenster paneMorphs at: 2) submorphs
at: 3) submorphs at: 1) submorphs
Für die erste der beiden Zeilen hätte ich gerne eine robustere
Alternative, die mir sicherer das richtige Fenster liefert.
Versuch das mal:
pongbrowserfenster := pongbrowser topView.
Liefert mir ein MessageNotUnderstood. OBSystemBrowser erbt das offenbar
nicht von Model. Lesen von Model>>topView brachte mich aber darauf,
und das klappt:
pongbrowserfenster := pongbrowser dependents at: 1
Danke
Markus
