--- a/UIPainter.st Thu Sep 04 21:03:29 2003 +0200
+++ b/UIPainter.st Thu Sep 04 21:13:51 2003 +0200
@@ -834,96 +834,95 @@
<resource: #canvas>
^
- #(#FullSpec
- #name: #windowSpec
- #window:
- #(#WindowSpec
- #label: 'GUI Painter'
- #name: 'GUI Painter'
- #min: #(#Point 560 460)
- #max: #(#Point 1160 870)
- #bounds: #(#Rectangle 174 290 782 813)
- #menu: #menu
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'GUI Painter'
+ name: 'GUI Painter'
+ min: (Point 560 460)
+ bounds: (Rectangle 14 46 622 569)
+ 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
+ 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 -24 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
+ (VariableHorizontalPanelSpec
+ name: 'hpanel'
+ layout: (LayoutFrame 0 0.0 32 0.0 0 1.0 -24 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
+ (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 32 0.0 -2 1.0 -28 1.0)
- #level: 0
- #enableChannel: #enableChannel
- #tabable: true
- #model: #tabModel
- #menu: #tabList
- #canvas: #noteBookView
+ (NoteBookViewSpec
+ name: 'noteBook'
+ layout: (LayoutFrame 2 0.0 32 0.0 -2 1.0 -28 1.0)
+ level: 0
+ enableChannel: enableChannel
+ tabable: true
+ model: tabModel
+ menu: tabList
+ canvas: noteBookView
)
- #(#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)
+ (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 201 24)
)
- #(#ActionButtonSpec
- #label: 'OK'
- #name: 'acceptButton'
- #activeHelpKey: #commitOK
- #tabable: true
- #model: #accept
- #enableChannel: #modifiedChannel
- #extent: #(#Point 201 24)
+ (ActionButtonSpec
+ label: 'OK'
+ name: 'acceptButton'
+ activeHelpKey: commitOK
+ tabable: true
+ model: accept
+ enableChannel: modifiedChannel
+ extent: (Point 201 24)
)
)
@@ -936,14 +935,14 @@
)
)
- #handles: #(#Any 0.318868 1.0)
+ handles: (Any 0.318868 1.0)
)
- #(#UISubSpecification
- #name: 'infoBarSubSpec'
- #layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
- #level: 1
- #majorKey: #ToolApplicationModel
- #minorKey: #windowSpecForInfoBar
+ (UISubSpecification
+ name: 'infoBarSubSpec'
+ layout: (LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
+ level: 1
+ majorKey: ToolApplicationModel
+ minorKey: windowSpecForInfoBar
)
)
@@ -3583,7 +3582,7 @@
doBrowse ifTrue:[
methods := selectorsToGenerateCode
- collect:[:sel | self halt. cls compiledMethodAt:sel]
+ collect:[:sel | cls compiledMethodAt:sel]
thenSelect:[:m | m notNil].
UserPreferences systemBrowserClass