--- a/UIPainter.st Thu Mar 18 15:47:39 1999 +0100
+++ b/UIPainter.st Thu Mar 18 16:30:33 1999 +0100
@@ -690,161 +690,161 @@
^
#(#FullSpec
- #window:
- #(#WindowSpec
- #name: 'GUI Painter'
- #layout: #(#LayoutFrame 134 0 100 0 653 0 601 0)
- #label: 'GUI Painter'
- #min: #(#Point 560 460)
- #max: #(#Point 1160 870)
- #bounds: #(#Rectangle 134 100 654 602)
- #menu: #menu
- #usePreferredExtent: false
- )
- #component:
- #(#SpecCollection
- #collection:
- #(
- #(#MenuPanelSpec
- #name: 'menuToolbarView'
- #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
- #tabable: true
- #menu: #menuToolbar
- )
- #(#VariableHorizontalPanelSpec
- #name: 'hpanel'
- #layout: #(#LayoutFrame 0 0.0 34 0.0 0 1.0 -26 1.0)
- #component:
- #(#SpecCollection
- #collection:
- #(
- #(#ArbitraryComponentSpec
- #name: 'treeView'
- #tabable: true
- #menu: #menuEdit
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- #miniScrollerHorizontal: true
- #miniScrollerVertical: true
- #component: #treeView
- #hasBorder: false
- )
- #(#ViewSpec
- #name: 'specHolderView'
- #component:
- #(#SpecCollection
- #collection:
- #(
- #(#MenuPanelSpec
- #name: 'menuToolbar2View'
- #layout: #(#LayoutFrame -1 0.0 -2 0 -1 1.0 30 0)
- #enableChannel: #canMoveOrAlignSelection
- #tabable: true
- #menu: #menuToolbar2
- )
- #(#NoteBookViewSpec
- #name: 'noteBook'
- #layout: #(#LayoutFrame 0 0.0 34 0.0 0 1.0 -30 1.0)
- #enableChannel: #enableChannel
- #tabable: true
- #model: #tabModel
- #menu: #tabList
- #canvas: #noteBookView
- )
- #(#HorizontalPanelViewSpec
- #name: 'horizontalPanelView1'
- #layout: #(#LayoutFrame -163 1 -1 0 -35 1.0 31 0)
- #component:
- #(#SpecCollection
- #collection:
- #(
- #(#ArrowButtonSpec
- #name: 'MoveLeftButton'
- #activeHelpKey: #changePositionLeft
- #tabable: true
- #model: #moveSelectionLeft
- #enableChannel: #canMoveOrAlignSelection
- #isTriggerOnDown: true
- #direction: #left
- #extent: #(#Point 32 32)
- )
- #(#ArrowButtonSpec
- #name: 'MoveRightButton'
- #activeHelpKey: #changePositionRight
- #model: #moveSelectionRight
- #enableChannel: #canMoveOrAlignSelection
- #isTriggerOnDown: true
- #direction: #right
- #extent: #(#Point 32 32)
- )
- #(#ArrowButtonSpec
- #name: 'MoveDownButton'
- #activeHelpKey: #changePositionDown
- #model: #moveSelectionDown
- #enableChannel: #canMoveOrAlignSelection
- #isTriggerOnDown: true
- #direction: #down
- #extent: #(#Point 32 32)
- )
- #(#ArrowButtonSpec
- #name: 'MoveUpButton'
- #activeHelpKey: #changePositionUp
- #model: #moveSelectionUp
- #enableChannel: #canMoveOrAlignSelection
- #isTriggerOnDown: true
- #direction: #up
- #extent: #(#Point 32 32)
- )
- )
- )
- #horizontalLayout: #fit
- #verticalLayout: #fit
- #horizontalSpace: 0
- #verticalSpace: 0
- )
- #(#ActionButtonSpec
- #name: 'openWidgetDocumentationButton'
- #layout: #(#LayoutFrame -32 1 -1 0 0 1 31 0)
- #activeHelpKey: #editOpenSpecDocumentation
- #hasCharacterOrientedLabel: false
- #label: 'helpIcon'
- #model: #doOpenWidgetDocumentation
- )
- #(#ActionButtonSpec
- #name: 'cancelButton'
- #layout: #(#LayoutFrame 2 0 -26 1 -1 0.5 -2 1)
- #activeHelpKey: #commitCancel
- #label: 'Cancel'
- #tabable: true
- #model: #cancel
- #enableChannel: #modifiedChannel
- )
- #(#ActionButtonSpec
- #name: 'acceptButton'
- #layout: #(#LayoutFrame 1 0.5 -26 1 -2 1 -2 1)
- #activeHelpKey: #commitOK
- #label: 'OK'
- #tabable: true
- #model: #accept
- #enableChannel: #modifiedChannel
- )
- )
- )
- #borderWidth: 1
- )
- )
- )
- #level: 1
- #handles: #(#Any 0.318868 1.0)
- )
- #(#UISubSpecification
- #name: 'infoBarSubSpec'
- #layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
- #majorKey: #ToolApplicationModel
- #minorKey: #windowSpecForInfoBar
- )
- )
- )
+ #window:
+ #(#WindowSpec
+ #name: 'GUI Painter'
+ #layout: #(#LayoutFrame 134 0 100 0 653 0 601 0)
+ #label: 'GUI Painter'
+ #min: #(#Point 560 460)
+ #max: #(#Point 1160 870)
+ #bounds: #(#Rectangle 134 100 754 602)
+ #menu: #menu
+ #usePreferredExtent: false
+ )
+ #component:
+ #(#SpecCollection
+ #collection:
+ #(
+ #(#MenuPanelSpec
+ #name: 'menuToolbarView'
+ #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
+ #tabable: true
+ #menu: #menuToolbar
+ )
+ #(#VariableHorizontalPanelSpec
+ #name: 'hpanel'
+ #layout: #(#LayoutFrame 0 0.0 34 0.0 0 1.0 -26 1.0)
+ #component:
+ #(#SpecCollection
+ #collection:
+ #(
+ #(#ArbitraryComponentSpec
+ #name: 'treeView'
+ #tabable: true
+ #menu: #menuEdit
+ #hasHorizontalScrollBar: true
+ #hasVerticalScrollBar: true
+ #miniScrollerHorizontal: true
+ #miniScrollerVertical: true
+ #component: #treeView
+ #hasBorder: false
+ )
+ #(#ViewSpec
+ #name: 'specHolderView'
+ #component:
+ #(#SpecCollection
+ #collection:
+ #(
+ #(#MenuPanelSpec
+ #name: 'menuToolbar2View'
+ #layout: #(#LayoutFrame -1 0.0 -2 0 -1 1.0 30 0)
+ #enableChannel: #canMoveOrAlignSelection
+ #tabable: true
+ #menu: #menuToolbar2
+ )
+ #(#NoteBookViewSpec
+ #name: 'noteBook'
+ #layout: #(#LayoutFrame 0 0.0 34 0.0 0 1.0 -30 1.0)
+ #enableChannel: #enableChannel
+ #tabable: true
+ #model: #tabModel
+ #menu: #tabList
+ #canvas: #noteBookView
+ )
+ #(#HorizontalPanelViewSpec
+ #name: 'horizontalPanelView1'
+ #layout: #(#LayoutFrame -163 1 -1 0 -35 1.0 31 0)
+ #component:
+ #(#SpecCollection
+ #collection:
+ #(
+ #(#ArrowButtonSpec
+ #name: 'MoveLeftButton'
+ #activeHelpKey: #changePositionLeft
+ #tabable: true
+ #model: #moveSelectionLeft
+ #enableChannel: #canMoveOrAlignSelection
+ #isTriggerOnDown: true
+ #direction: #left
+ #extent: #(#Point 32 32)
+ )
+ #(#ArrowButtonSpec
+ #name: 'MoveRightButton'
+ #activeHelpKey: #changePositionRight
+ #model: #moveSelectionRight
+ #enableChannel: #canMoveOrAlignSelection
+ #isTriggerOnDown: true
+ #direction: #right
+ #extent: #(#Point 32 32)
+ )
+ #(#ArrowButtonSpec
+ #name: 'MoveDownButton'
+ #activeHelpKey: #changePositionDown
+ #model: #moveSelectionDown
+ #enableChannel: #canMoveOrAlignSelection
+ #isTriggerOnDown: true
+ #direction: #down
+ #extent: #(#Point 32 32)
+ )
+ #(#ArrowButtonSpec
+ #name: 'MoveUpButton'
+ #activeHelpKey: #changePositionUp
+ #model: #moveSelectionUp
+ #enableChannel: #canMoveOrAlignSelection
+ #isTriggerOnDown: true
+ #direction: #up
+ #extent: #(#Point 32 32)
+ )
+ )
+ )
+ #horizontalLayout: #fit
+ #verticalLayout: #fit
+ #horizontalSpace: 0
+ #verticalSpace: 0
+ )
+ #(#ActionButtonSpec
+ #name: 'openWidgetDocumentationButton'
+ #layout: #(#LayoutFrame -32 1 -1 0 0 1 31 0)
+ #activeHelpKey: #editOpenSpecDocumentation
+ #hasCharacterOrientedLabel: false
+ #label: 'helpIcon'
+ #model: #doOpenWidgetDocumentation
+ )
+ #(#ActionButtonSpec
+ #name: 'cancelButton'
+ #layout: #(#LayoutFrame 2 0 -26 1 -1 0.5 -2 1)
+ #activeHelpKey: #commitCancel
+ #label: 'Cancel'
+ #tabable: true
+ #model: #cancel
+ #enableChannel: #modifiedChannel
+ )
+ #(#ActionButtonSpec
+ #name: 'acceptButton'
+ #layout: #(#LayoutFrame 1 0.5 -26 1 -2 1 -2 1)
+ #activeHelpKey: #commitOK
+ #label: 'OK'
+ #tabable: true
+ #model: #accept
+ #enableChannel: #modifiedChannel
+ )
+ )
+ )
+ #borderWidth: 1
+ )
+ )
+ )
+ #level: 1
+ #handles: #(#Any 0.318868 1.0)
+ )
+ #(#UISubSpecification
+ #name: 'infoBarSubSpec'
+ #layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
+ #majorKey: #ToolApplicationModel
+ #minorKey: #windowSpecForInfoBar
+ )
+ )
+ )
)
"Modified: / 5.9.1998 / 17:42:12 / cg"
@@ -2893,7 +2893,7 @@
cls := specClass.
cls isString ifTrue:[
- cls := Smalltalk at:(cls string asSymbol)
+ cls := Smalltalk at:(cls string asSymbol)
].
sel := specSelector.
specSelector := nil.
@@ -2902,20 +2902,20 @@
painter := self painter.
settings := self class settings.
gridPara := painter gridParameters copy.
- hspace := settings at: #HGridSpace ifAbsent: [10].
- vspace := settings at: #VGridSpace ifAbsent: [10].
+ hspace := settings at: #HGridSpace ifAbsent:10.
+ vspace := settings at: #VGridSpace ifAbsent:10.
gridPara at:1 put:hspace; at:2 put:vspace; at:5 put:hspace; at:6 put:vspace.
painter gridParameters:gridPara.
- painter gridShown: (settings at: #GridShown ifAbsent: [false]).
- painter gridAlign: (settings at: #GridAlign ifAbsent: [false]).
+ painter gridShown: (settings at: #GridShown ifAbsent:false).
+ painter gridAlign: (settings at: #GridAlign ifAbsent:false).
painter clear.
cls notNil ifTrue:[
- self setClass:cls selector:sel.
-
- (cls respondsTo:sel) ifTrue:[
- painter setupFromSpec:(cls perform:sel).
- ]
+ self setClass:cls selector:sel.
+
+ (cls respondsTo:sel) ifTrue:[
+ painter setupFromSpec:(cls perform:sel).
+ ]
].
treeView selection: #(1).