--- a/UIPainter.st Thu Jan 09 09:21:55 2003 +0100
+++ b/UIPainter.st Fri Jan 17 15:50:44 2003 +0100
@@ -617,139 +617,6 @@
!UIPainter class methodsFor:'interface specs'!
-XXwindowSpec
- "This resource specification was automatically generated
- by the UIPainter of ST/X."
-
- "Do not manually edit this!! If it is corrupted,
- the UIPainter may not be able to read the specification."
-
- "
- UIPainter new openOnClass:UIPainter andSelector:#windowSpec
- UIPainter new openInterface:#windowSpec
- UIPainter open
- "
-
- <resource: #canvas>
-
- ^
- #(#FullSpec
- #name: #windowSpec
- #window:
- #(#WindowSpec
- #label: 'GUI Painter'
- #name: 'GUI Painter'
- #min: #(#Point 560 460)
- #max: #(#Point 1160 870)
- #bounds: #(#Rectangle 343 100 951 623)
- #menu: #menu
- )
- #component:
- #(#SpecCollection
- #collection: #(
- #(#MenuPanelSpec
- #name: 'menuToolbarView'
- #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
- #level: 1
- #tabable: true
- #menu: #menuToolbar
- )
- #(#VariableHorizontalPanelSpec
- #name: 'hpanel'
- #layout: #(#LayoutFrame 0 0.0 32 0.0 0 1.0 -26 1.0)
- #level: 1
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ArbitraryComponentSpec
- #name: 'treeView'
- #tabable: true
- #menu: #menuEdit
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- #miniScrollerHorizontal: true
- #miniScrollerVertical: true
- #hasBorder: false
- #component: #treeView
- )
- #(#ViewSpec
- #name: 'specHolderView'
- #level: 0
- #component:
- #(#SpecCollection
- #collection: #(
- #(#MenuPanelSpec
- #name: 'menuToolbar2View'
- #layout: #(#LayoutFrame 2 0.0 2 0 -2 1.0 32 0)
- #level: 0
- #tabable: true
- #menu: #menuToolbar2
- )
- #(#NoteBookViewSpec
- #name: 'noteBook'
- #layout: #(#LayoutFrame 2 0.0 34 0.0 -2 1.0 -28 1.0)
- #level: 0
- #enableChannel: #enableChannel
- #tabable: true
- #model: #tabModel
- #menu: #tabList
- #canvas: #noteBookView
- #tabTopMargin: 0
- )
- #(#HorizontalPanelViewSpec
- #name: 'HorizontalPanel1'
- #layout: #(#LayoutFrame 2 0 -26 1 -2 1 -2 1)
- #horizontalLayout: #fit
- #verticalLayout: #fit
- #horizontalSpace: 3
- #verticalSpace: 3
- #reverseOrderIfOKAtLeft: true
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ActionButtonSpec
- #label: 'Cancel'
- #name: 'cancelButton'
- #activeHelpKey: #commitCancel
- #tabable: true
- #model: #cancel
- #enableChannel: #modifiedChannel
- #extent: #(#Point 200 24)
- )
- #(#ActionButtonSpec
- #label: 'OK'
- #name: 'acceptButton'
- #activeHelpKey: #commitOK
- #tabable: true
- #model: #accept
- #enableChannel: #modifiedChannel
- #extent: #(#Point 201 24)
- )
- )
-
- )
- )
- )
-
- )
- )
- )
-
- )
- #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
- )
- )
-
- )
- )
-!
-
dialogSpecForDefiningClassAndSelector
"This resource specification was automatically generated
by the UIPainter of ST/X."
@@ -3169,8 +3036,9 @@
ifTrue:[
aSelector := readStream upToEnd asSymbol.
self setClass: aClass selector: aSelector.
+
(aClass respondsTo:aSelector) ifTrue:[
- self painter setupFromSpec:(aClass perform:aSelector)
+ self painter setupFromSpec:(aClass perform:aSelector).
]
]
]
@@ -4669,15 +4537,10 @@
canvas hideSelection.
- "/ input view might by contained in sequence
- ((size := canvas findInputViewIn:spVw) ~~ 0 and:[idx >= size]) ifTrue:[
- idx := idx + 1
- ].
spVw changeSequenceOrderFor:view to:idx.
spVw specClass isLayoutContainer ifFalse:[
spVw subViews do:[:v| v raise ].
- canvas inputView raise
].
canvas showSelection.
self selectNode:item.