# HG changeset patch # User Claus Gittinger # Date 921771033 -3600 # Node ID ecb59576e1e6434ebc87db26a835f6dc110d2481 # Parent 243d945b1daff223f36cd3ba02c02a8d5d5317c7 checkin from browser diff -r 243d945b1daf -r ecb59576e1e6 UIPainter.st --- 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).