hg/stx-libtool2: comparison UIPainter.st

equal deleted inserted replaced

-:28128eeb98f0
+:7cb9f9c9a872
 be provided or otherwise made available to, or used by, any
 other person.  No title to or ownership of the software is
 hereby transferred.
 "
-'From Smalltalk/X, Version:3.2.1 on 23-oct-1997 at 6:02:55 pm'                  !
 ApplicationModel subclass:#UIPainter
 	instanceVariableNames:'treeView selectionPanel tabSelection specClass specSelector
 		specSuperclass aspects layoutCanvas helpCanvas specCanvas
 		transcript'
 #'extent:' #(#Point 165 24)
 )
 #(#ActionButtonSpec
 #'name:' 'acceptButton'
 #'activeHelpKey:' #accept
-#'label:' 'ok'
+#'label:' 'accept'
 #'tabable:' true
 #'model:' #accept
 #'enableChannel:' #modifiedChannel
 #'extent:' #(#Point 166 24)
 )
 #'handles:' #(#Any 0.880597 1.0)
 )
 )
 )
 )
+"Modified: / 26.10.1997 / 15:57:00 / cg"
 ! !
 !UIPainter class methodsFor:'menu specs'!
 menuAlignment
 #(#MenuItem
 #'label:' 'browse application'
 #'value:' #doBrowseAppClass
 #'enabled:' #hasSpecClass
 )
+#(#MenuItem
+#'label:' 'browse aspect methods'
+#'value:' #doBrowseAspectMethods
+)
 ) nil
 nil
 )
 )
 #(#MenuItem
 #'submenu:'
 #(#Menu
 #(
 #(#MenuItem
-#'label:' 'test mode'
+#'label:' 'geometry test mode'
 #'indication:' #'testMode:'
 )
 ) nil
 nil
 )
 #'label:' '-'
 )
 ) nil
 nil
 )
+"Modified: / 26.10.1997 / 14:34:13 / cg"
 ! !
 !UIPainter methodsFor:'actions'!
 accept
 self specTool specification hierarchicalList:editor selectorName asSymbol.
 self modifiedChannel value:true.
 self accept
 ]
 ]
+!
+setMaxExtent
+"set the windows maxExtent from its current extent"
+self painter setMaxExtent
+"Modified: / 27.10.1997 / 03:22:58 / cg"
+!
+setMinExtent
+"set the windows minExtent from its current extent"
+self painter setMinExtent
+"Modified: / 27.10.1997 / 03:23:10 / cg"
 ! !
 !UIPainter methodsFor:'aspects'!
 canMoveOrAlignSelection
 !
 tabSelection:something
 "the tab selection of the notebook changed
 "
+|whatToDo|
 (something isNil or:[tabSelection = something]) ifTrue:[
 ^ self
 ].
 self isModified ifTrue:[
-(self confirm:'accept change made in ' , tabSelection printString , ' section ?') ifFalse:[
+whatToDo := DialogBox
-^ self
+confirmWithCancel:'accept change made in ' , tabSelection printString , ' section ?'
-].
+labels:#('cancel' 'ignore' 'accept')
-self accept
+default:3.
+whatToDo isNil ifTrue:[^self].
+whatToDo == true ifTrue:[
+self accept
+] ifFalse:[
+self cancel
+]
 ].
 tabSelection := something.
 self raiseTabView.
 self cancel.
+"Modified: / 26.10.1997 / 15:54:15 / cg"
 !
 treeSelection
 "called whenever the selection of the treeview changed
 "
 selectionPanel closeRequest
 ].
 selectionPanel := nil.
 treeView       := nil.
+ActiveHelp stopFor:self.
 super closeRequest.
-"Modified: 28.7.1997 / 18:28:37 / cg"
+"Modified: / 27.10.1997 / 00:01:30 / cg"
 !
 closeRequestFor:aTopView
 "handle a close request for a specific view
 "
 painterView icon:(Image fromFile:'bitmaps/UIPainter.xbm' resolution:100).
 selectionPanel window iconLabel:'GUI Painter'.
 selectionPanel window icon:(Image fromFile:'bitmaps/UIPainter.xbm' resolution:100).
-"Modified: 1.8.1997 / 14:22:10 / cg"
+ActiveHelp startFor:self.
+"Modified: / 27.10.1997 / 00:01:12 / cg"
 !
 openNewWindowCanvas
 "open new
 "
 via some selector
 "
 |painter|
 aClass isNil ifTrue:[
-self warn:'nil class given (class was probably renamed ?)'.
+(self confirm:'nil class given to UIPainter (class was probably renamed ?)\\Open anyway (to create a new interface) ?' withCRs)
+ifFalse:[^ nil].
 ].
 self openInterface.
 aClass notNil ifTrue:[
 (aClass respondsTo:aSelector) ifTrue:[
 painter setupFromSpec:(aClass perform:aSelector).
 ]
 ]
