hg/stx-libtool2: comparison UIPainter.st

equal deleted inserted replaced

-:249b56817140
+:afcf20d971e0
 	].
 	topView raise.
 ].
 !
+commonPostBuild
+"sets the root of the tree view as first selection;
+sets the grid parameters, if defined"
+|cls sel|
+cls := specClassName.
+cls isString ifTrue:[
+cls := Smalltalk at:(cls string asSymbol)
+].
+sel := specSelector.
+cls notNil ifTrue:[
+self setClass:cls selector:sel.
+(cls respondsTo:sel) ifTrue:[
+self painter setupFromSpec:(cls perform:sel).
+]
+].
+self autoAcceptOnSelectionChange addDependent:self.
+self autoAcceptOnSelectionChange value ifTrue:[
+(builder componentAt:'acceptButton') label:(resources string:'Apply')
+].
+"Modified: / 22.8.1998 / 17:41:34 / cg"
+!
 initialize
 super initialize.
 modified := false.
 aspects := IdentityDictionary new.
 self loadFromClass:classAndSelector methodClass andSelector:classAndSelector methodSelector
 ]
 !
 openInterface:aSymbol
-"opens the interface on the selector aSymbol"
+"in addition to opening my interface, also open up a gallery and a painter"
 |cls painterView painter topView galleryWindow icon name|
 specClassName notNil ifTrue:[
 specClassName isBehavior ifTrue:[
 put:#( 'ApplicationModel' 'SimpleDialog' ) asValue.
 aspects at:#methodNameChannel
 put:((specSelector notNil
 ifTrue:[ specSelector asValue ]
 ifFalse:[ #windowSpec ]) asValue).
 treeView := TreeView new.
 treeView windowSpecClass:(self defaultWindowSpecClass).
 treeView
 selectConditionBlock:[:newSelection | self selectionChangeAllowed:newSelection ].
 painterView := StandardSystemView new.
 name := name ? UIPainter defaultNameOfCanvas.
 painterView beToolWindow.
 painterView name:name.
 painterView label:name.
 painter := UIPainterView in:painterView.
 painter layout:(0.0 @ 0.0 corner:1.0 @ 1.0) asLayout.
 treeView := treeView canvas:painter specName:name.
 painter treeView:treeView.
 treeView model addDependent:self.
 super openInterface:aSymbol.
 topView := self window.
 topView label:'GUI Painter'.
 painterView openInGroup:(topView windowGroup).
 painterView application:self.
 selectionPanel := self selectionPanelClass new.
 selectionPanel allButOpenInterface:#windowSpec.
 galleryWindow := selectionPanel window.
 galleryWindow beToolWindow.
 galleryWindow openInGroup:(topView windowGroup).
 "Modified: / 21.8.1998 / 20:59:15 / cg"
 !
 postBuildWith: aBuilder
-"sets the root of the tree view as first selection;
-sets the grid parameters, if defined"
-|painter settings gridPara hspace vspace cls sel|
 super postBuildWith:aBuilder.
-cls := specClassName.
-cls isString ifTrue:[
-cls := Smalltalk at:(cls string asSymbol)
-].
-sel := specSelector.
 specSelector := nil.
 specClassName    := nil.
+self setupPainter.
+"Modified: / 22.8.1998 / 17:41:34 / cg"
+!
+postOpenWith: aBuilder
+"spread the painter and gallery views on the screen"
+|myWindow canvasWindow canvasOrg galleryWindow
+galleryOrg myOrg myCorner windowGroup|
+super postOpenWith: aBuilder.
+windowGroup := self topApplication windowGroup.
+windowGroup addPreEventHook:self.
+treeView selection: #(1).
+aBuilder keyboardProcessor menuBar:nil.
+myWindow := self window.
+canvasWindow := self painter topView.
+[selectionPanel isNil] whileTrue:[
+Delay waitForSeconds:0.1.
+].
+galleryWindow := selectionPanel window.
+myOrg := myWindow origin.
+myCorner := myWindow corner.
+"/ try to lay out things non-overlapping
+"/ but only, if the window manager placed all windows
+"/ on top of each other
+myOrg = canvasWindow origin ifTrue:[
+canvasOrg := 10@20.
+"/        myOrg := (device width - myWindow width - 20) @ 20.
+galleryOrg := (device width - galleryWindow width - 20)
+@
+((myWindow height + 20) min:(device height - galleryWindow height - 20)).
+myWindow origin:myOrg.
+canvasWindow origin:canvasOrg.
+galleryWindow origin:galleryOrg.
+galleryWindow raise.
+canvasWindow raise.
+].
+"Modified: / 13.7.1999 / 21:26:52 / cg"
+!
+selectionPanelClass
+^ UISelectionPanel
+!
+setupPainter
+"sets the painter's grid parameters, if defined"
+|painter settings gridPara hspace vspace|
 painter  := self painter.
 settings := self class settings.
 gridPara := painter gridParameters copy.
 hspace   := settings at: #HGridSpace ifAbsent:10.
 painter gridParameters:gridPara.
 painter gridShown: (settings at: #GridShown ifAbsent:false).
 painter gridAlign: (settings at: #GridAlign ifAbsent:false).
 painter shown ifTrue:[painter clearView].
-cls notNil ifTrue:[
-self setClass:cls selector:sel.
-(cls respondsTo:sel) ifTrue:[
-painter setupFromSpec:(cls perform:sel).
-]
-].
-self autoAcceptOnSelectionChange addDependent:self.
-self autoAcceptOnSelectionChange value ifTrue:[
-(builder componentAt:'acceptButton') label:(resources string:'Apply')
-].
 "Modified: / 22.8.1998 / 17:41:34 / cg"
-!
-postOpenWith: aBuilder
-"sets the initial selection"
-|myWindow canvasWindow canvasOrg galleryWindow
-galleryOrg myOrg myCorner windowGroup|
-super postOpenWith: aBuilder.
-windowGroup := self topApplication windowGroup.
-windowGroup addPreEventHook:self.
-treeView selection: #(1).
-aBuilder keyboardProcessor menuBar:nil.
-myWindow := self window.
-canvasWindow := self painter topView.
-[selectionPanel isNil] whileTrue:[
-Delay waitForSeconds:0.1.
-].
-galleryWindow := selectionPanel window.
-myOrg := myWindow origin.
-myCorner := myWindow corner.
-"/ try to lay out things non-overlapping
-"/ but only, if the window manager placed all windows
-"/ on top of each other
-myOrg = canvasWindow origin ifTrue:[
-canvasOrg := 10@20.
-"/        myOrg := (device width - myWindow width - 20) @ 20.
-galleryOrg := (device width - galleryWindow width - 20)
-@
-((myWindow height + 20) min:(device height - galleryWindow height - 20)).
-myWindow origin:myOrg.
-canvasWindow origin:canvasOrg.
-galleryWindow origin:galleryOrg.
-galleryWindow raise.
-canvasWindow raise.
-].
-"Modified: / 13.7.1999 / 21:26:52 / cg"
-!
-selectionPanelClass
-^ UISelectionPanel
 ! !
 !UIPainter methodsFor:'user actions'!
 accept

changeset 1994	afcf20d971e0
parent 1991	feaad07cb3cf
child 2001	b12d9b4dd6f2