hg/stx-libtool2: comparison UIPainter.st

equal deleted inserted replaced

-:b332d7117c40
+:ce974dce3dd4
 #'window:'
 #(#WindowSpec
 #'name:' 'uIPainterView'
 #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
 #'label:' 'unnamed canvas'
-#'bounds:' #(#Rectangle 0 0 300 223)
+#'bounds:' #(#Rectangle 0 0 392 223)
 )
 #'component:'
 #(#SpecCollection
 #'collection:'
 #(
 #'label:' 'selector:'
 #'adjust:' #right
 )
 #(#InputFieldSpec
 #'name:' 'classNameField'
-#'layout:' #(#LayoutFrame 120 0 50 0 289 0 72 0)
+#'layout:' #(#LayoutFrame 120 0 50 0 -2 1.0 72 0)
+#'tabable:' true
 #'model:' #classNameChannel
-#'tabable:' true
-)
-#(#InputFieldSpec
-#'name:' 'superclassNameField'
-#'layout:' #(#LayoutFrame 120 0 90 0 289 0 112 0)
-#'model:' #superclassNameChannel
-#'tabable:' true
 )
 #(#InputFieldSpec
 #'name:' 'methodNameField'
-#'layout:' #(#LayoutFrame 120 0 130 0 289 0 152 0)
+#'layout:' #(#LayoutFrame 120 0 130 0 -2 1.0 152 0)
+#'tabable:' true
 #'model:' #methodNameChannel
-#'tabable:' true
 )
 #(#ActionButtonSpec
 #'name:' 'button1'
-#'layout:' #(#LayoutFrame 30 0 180 0 129 0 209 0)
+#'layout:' #(#AlignmentOrigin -2 0.5 195 0 1 0.5)
 #'label:' 'cancel'
 #'tabable:' true
 #'model:' #cancel
-#'isTriggerOnDown:' false
-#'autoRepeat:' false
 )
 #(#ActionButtonSpec
 #'name:' 'button2'
-#'layout:' #(#LayoutFrame 160 0 180 0 259 0 209 0)
+#'layout:' #(#AlignmentOrigin 2 0.5 195 0 0 0.5)
 #'label:' 'ok'
 #'tabable:' true
 #'isDefault:' true
 #'model:' #accept
-#'isTriggerOnDown:' false
-#'autoRepeat:' false
 )
 #(#LabelSpec
 #'name:' 'boxLabel'
 #'layout:' #(#LayoutFrame 0 0.0 11 0 0 1.0 32 0)
 #'label:' 'class & selector for code:'
 #'adjust:' #left
 )
+#(#ComboBoxSpec
+#'name:' 'comboBox1'
+#'layout:' #(#LayoutFrame 120 0 90 0 -2 1.0 112 0)
+#'tabable:' true
+#'model:' #superclassNameChannel
+#'immediateAccept:' false
+#'acceptOnLeave:' true
+#'acceptOnLostFocus:' true
+#'comboList:' #superclassNameDefaults
+)
 )
 )
 )
+"Modified: 17.6.1997 / 13:02:12 / cg"
 !
 windowSpec
 "this window spec was automatically generated by the ST/X UIPainter"
 ! !
 !UIPainter methodsFor:'actions'!
 accept
-"automatically generated by UIPainter ..."
 |layout|
 tabSelection = layoutTool label ifTrue:[
 (layout := layoutTool layout) notNil ifTrue:[
 layoutTool layoutType == #Extent ifTrue:[
 ].
 self painter updateFromSpec:(specView specEdited)
 ].
 self cancel
+"Modified: 17.6.1997 / 12:50:59 / cg"
 !
 cancel
 "cancel all changes and read back attributes from current view
 "
 ! !
 !UIPainter methodsFor:'active help'!
 activeHelpTool
-"automatically generated by UIPainter ..."
 |cls|
 activeHelpTool isNil ifTrue:[
 activeHelpTool := UIHelpTool new.
 activeHelpTool dictionary:(cls helpSpec).
 ]
 ].
 ].
 ^ activeHelpTool
+"Modified: 17.6.1997 / 12:51:15 / cg"
 !
 showHelp:aHelpText for:view
 "hook to allow an application to display active help
 texts in its own info area.
 ].
 aspects at:#superclassNameChannel put:(
 (specSuperclass notNil ifTrue:[specSuperclass]
 ifFalse:['ApplicationModel']) asValue
 ).
+aspects at:#superclassNameDefaults put:#('ApplicationModel' 'SimpleDialog') asValue.
 aspects at:#methodNameChannel put:(
 (specSelector notNil ifTrue:[specSelector]
 ifFalse:[#windowSpec]) asValue
 ).
 selectionPanel window openInGroup:(topView windowGroup).
 selectionPanel window bePartner.
 selectionPanel openWindow.
 selectionPanel window application:self.
+"Modified: 17.6.1997 / 13:06:25 / cg"
 !
 openNewWindowCanvas
 "open new
 "
 "open up an interface builder, fetching a spec from someClass
 via some selector
 "
 |painter|
+aClass isNil ifTrue:[
+self warn:'nil class given (class was probably renamed ?)'.
+].
 self openInterface.
-painter        := self painter.
+aClass notNil ifTrue:[
-specClass      := aClass name.
+painter        := self painter.
-specSuperclass := aClass superclass name.
+specClass      := aClass name.
-specSelector   := aSelector.
+specSuperclass := aClass superclass name.
+specSelector   := aSelector.
-painter className:aClass name.
-painter methodName:aSelector.
+(aspects at:#classNameChannel) value:specClass.
-painter setupFromSpec:(aClass perform:aSelector).
+(aspects at:#superclassNameChannel) value:specSuperclass.
+(aspects at:#methodNameChannel) value:specSelector.
+painter className:aClass name.
+painter methodName:aSelector.
+painter setupFromSpec:(aClass perform:aSelector).
+]
+"Modified: 17.6.1997 / 13:04:48 / cg"
 ! !
 !UIPainter methodsFor:'user interaction - dialog'!
 checkClassAndSelector
 |again|
 [
 again := false.
 (self openDialogInterface:#nameAndSelectorSpec) ifTrue:[
 specClass := (self aspectFor:#classNameChannel) value.
 specSelector := (self aspectFor:#methodNameChannel) value.
 specSuperclass := (self aspectFor:#superclassNameChannel) value.
 ]
 ]
 ] doWhile:[again]
+"Modified: 17.6.1997 / 13:04:26 / cg"
 ! !
 !UIPainter methodsFor:'user interaction - pullDown'!
 doBrowseAppClass

changeset 157	ce974dce3dd4
parent 156	b332d7117c40
child 160	622b88baeff6