-"Modified: 1.7.1997 / 19:18:54 / cg"
+"Modified: / 25.10.1997 / 19:11:51 / cg"
 ! !
 !UIPainter methodsFor:'user interaction - dialog'!
 checkClassAndSelector
 SystemBrowser openInClass:cls
 ] ifFalse:[
 self information:'no class yet'.
 ].
+!
+doBrowseAspectMethods
+"open a browser on the aspect methods"
+|cls methods|
+self painter isModified ifTrue:[
+self warn:'the changes have not yet been reinstalled.\\The browser may show old code.' withCRs.
+].
+cls := self resolveName:specClass.
+cls notNil ifTrue:[
+methods := self painter aspectMethods.
+methods isEmpty ifTrue:[
+self warn:'no aspect methods have been installed yet.'.
+^ self.
+].
+SystemBrowser browseMethods:methods title:'aspect methods'.
+] ifFalse:[
+self information:'no class yet'.
+].
+"Created: / 25.10.1997 / 19:07:55 / cg"
 !
 doFromClass
 "setup new specification from a class and selector accessed through
 to a dialog
 ].
 self checkClassAndSelector ifFalse:[
 ^ self
 ].
+self isModified ifTrue:[
+(self confirm:'accept change made in ' , tabSelection printString , ' section ?') ifTrue:[
+self accept
+] ifFalse:[
+(self confirm:'install old specification ?') ifFalse:[
+^ self
+]
+]
+].
 painter := self painter.
 painter className:specClass
 superclassName:specSuperclass
 selector:specSelector.
 code := painter generateWindowSpecMethodSource withCRs.
 painter resetModification.
 (ReadStream on:code) fileIn.
+"Modified: / 26.10.1997 / 15:47:48 / cg"
 !
 doNew
 "remove all components and associated resources
 "
 !
 doStartApplication
 "start current edited application
 "
-|cls|
+|cls app infoMessage|
+self isModified ifTrue:[
+(self confirm:'accept change made in ' , tabSelection printString , ' section ?') ifTrue:[
+self accept.
+self painter isModified ifTrue:[
+(self confirm:'reinstall the new spec ?' withCRs) ifTrue:[
+self doInstallSpec
+]
+].
+]
+].
 self painter isModified ifTrue:[
 (self confirm:'the changed spec has not yet been reinstalled.\\Start anyway (based upon the previous interface) ?' withCRs) ifFalse:[
 ^ self
 ]
 ].
 (specClass isNil or:[specSelector size < 2]) ifTrue:[
-^ self information:'no class or selector defined'.
+infoMessage := 'no class or selector defined'.
-].
+] ifFalse:[
+cls := self resolveName:specClass.
-cls := self resolveName:specClass.
+cls isNil ifTrue:[
-cls isNil ifTrue:[
+infoMessage := 'class not existant'.
-^ self information:'class not existant'.
+] ifFalse:[
-].
+(cls respondsTo:specSelector) ifFalse:[
+infoMessage := ('no method for: #'
-(cls respondsTo:specSelector) ifFalse:[
+, specSelector , ' in ' , cls name
-^ self information:('no method for: #'
+, '\\(did you install the spec ?)') withCRs.
-, specSelector , ' in ' , cls name ,
+]
-'\\(did you install the spec ?)') withCRs.
+]
 ].
-cls new openInterface:specSelector
+infoMessage notNil ifTrue:[
-"Modified: 28.7.1997 / 18:30:25 / cg"
+^ self information:infoMessage
+].
+app := cls new.
+(app respondsTo:#openInterface:) ifFalse:[
+^ self warn:('The application does not respond to the ''openInterface:'' message.\\(maybe its supposed to be used as subApplication/subCanvas)') withCRs.
+].
+app openInterface:specSelector
+"Modified: / 26.10.1997 / 22:57:30 / cg"
 !
 doWindowSpec
 "create the window specification but do not write to application; instead
 open a view
 ! !
 !UIPainter::TreeView methodsFor:'building'!
 generateFullSpecForComponents:aSpecArray
-"generates an full spec for components
+"generates a full spec for components
 "
-|fullSpec|
+|fullSpec winSpec|
 fullSpec := FullSpec new.
 fullSpec fromBuilder:(self canvas topView)
 components:(SpecCollection new collection:aSpecArray).
 windowSpec notNil ifTrue:[
-fullSpec window menu:(windowSpec menu).
+winSpec := fullSpec window.
-fullSpec window performer:(windowSpec performer).
+winSpec menu:(windowSpec menu).
-fullSpec window flags:(windowSpec flags).
+winSpec performer:(windowSpec performer).
+winSpec flags:(windowSpec flags).
+winSpec forceRecursiveBackground:(windowSpec forceRecursiveBackground).
 ].
 ^ fullSpec literalArrayEncoding.
+"Modified: / 26.10.1997 / 22:41:51 / cg"
 !
 setAttributesFromWindowSpec:aWindowSpec
 "set windowSpec from argument a WindowSpec
 "

changeset 351	7cb9f9c9a872
parent 348	26656736930c
child 358	5df60cd45881