--- a/UIPainter.st Thu Jun 05 11:57:03 1997 +0200
+++ b/UIPainter.st Thu Jun 05 11:58:17 1997 +0200
@@ -320,7 +320,7 @@
<resource: #canvas>
^
-
+
#(#FullSpec
#'window:'
#(#WindowSpec
@@ -337,101 +337,66 @@
#'name:' 'label1'
#'layout:' #(#LayoutFrame 10 0 50 0 110 0 70 0)
#'label:' 'class:'
- #'foregroundColor:' #(#Color 0.0 0.0 0.0)
- #'backgroundColor:' #(#Color 66.9993 66.9993 66.9993)
- #'initiallyInvisible:' false
- #'translateLabel:' false
- #'level:' 0
#'adjust:' #right
- #'hasCharacterOrientedLabel:' true
)
#(#LabelSpec
#'name:' 'label2'
#'layout:' #(#LayoutFrame 10 0 90 0 110 0 110 0)
#'label:' 'superclass:'
- #'foregroundColor:' #(#Color 0.0 0.0 0.0)
- #'backgroundColor:' #(#Color 66.9993 66.9993 66.9993)
- #'initiallyInvisible:' false
- #'translateLabel:' false
- #'level:' 0
#'adjust:' #right
- #'hasCharacterOrientedLabel:' true
)
#(#LabelSpec
#'name:' 'label3'
#'layout:' #(#LayoutFrame 10 0 130 0 110 0 150 0)
#'label:' 'selector:'
- #'foregroundColor:' #(#Color 0.0 0.0 0.0)
- #'backgroundColor:' #(#Color 66.9993 66.9993 66.9993)
- #'initiallyInvisible:' false
- #'translateLabel:' false
- #'level:' 0
#'adjust:' #right
- #'hasCharacterOrientedLabel:' true
)
#(#InputFieldSpec
#'name:' 'classNameField'
#'layout:' #(#LayoutFrame 120 0 50 0 289 0 72 0)
#'model:' #classNameChannel
#'tabable:' true
- #'immediateAccept:' true
- #'hasBorder:' false
)
#(#InputFieldSpec
#'name:' 'superclassNameField'
#'layout:' #(#LayoutFrame 120 0 90 0 289 0 112 0)
#'model:' #superclassNameChannel
#'tabable:' true
- #'immediateAccept:' true
- #'hasBorder:' false
)
#(#InputFieldSpec
#'name:' 'methodNameField'
#'layout:' #(#LayoutFrame 120 0 130 0 289 0 152 0)
#'model:' #methodNameChannel
#'tabable:' true
- #'immediateAccept:' true
- #'hasBorder:' false
)
#(#ActionButtonSpec
#'name:' 'button1'
#'layout:' #(#LayoutFrame 30 0 180 0 129 0 209 0)
#'label:' 'cancel'
- #'foregroundColor:' #(#Color 0.0 0.0 0.0)
- #'backgroundColor:' #(#Color 66.9993 66.9993 66.9993)
- #'translateLabel:' false
#'tabable:' true
#'model:' #cancel
#'isTriggerOnDown:' false
+ #'autoRepeat:' false
)
#(#ActionButtonSpec
#'name:' 'button2'
#'layout:' #(#LayoutFrame 160 0 180 0 259 0 209 0)
#'label:' 'ok'
- #'foregroundColor:' #(#Color 0.0 0.0 0.0)
- #'backgroundColor:' #(#Color 66.9993 66.9993 66.9993)
- #'translateLabel:' false
#'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:'
- #'foregroundColor:' #(#Color 0.0 0.0 0.0)
- #'backgroundColor:' #(#Color 66.9993 66.9993 66.9993)
- #'initiallyInvisible:' false
- #'translateLabel:' false
- #'level:' 0
#'adjust:' #left
- #'hasCharacterOrientedLabel:' true
)
)
)
)
-
!
windowSpec
@@ -466,17 +431,12 @@
#'name:' 'menuPullDown'
#'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 24 0)
#'menu:' #menuPullDown
- #'showSeparatingLines:' false
- #'verticalLayout:' false
- #'fitFirstPanel:' true
)
#(#MenuPanelSpec
#'name:' 'menuAlignment'
#'layout:' #(#LayoutFrame 0 0.0 29 0 233 0 54 0)
#'menu:' #menuAlignment
#'showSeparatingLines:' true
- #'verticalLayout:' false
- #'fitFirstPanel:' true
)
#(#PanelViewSpec
#'name:' 'panelViewButtons'
@@ -546,12 +506,10 @@
#'layout:' #(#LayoutFrame 0 0.0 59 0.0 0 0.35 0 1.0)
#'enableChannel:' #enableChannel
#'menu:' #objectListMenu
- #'tabable:' false
#'model:' #objectList
#'hasHorizontalScrollBar:' true
#'hasVerticalScrollBar:' true
#'miniScrollerHorizontal:' true
- #'miniScrollerVertical:' false
#'isMultiSelect:' true
#'doubleClickSelector:' #doubleClick
#'useIndex:' true
@@ -568,7 +526,6 @@
)
#'model:' #tabModel
#'tabWidget:' #Window
- #'useIndex:' false
#'level:' 0
#'canvas:' #noteBookView
)
@@ -792,19 +749,24 @@
objectListChanged
"something changed in the painter view
"
- |setSel slices list spec props|
+ |setSel slices list spec props size|
props := objectList selectedProperty.
tabSelection := nil.
props isNil ifFalse:[
currentView := props view.
+
+ (currentView == layoutTool forView) ifTrue:[
+ ^ self
+ ].
layoutTool forView:currentView.
-
spec := props spec copy.
slices := spec class slices.
- list := slices collect:[:slice| slice first asString ].
- list add:'Dimension'.
+ size := slices size + 1.
+ list := Array new:size.
+ slices keysAndValuesDo:[:i :s|list at:i put:(s first asString)].
+ list at:size put:'Dimension'.
(self tabList) value:list.
(list findFirst:[:aName| aName = lastSlice]) ~~ 0 ifTrue:[