--- a/UIGalleryView.st Mon Jun 07 17:47:20 1999 +0200
+++ b/UIGalleryView.st Fri Jun 11 19:19:14 1999 +0200
@@ -206,7 +206,7 @@
!UIGalleryView methodsFor:'change & update'!
-selectionChanged
+selectionHasChanged
"selection changed
"
|specification selector selection application|
@@ -216,7 +216,6 @@
minorKeysHolder notNil ifTrue:[
minorKeys := minorKeysHolder value.
].
-
(selection notNil and:[minorKeys size >= selection]) ifTrue:[
selector := minorKeys at:selection.
@@ -239,7 +238,7 @@
!
update
- self selectionChanged.
+ self selectionHasChanged.
!
update:something with:aParameter from:changedObject
@@ -269,7 +268,7 @@
super initialize.
- self action:[:something| self selectionChanged ].
+ self action:[:something| self selectionHasChanged ].
! !
--- a/UISelectionPanel.st Mon Jun 07 17:47:20 1999 +0200
+++ b/UISelectionPanel.st Fri Jun 11 19:19:14 1999 +0200
@@ -13,7 +13,8 @@
ApplicationModel subclass:#UISelectionPanel
- instanceVariableNames:'userClass userSpecs userLabels majorSelection clipBoardSpec'
+ instanceVariableNames:'gallery userClass userSpecs userLabels majorSelection
+ clipBoardSpec'
classVariableNames:'UserClass UserSpecs UserLabels'
poolDictionaries:''
category:'Interface-UIPainter'
@@ -265,47 +266,38 @@
<resource: #canvas>
- ^
-
- #(#FullSpec
- #window:
- #(#WindowSpec
- #name: 'Widget Gallery'
- #layout: #(#LayoutFrame 134 0 100 0 654 0 382 0)
- #label: 'Widget Gallery'
- #min: #(#Point 100 280)
- #max: #(#Point 1160 870)
- #bounds: #(#Rectangle 134 100 655 383)
- #usePreferredExtent: false
- )
- #component:
- #(#SpecCollection
- #collection:
- #(
- #(#UIGalleryViewSpec
- #name: 'gallery'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 -40 1.0 0 1.0)
- #tabable: true
- #model: #galleryModel
- #menu: #galleryList
- #useIndex: true
- #minorKeys: #minorKeys
- #clientSpec: #clientSpec
- #raiseMenu: #raiseMenu
- )
- #(#TabViewSpec
- #name: 'major'
- #layout: #(#LayoutFrame -40 1.0 30 0.0 0 1.0 0 1.0)
- #model: #majorChannel
- #menu: #majorList
- #direction: #right
- #useIndex: true
- )
- )
- )
+ ^
+ #(#FullSpec
+ #name: #windowSpec
+ #window:
+ #(#WindowSpec
+ #label: 'Widget Gallery'
+ #name: 'Widget Gallery'
+ #layout: #(#LayoutFrame 92 0 128 0 612 0 410 0)
+ #level: 0
+ #min: #(#Point 100 280)
+ #max: #(#Point 1160 870)
+ #bounds: #(#Rectangle 92 128 613 411)
+ #usePreferredExtent: false
+ #returnIsOKInDialog: true
+ #escapeIsCancelInDialog: true
+ )
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#NoteBookViewSpec
+ #name: 'NoteBook1'
+ #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+ #model: #majorChannel
+ #menu: #majorList
+ #direction: #right
+ #useIndex: true
+ #canvas: #gallery
+ )
+ )
+
+ )
)
-
- "Modified: / 5.9.1998 / 17:43:14 / cg"
! !
!UISelectionPanel class methodsFor:'menus'!
@@ -349,6 +341,109 @@
!UISelectionPanel class methodsFor:'standard specifications'!
+XXstandardLists
+ "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:UISelectionPanel andSelector:#standardLists
+ UISelectionPanel new openInterface:#standardLists
+ "
+
+ <resource: #canvas>
+
+ ^
+ #(#FullSpec
+ #name: #standardLists
+ #window:
+ #(#WindowSpec
+ #label: 'Lists'
+ #name: 'Lists'
+ #layout: #(#LayoutFrame 114 0 262 0 554 0 479 0)
+ #level: 0
+ #min: #(#Point 10 10)
+ #max: #(#Point 1280 1024)
+ #bounds: #(#Rectangle 114 262 555 480)
+ #usePreferredExtent: false
+ #returnIsOKInDialog: true
+ #escapeIsCancelInDialog: true
+ )
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#SequenceViewSpec
+ #name: 'List'
+ #layout: #(#LayoutFrame 4 0 19 0 209 0 99 0)
+ #hasHorizontalScrollBar: true
+ #hasVerticalScrollBar: true
+ #useIndex: false
+ )
+ #(#LabelSpec
+ #label: 'List'
+ #name: 'ListLabel'
+ #layout: #(#AlignmentOrigin 4 0 19 0 0 1)
+ #style: #(#FontDescription #helvetica #medium #roman 10)
+ #resizeForLabel: true
+ #adjust: #left
+ #canUIDrag: false
+ )
+ #(#SelectionInTreeViewSpec
+ #name: 'Tree List'
+ #layout: #(#LayoutFrame 4 0 134 0 209 0 214 0)
+ #hasHorizontalScrollBar: true
+ #hasVerticalScrollBar: true
+ #highlightMode: #line
+ )
+ #(#LabelSpec
+ #label: 'Tree List'
+ #name: 'TreeListLabel'
+ #layout: #(#AlignmentOrigin 4 0 134 0 0 1)
+ #style: #(#FontDescription #helvetica #medium #roman 10)
+ #resizeForLabel: true
+ #adjust: #left
+ #canUIDrag: false
+ )
+ #(#DataSetSpec
+ #name: 'Table'
+ #layout: #(#LayoutFrame 229 0 19 0 434 0 99 0)
+ #hasHorizontalScrollBar: true
+ #hasVerticalScrollBar: true
+ #has3Dsepartors: false
+ )
+ #(#LabelSpec
+ #label: 'Table'
+ #name: 'TableLabel'
+ #layout: #(#AlignmentOrigin 229 0 19 0 0 1)
+ #style: #(#FontDescription #helvetica #medium #roman 10)
+ #resizeForLabel: true
+ #adjust: #left
+ #canUIDrag: false
+ )
+ #(#FileSelectionTreeSpec
+ #name: 'File Tree List'
+ #layout: #(#LayoutFrame 229 0 134 0 434 0 214 0)
+ #hasHorizontalScrollBar: true
+ #hasVerticalScrollBar: true
+ #highlightMode: #line
+ )
+ #(#LabelSpec
+ #label: 'File Tree List'
+ #name: 'FileTreeListLabel'
+ #layout: #(#AlignmentOrigin 229 0 134 0 0 1)
+ #style: #(#FontDescription #helvetica #medium #roman 10)
+ #resizeForLabel: true
+ #adjust: #left
+ #canUIDrag: false
+ )
+ )
+
+ )
+ )
+!
+
standardButtons
"This resource specification was automatically generated
by the UIPainter of ST/X."
@@ -363,139 +458,141 @@
<resource: #canvas>
- ^
-
- #(#FullSpec
- #window:
- #(#WindowSpec
- #name: 'Buttons'
- #layout: #(#LayoutFrame 39 0 189 0 517 0 392 0)
- #label: 'Buttons'
- #min: #(#Point 10 10)
- #max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 39 189 518 393)
- #usePreferredExtent: false
- )
- #component:
- #(#SpecCollection
- #collection:
- #(
- #(#ActionButtonSpec
- #name: 'Button'
- #layout: #(#LayoutFrame 15 0 15 0 140 0 37 0)
- #label: 'Button'
- #translateLabel: true
- )
- #(#ActionButtonSpec
- #name: 'Button - OK'
- #layout: #(#LayoutFrame 15 0 47 0 140 0 69 0)
- #label: 'OK'
- #translateLabel: true
- #model: #accept
- )
- #(#ActionButtonSpec
- #name: 'Button - Cancel'
- #layout: #(#LayoutFrame 15 0 79 0 140 0 101 0)
- #label: 'Cancel'
- #translateLabel: true
- #model: #cancel
- )
- #(#ActionButtonSpec
- #name: 'Button - Help'
- #layout: #(#LayoutFrame 15 0 111 0 140 0 133 0)
- #label: 'Help'
- #translateLabel: true
- #model: #help
- )
- #(#ActionButtonSpec
- #name: 'Button - Close'
- #layout: #(#LayoutFrame 15 0 143 0 140 0 165 0)
- #label: 'Close'
- #translateLabel: true
- #model: #closeRequest
- )
- #(#ToggleSpec
- #name: 'Toggle'
- #layout: #(#LayoutFrame 157 0 15 0 293 0 37 0)
- #label: 'Toggle'
- #isTriggerOnDown: true
- #translateLabel: true
- #lampColor: #(#Color 100.0 100.0 0.0)
- )
- #(#RadioButtonSpec
- #name: 'Radio Button'
- #layout: #(#LayoutFrame 157 0.0 47 0 293 0 69 0)
- #label: 'Radio Button'
- #isTriggerOnDown: true
- #translateLabel: true
- #lampColor: #(#Color 100.0 100.0 0.0)
- )
- #(#CheckBoxSpec
- #name: 'Check Box'
- #layout: #(#LayoutFrame 157 0 79 0 293 0 101 0)
- #translateLabel: true
- #label: 'Check Box'
- )
- #(#CheckToggleSpec
- #name: 'Check Toggle'
- #layout: #(#LayoutOrigin 157 0 113 0)
- #isTriggerOnDown: true
- #showLamp: false
- #lampColor: #(#Color 100.0 100.0 0.0)
- )
- #(#LabelSpec
- #name: 'CheckToggleLabel'
- #layout: #(#AlignmentOrigin 183 0 112 0 0 0)
- #label: 'Check Toggle'
- #adjust: #left
- #resizeForLabel: true
- #canUIDrag: false
- )
- #(#ButtonSpec
- #name: 'Model Button'
- #layout: #(#LayoutFrame 309 0 15 0 445 0 37 0)
- #label: 'Model Button'
- #translateLabel: true
- )
- #(#LabelSpec
- #name: 'UpDownButtonLabel'
- #layout: #(#AlignmentOrigin 361 0 49 0 0 0)
- #label: 'Spin Button'
- #adjust: #left
- #resizeForLabel: true
- #canUIDrag: false
- )
- #(#UpDownButtonSpec
- #name: 'UpDown Button'
- #layout: #(#LayoutFrame 309 0 47 0 354 0 69 0)
- #orientation: #horizontal
- )
- #(#LabelSpec
- #name: 'ArrowButtonsLabel'
- #layout: #(#AlignmentOrigin 361 0 83 0 0 0)
- #label: 'Arrow Button'
- #adjust: #left
- #resizeForLabel: true
- #canUIDrag: false
- )
- #(#ArrowButtonSpec
- #name: 'Arrow Button'
- #layout: #(#LayoutFrame 309 0 79 0 331 0 101 0)
- #isTriggerOnDown: true
- #direction: #right
- )
- )
- )
+ ^
+ #(#FullSpec
+ #name: #standardButtons
+ #window:
+ #(#WindowSpec
+ #label: 'Buttons'
+ #name: 'Buttons'
+ #layout: #(#LayoutFrame 58 0 164 0 497 0 321 0)
+ #level: 0
+ #min: #(#Point 10 10)
+ #max: #(#Point 1280 1024)
+ #bounds: #(#Rectangle 58 164 498 322)
+ #usePreferredExtent: false
+ #returnIsOKInDialog: true
+ #escapeIsCancelInDialog: true
+ )
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#ActionButtonSpec
+ #label: 'Button'
+ #name: 'Button'
+ #layout: #(#LayoutFrame 2 0 1 0 127 0 23 0)
+ #translateLabel: true
+ )
+ #(#ActionButtonSpec
+ #label: 'OK'
+ #name: 'Button - OK'
+ #layout: #(#LayoutFrame 2 0 33 0 127 0 55 0)
+ #translateLabel: true
+ #model: #accept
+ )
+ #(#ActionButtonSpec
+ #label: 'Cancel'
+ #name: 'Button - Cancel'
+ #layout: #(#LayoutFrame 2 0 65 0 127 0 87 0)
+ #translateLabel: true
+ #model: #cancel
+ )
+ #(#ActionButtonSpec
+ #label: 'Help'
+ #name: 'Button - Help'
+ #layout: #(#LayoutFrame 2 0 97 0 127 0 119 0)
+ #translateLabel: true
+ #model: #help
+ )
+ #(#ActionButtonSpec
+ #label: 'Close'
+ #name: 'Button - Close'
+ #layout: #(#LayoutFrame 2 0 129 0 127 0 151 0)
+ #translateLabel: true
+ #model: #closeRequest
+ )
+ #(#ToggleSpec
+ #label: 'Toggle'
+ #name: 'Toggle'
+ #layout: #(#LayoutFrame 144 0 1 0 280 0 23 0)
+ #translateLabel: true
+ #isTriggerOnDown: true
+ #lampColor: #(#Color 100.0 100.0 0.0)
+ )
+ #(#RadioButtonSpec
+ #label: 'Radio Button'
+ #name: 'Radio Button'
+ #layout: #(#LayoutFrame 144 0.0 33 0 280 0 55 0)
+ #translateLabel: true
+ #isTriggerOnDown: true
+ #lampColor: #(#Color 100.0 100.0 0.0)
+ )
+ #(#CheckBoxSpec
+ #label: 'Check Box'
+ #name: 'Check Box'
+ #layout: #(#LayoutFrame 144 0 65 0 280 0 87 0)
+ #translateLabel: true
+ )
+ #(#CheckToggleSpec
+ #name: 'Check Toggle'
+ #layout: #(#LayoutOrigin 144 0 99 0)
+ #isTriggerOnDown: true
+ #showLamp: false
+ #lampColor: #(#Color 100.0 100.0 0.0)
+ )
+ #(#LabelSpec
+ #label: 'Check Toggle'
+ #name: 'CheckToggleLabel'
+ #layout: #(#AlignmentOrigin 170 0 98 0 0 0)
+ #resizeForLabel: true
+ #adjust: #left
+ #canUIDrag: false
+ )
+ #(#ButtonSpec
+ #label: 'Model Button'
+ #name: 'Model Button'
+ #layout: #(#LayoutFrame 296 0 1 0 432 0 23 0)
+ #translateLabel: true
+ )
+ #(#LabelSpec
+ #label: 'Spin Button'
+ #name: 'UpDownButtonLabel'
+ #layout: #(#AlignmentOrigin 348 0 35 0 0 0)
+ #resizeForLabel: true
+ #adjust: #left
+ #canUIDrag: false
+ )
+ #(#UpDownButtonSpec
+ #name: 'UpDown Button'
+ #layout: #(#LayoutFrame 296 0 33 0 341 0 55 0)
+ #orientation: #horizontal
+ )
+ #(#LabelSpec
+ #label: 'Arrow Button'
+ #name: 'ArrowButtonsLabel'
+ #layout: #(#AlignmentOrigin 348 0 69 0 0 0)
+ #resizeForLabel: true
+ #adjust: #left
+ #canUIDrag: false
+ )
+ #(#ArrowButtonSpec
+ #name: 'Arrow Button'
+ #layout: #(#LayoutFrame 296 0 65 0 318 0 87 0)
+ #isTriggerOnDown: true
+ #direction: #right
+ )
+ )
+
+ )
)
-
- "Modified: / 20.5.1998 / 03:25:21 / cg"
!
standardGraphs
- "this window spec was automatically generated by the ST/X UIPainter"
+ "This resource specification was automatically generated
+ by the UIPainter of ST/X."
- "do not manually edit this - the painter/builder may not be able to
- handle the specification if its corrupted."
+ "Do not manually edit this!! If it is corrupted,
+ the UIPainter may not be able to read the specification."
"
UIPainter new openOnClass:UISelectionPanel andSelector:#standardGraphs
@@ -504,61 +601,65 @@
<resource: #canvas>
- ^
-
- #(#FullSpec
- #window:
- #(#WindowSpec
- #name: 'Graphs'
- #layout: #(#LayoutFrame 114 0 373 0 583 0 615 0)
- #label: 'Graphs'
- #min: #(#Point 10 10)
- #max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 114 373 584 616)
- #usePreferredExtent: false
- )
- #component:
- #(#SpecCollection
- #collection:
- #(
- #(#GraphColumnView2DSpec
- #name: 'GraphColumnView2D'
- #layout: #(#LayoutFrame 15 0 15 0 220 0 110 0)
- #gridX: 0
- #gridY: 0
- )
- #(#LabelSpec
- #name: 'GraphColumnView2DLabel'
- #layout: #(#AlignmentOrigin 19 0 19 0 0 0)
- #label: 'GraphColumnViewView2D'
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #adjust: #left
- #resizeForLabel: true
- #canUIDrag: false
- )
- #(#GraphColumnView3DSpec
- #name: 'GraphColumnView3D'
- #layout: #(#LayoutFrame 240 0 15 0 445 0 110 0)
- )
- #(#LabelSpec
- #name: 'GraphColumnView3DLabel'
- #layout: #(#AlignmentOrigin 244 0 19 0 0 0)
- #label: 'GraphColumnViewView3D'
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #adjust: #left
- #resizeForLabel: true
- #canUIDrag: false
- )
- )
- )
+ ^
+ #(#FullSpec
+ #name: #standardGraphs
+ #window:
+ #(#WindowSpec
+ #label: 'Graphs'
+ #name: 'Graphs'
+ #layout: #(#LayoutFrame 81 0 219 0 519 0 333 0)
+ #level: 0
+ #min: #(#Point 10 10)
+ #max: #(#Point 1280 1024)
+ #bounds: #(#Rectangle 81 219 520 334)
+ #usePreferredExtent: false
+ #returnIsOKInDialog: true
+ #escapeIsCancelInDialog: true
+ )
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#GraphColumnView2DSpec
+ #name: 'GraphColumnView2D'
+ #layout: #(#LayoutFrame 3 0 3 0 208 0 98 0)
+ #gridX: 0
+ #gridY: 0
+ )
+ #(#LabelSpec
+ #label: 'GraphColumnViewView2D'
+ #name: 'GraphColumnView2DLabel'
+ #layout: #(#AlignmentOrigin 7 0 7 0 0 0)
+ #style: #(#FontDescription #helvetica #medium #roman 10)
+ #resizeForLabel: true
+ #adjust: #left
+ #canUIDrag: false
+ )
+ #(#GraphColumnView3DSpec
+ #name: 'GraphColumnView3D'
+ #layout: #(#LayoutFrame 228 0 3 0 433 0 98 0)
+ )
+ #(#LabelSpec
+ #label: 'GraphColumnViewView3D'
+ #name: 'GraphColumnView3DLabel'
+ #layout: #(#AlignmentOrigin 232 0 7 0 0 0)
+ #style: #(#FontDescription #helvetica #medium #roman 10)
+ #resizeForLabel: true
+ #adjust: #left
+ #canUIDrag: false
+ )
+ )
+
+ )
)
!
standardGroups
- "this window spec was automatically generated by the ST/X UIPainter"
+ "This resource specification was automatically generated
+ by the UIPainter of ST/X."
- "do not manually edit this - the painter/builder may not be able to
- handle the specification if its corrupted."
+ "Do not manually edit this!! If it is corrupted,
+ the UIPainter may not be able to read the specification."
"
UIPainter new openOnClass:UISelectionPanel andSelector:#standardGroups
@@ -567,244 +668,245 @@
<resource: #canvas>
- ^
-
- #(#FullSpec
- #window:
- #(#WindowSpec
- #name: 'Groups'
- #layout: #(#LayoutFrame 147 0 281 0 647 0 520 0)
- #label: 'Groups'
- #min: #(#Point 10 10)
- #max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 147 281 648 521)
- #usePreferredExtent: false
- )
- #component:
- #(#SpecCollection
- #collection:
- #(
- #(#ViewSpec
- #name: 'Box'
- #layout: #(#LayoutFrame 15 0 15 0 220 0 110 0)
- )
+ ^
+ #(#FullSpec
+ #name: #standardGroups
+ #window:
+ #(#WindowSpec
+ #label: 'Groups'
+ #name: 'Groups'
+ #layout: #(#LayoutFrame 92 0 174 0 534 0 395 0)
+ #level: 0
+ #min: #(#Point 10 10)
+ #max: #(#Point 1280 1024)
+ #bounds: #(#Rectangle 92 174 535 396)
+ #usePreferredExtent: false
+ #returnIsOKInDialog: true
+ #escapeIsCancelInDialog: true
+ )
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#ViewSpec
+ #name: 'Box'
+ #layout: #(#LayoutFrame 3 0 3 0 208 0 98 0)
+ )
+ #(#LabelSpec
+ #label: 'Box'
+ #name: 'ViewLabel'
+ #layout: #(#AlignmentOrigin 6 0 5 0 0 0)
+ #style: #(#FontDescription #helvetica #medium #roman 10)
+ #resizeForLabel: true
+ #adjust: #left
+ #canUIDrag: false
+ )
+ #(#LabelSpec
+ #label: 'Variable Panels'
+ #name: 'VPanelLabel'
+ #layout: #(#LayoutFrame 3 0 104 0 208 0 127 0)
+ #style: #(#FontDescription #helvetica #medium #roman 10)
+ #adjust: #left
+ #canUIDrag: false
+ )
+ #(#VariableHorizontalPanelSpec
+ #name: 'Variable Horizontal Panel'
+ #layout: #(#LayoutFrame 3 0 128 0 98 0 218 0)
+ #handles: #(#Any 0.5 1.0)
+ #component:
+ #(#SpecCollection
+ #collection: #(
#(#LabelSpec
- #name: 'ViewLabel'
- #layout: #(#AlignmentOrigin 18 0 17 0 0 0)
- #label: 'Box'
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #adjust: #left
- #resizeForLabel: true
- #canUIDrag: false
- )
- #(#LabelSpec
- #name: 'VPanelLabel'
- #layout: #(#LayoutFrame 15 0 116 0 220 0 139 0)
- #label: 'Variable Panels'
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #adjust: #left
+ #label: 'A'
+ #name: 'label4'
+ #level: 2
+ #style: #(#FontDescription #helvetica #medium #roman 12)
#canUIDrag: false
- )
- #(#VariableHorizontalPanelSpec
- #name: 'Variable Horizontal Panel'
- #layout: #(#LayoutFrame 15 0 140 0 110 0 230 0)
- #component:
- #(#SpecCollection
- #collection:
- #(
- #(#LabelSpec
- #name: 'label4'
- #label: 'A'
- #style: #(#FontDescription #helvetica #medium #roman 12)
- #level: 2
- #canUIDrag: false
- )
- #(#LabelSpec
- #name: 'label5'
- #label: 'B'
- #style: #(#FontDescription #helvetica #medium #roman 12)
- #level: 2
- #canUIDrag: false
- )
- )
- )
- #handles: #(#Any 0.5 1.0)
- )
- #(#VariableVerticalPanelSpec
- #name: 'Variable Vertical Panel'
- #layout: #(#LayoutFrame 125 0 140 0 220 0 230 0)
- #component:
- #(#SpecCollection
- #collection:
- #(
- #(#LabelSpec
- #name: 'label9'
- #label: 'A'
- #style: #(#FontDescription #helvetica #medium #roman 12)
- #level: 2
- #canUIDrag: false
- )
- #(#LabelSpec
- #name: 'label10'
- #label: 'B'
- #style: #(#FontDescription #helvetica #medium #roman 12)
- #level: 2
- #canUIDrag: false
- )
- )
- )
- #handles: #(#Any 0.5 1.0)
- )
- #(#FramedBoxSpec
- #name: 'Framed Box'
- #layout: #(#LayoutFrame 240 0 15 0 445 0 110 0)
- #label: 'Framed Box'
- #labelPosition: #topLeft
- #translateLabel: true
- )
+ )
#(#LabelSpec
- #name: 'PanelLabel'
- #layout: #(#LayoutFrame 240 0 116 0 445 0 139 0)
- #label: 'Panels'
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #adjust: #left
+ #label: 'B'
+ #name: 'label5'
+ #level: 2
+ #style: #(#FontDescription #helvetica #medium #roman 12)
+ #canUIDrag: false
+ )
+ )
+
+ )
+ )
+ #(#VariableVerticalPanelSpec
+ #name: 'Variable Vertical Panel'
+ #layout: #(#LayoutFrame 113 0 128 0 208 0 218 0)
+ #handles: #(#Any 0.5 1.0)
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#LabelSpec
+ #label: 'A'
+ #name: 'label9'
+ #level: 2
+ #style: #(#FontDescription #helvetica #medium #roman 12)
+ #canUIDrag: false
+ )
+ #(#LabelSpec
+ #label: 'B'
+ #name: 'label10'
+ #level: 2
+ #style: #(#FontDescription #helvetica #medium #roman 12)
#canUIDrag: false
- )
- #(#HorizontalPanelViewSpec
- #name: 'Horizontal Panel'
- #layout: #(#LayoutFrame 240 0 140 0 324 0 230 0)
- #component:
- #(#SpecCollection
- #collection:
- #(
- #(#LabelSpec
- #name: 'label1'
- #label: 'A'
- #style: #(#FontDescription #helvetica #medium #roman 12)
- #level: 2
- #extent: #(#Point 23 23)
- #canUIDrag: false
- )
- #(#LabelSpec
- #name: 'label2'
- #label: 'B'
- #style: #(#FontDescription #helvetica #medium #roman 12)
- #level: 2
- #extent: #(#Point 23 23)
- #canUIDrag: false
- )
- #(#LabelSpec
- #name: 'label3'
- #label: 'C'
- #style: #(#FontDescription #helvetica #medium #roman 12)
- #level: 2
- #extent: #(#Point 23 23)
- #canUIDrag: false
- )
- )
- )
- #horizontalLayout: #center
- #verticalLayout: #center
- #horizontalSpace: 3
- #verticalSpace: 3
- )
- #(#VerticalPanelViewSpec
- #name: 'Vertical Panel'
- #layout: #(#LayoutFrame 332 0 140 0 379 0 230 0)
- #component:
- #(#SpecCollection
- #collection:
- #(
- #(#LabelSpec
- #name: 'label6'
- #label: 'A'
- #style: #(#FontDescription #helvetica #medium #roman 12)
- #level: 2
- #extent: #(#Point 23 23)
- #canUIDrag: false
- )
- #(#LabelSpec
- #name: 'label7'
- #label: 'B'
- #style: #(#FontDescription #helvetica #medium #roman 12)
- #level: 2
- #extent: #(#Point 23 23)
- #canUIDrag: false
- )
- #(#LabelSpec
- #name: 'label8'
- #label: 'C'
- #style: #(#FontDescription #helvetica #medium #roman 12)
- #level: 2
- #extent: #(#Point 23 23)
- #canUIDrag: false
- )
- )
- )
- #horizontalLayout: #center
- #verticalLayout: #center
- #horizontalSpace: 3
- #verticalSpace: 3
- )
- #(#PanelViewSpec
- #name: 'Panel'
- #layout: #(#LayoutFrame 387 0 140 0 445 0 230 0)
- #component:
- #(#SpecCollection
- #collection:
- #(
- #(#LabelSpec
- #name: 'label11'
- #label: 'A'
- #style: #(#FontDescription #helvetica #medium #roman 12)
- #level: 2
- #extent: #(#Point 23 23)
- #canUIDrag: false
- )
- #(#LabelSpec
- #name: 'label12'
- #label: 'B'
- #style: #(#FontDescription #helvetica #medium #roman 12)
- #level: 2
- #extent: #(#Point 23 23)
- #canUIDrag: false
- )
- #(#LabelSpec
- #name: 'label13'
- #label: 'C'
- #style: #(#FontDescription #helvetica #medium #roman 12)
- #level: 2
- #extent: #(#Point 23 23)
- #canUIDrag: false
- )
- #(#LabelSpec
- #name: 'label14'
- #label: 'D'
- #style: #(#FontDescription #helvetica #medium #roman 12)
- #level: 2
- #extent: #(#Point 23 23)
- #canUIDrag: false
- )
- #(#LabelSpec
- #name: 'label15'
- #label: 'E'
- #style: #(#FontDescription #helvetica #medium #roman 12)
- #level: 2
- #extent: #(#Point 23 23)
- #canUIDrag: false
- )
- )
- )
- #horizontalLayout: #fitSpace
- #verticalLayout: #fitSpace
- #horizontalSpace: 3
- #verticalSpace: 3
- )
+ )
+ )
+
+ )
+ )
+ #(#FramedBoxSpec
+ #label: 'Framed Box'
+ #name: 'Framed Box'
+ #layout: #(#LayoutFrame 228 0 3 0 433 0 98 0)
+ #labelPosition: #topLeft
+ #translateLabel: true
+ )
+ #(#LabelSpec
+ #label: 'Panels'
+ #name: 'PanelLabel'
+ #layout: #(#LayoutFrame 228 0 104 0 433 0 127 0)
+ #style: #(#FontDescription #helvetica #medium #roman 10)
+ #adjust: #left
+ #canUIDrag: false
+ )
+ #(#HorizontalPanelViewSpec
+ #name: 'Horizontal Panel'
+ #layout: #(#LayoutFrame 228 0 128 0 312 0 218 0)
+ #horizontalLayout: #center
+ #verticalLayout: #center
+ #horizontalSpace: 3
+ #verticalSpace: 3
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#LabelSpec
+ #label: 'A'
+ #name: 'label1'
+ #level: 2
+ #style: #(#FontDescription #helvetica #medium #roman 12)
+ #extent: #(#Point 23 23)
+ #canUIDrag: false
+ )
+ #(#LabelSpec
+ #label: 'B'
+ #name: 'label2'
+ #level: 2
+ #style: #(#FontDescription #helvetica #medium #roman 12)
+ #extent: #(#Point 23 23)
+ #canUIDrag: false
+ )
+ #(#LabelSpec
+ #label: 'C'
+ #name: 'label3'
+ #level: 2
+ #style: #(#FontDescription #helvetica #medium #roman 12)
+ #extent: #(#Point 23 23)
+ #canUIDrag: false
+ )
+ )
+
)
- )
+ )
+ #(#VerticalPanelViewSpec
+ #name: 'Vertical Panel'
+ #layout: #(#LayoutFrame 320 0 128 0 367 0 218 0)
+ #horizontalLayout: #center
+ #verticalLayout: #center
+ #horizontalSpace: 3
+ #verticalSpace: 3
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#LabelSpec
+ #label: 'A'
+ #name: 'label6'
+ #level: 2
+ #style: #(#FontDescription #helvetica #medium #roman 12)
+ #extent: #(#Point 23 23)
+ #canUIDrag: false
+ )
+ #(#LabelSpec
+ #label: 'B'
+ #name: 'label7'
+ #level: 2
+ #style: #(#FontDescription #helvetica #medium #roman 12)
+ #extent: #(#Point 23 23)
+ #canUIDrag: false
+ )
+ #(#LabelSpec
+ #label: 'C'
+ #name: 'label8'
+ #level: 2
+ #style: #(#FontDescription #helvetica #medium #roman 12)
+ #extent: #(#Point 23 23)
+ #canUIDrag: false
+ )
+ )
+
+ )
+ )
+ #(#PanelViewSpec
+ #name: 'Panel'
+ #layout: #(#LayoutFrame 375 0 128 0 433 0 218 0)
+ #horizontalLayout: #fitSpace
+ #verticalLayout: #fitSpace
+ #horizontalSpace: 3
+ #verticalSpace: 3
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#LabelSpec
+ #label: 'A'
+ #name: 'label11'
+ #level: 2
+ #style: #(#FontDescription #helvetica #medium #roman 12)
+ #extent: #(#Point 23 23)
+ #canUIDrag: false
+ )
+ #(#LabelSpec
+ #label: 'B'
+ #name: 'label12'
+ #level: 2
+ #style: #(#FontDescription #helvetica #medium #roman 12)
+ #extent: #(#Point 23 23)
+ #canUIDrag: false
+ )
+ #(#LabelSpec
+ #label: 'C'
+ #name: 'label13'
+ #level: 2
+ #style: #(#FontDescription #helvetica #medium #roman 12)
+ #extent: #(#Point 23 23)
+ #canUIDrag: false
+ )
+ #(#LabelSpec
+ #label: 'D'
+ #name: 'label14'
+ #level: 2
+ #style: #(#FontDescription #helvetica #medium #roman 12)
+ #extent: #(#Point 23 23)
+ #canUIDrag: false
+ )
+ #(#LabelSpec
+ #label: 'E'
+ #name: 'label15'
+ #level: 2
+ #style: #(#FontDescription #helvetica #medium #roman 12)
+ #extent: #(#Point 23 23)
+ #canUIDrag: false
+ )
+ )
+
+ )
+ )
+ )
+
+ )
)
-
- "Modified: / 20.5.1998 / 03:26:08 / cg"
!
standardLists
@@ -821,89 +923,93 @@
<resource: #canvas>
- ^
-
- #(#FullSpec
- #window:
- #(#WindowSpec
- #name: 'Lists'
- #layout: #(#LayoutFrame 164 0 52 0 633 0 294 0)
- #label: 'Lists'
- #min: #(#Point 10 10)
- #max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 164 52 634 295)
- #usePreferredExtent: false
- )
- #component:
- #(#SpecCollection
- #collection:
- #(
- #(#SequenceViewSpec
- #name: 'List'
- #layout: #(#LayoutFrame 15 0 30 0 220 0 110 0)
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- #useIndex: false
- )
- #(#LabelSpec
- #name: 'ListLabel'
- #layout: #(#AlignmentOrigin 15 0 30 0 0 1)
- #label: 'List'
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #adjust: #left
- #resizeForLabel: true
- #canUIDrag: false
- )
- #(#SelectionInTreeViewSpec
- #name: 'Tree List'
- #layout: #(#LayoutFrame 15 0 145 0 220 0 225 0)
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- )
- #(#LabelSpec
- #name: 'TreeListLabel'
- #layout: #(#AlignmentOrigin 15 0 145 0 0 1)
- #label: 'Tree List'
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #adjust: #left
- #resizeForLabel: true
- #canUIDrag: false
- )
- #(#DataSetSpec
- #name: 'Table'
- #layout: #(#LayoutFrame 240 0 30 0 445 0 110 0)
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- )
- #(#LabelSpec
- #name: 'TableLabel'
- #layout: #(#AlignmentOrigin 240 0 30 0 0 1)
- #label: 'Table'
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #adjust: #left
- #resizeForLabel: true
- #canUIDrag: false
- )
- #(#FileSelectionTreeSpec
- #name: 'File Tree List'
- #layout: #(#LayoutFrame 240 0 145 0 445 0 225 0)
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- )
- #(#LabelSpec
- #name: 'FileTreeListLabel'
- #layout: #(#AlignmentOrigin 240 0 145 0 0 1)
- #label: 'File Tree List'
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #adjust: #left
- #resizeForLabel: true
- #canUIDrag: false
- )
- )
- )
+ ^
+ #(#FullSpec
+ #name: #standardLists
+ #window:
+ #(#WindowSpec
+ #label: 'Lists'
+ #name: 'Lists'
+ #layout: #(#LayoutFrame 114 0 262 0 554 0 479 0)
+ #level: 0
+ #min: #(#Point 10 10)
+ #max: #(#Point 1280 1024)
+ #bounds: #(#Rectangle 114 262 555 480)
+ #usePreferredExtent: false
+ #returnIsOKInDialog: true
+ #escapeIsCancelInDialog: true
+ )
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#SequenceViewSpec
+ #name: 'List'
+ #layout: #(#LayoutFrame 4 0 19 0 209 0 99 0)
+ #hasHorizontalScrollBar: true
+ #hasVerticalScrollBar: true
+ #useIndex: false
+ )
+ #(#LabelSpec
+ #label: 'List'
+ #name: 'ListLabel'
+ #layout: #(#AlignmentOrigin 4 0 19 0 0 1)
+ #style: #(#FontDescription #helvetica #medium #roman 10)
+ #resizeForLabel: true
+ #adjust: #left
+ #canUIDrag: false
+ )
+ #(#SelectionInTreeViewSpec
+ #name: 'Tree List'
+ #layout: #(#LayoutFrame 4 0 134 0 209 0 214 0)
+ #hasHorizontalScrollBar: true
+ #hasVerticalScrollBar: true
+ #highlightMode: #line
+ )
+ #(#DataSetSpec
+ #name: 'Table'
+ #layout: #(#LayoutFrame 229 0 19 0 434 0 99 0)
+ #hasHorizontalScrollBar: true
+ #hasVerticalScrollBar: true
+ #has3Dsepartors: false
+ )
+ #(#FileSelectionTreeSpec
+ #name: 'File Tree List'
+ #layout: #(#LayoutFrame 229 0 134 0 434 0 214 0)
+ #hasHorizontalScrollBar: true
+ #hasVerticalScrollBar: true
+ #highlightMode: #line
+ )
+ #(#LabelSpec
+ #label: 'File Tree List'
+ #name: 'FileTreeListLabel'
+ #layout: #(#AlignmentOrigin 229 0 134 0 0 1)
+ #style: #(#FontDescription #helvetica #medium #roman 10)
+ #resizeForLabel: true
+ #adjust: #left
+ #canUIDrag: false
+ )
+ #(#LabelSpec
+ #label: 'Table'
+ #name: 'TableLabel'
+ #layout: #(#AlignmentOrigin 229 0 19 0 0 1)
+ #style: #(#FontDescription #helvetica #medium #roman 10)
+ #resizeForLabel: true
+ #adjust: #left
+ #canUIDrag: false
+ )
+ #(#LabelSpec
+ #label: 'Tree List'
+ #name: 'TreeListLabel'
+ #layout: #(#AlignmentOrigin 4 0 134 0 0 1)
+ #style: #(#FontDescription #helvetica #medium #roman 10)
+ #resizeForLabel: true
+ #adjust: #left
+ #canUIDrag: false
+ )
+ )
+
+ )
)
-
- "Modified: / 21.4.1998 / 20:36:36 / cg"
!
standardMenus
@@ -920,112 +1026,87 @@
<resource: #canvas>
- ^
-
- #(#FullSpec
- #window:
- #(#WindowSpec
- #name: 'Menus'
- #layout: #(#LayoutFrame 110 0 120 0 586 0 342 0)
- #level: 0
- #label: 'Menus'
- #min: #(#Point 10 10)
- #max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 110 120 587 343)
- #usePreferredExtent: false
- )
- #component:
- #(#SpecCollection
- #collection:
- #(
- #(#MenuPanelSpec
- #name: 'Tool Bar'
- #layout: #(#LayoutFrame 15 0 146 0 140 0 178 0)
- #textDefault: true
- )
- #(#LabelSpec
- #name: 'ToolBarLabel'
- #layout: #(#AlignmentOrigin 15 0 146 0 0 1)
- #label: 'Tool Bar'
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #resizeForLabel: true
- #adjust: #left
- #canUIDrag: false
- )
- #(#MenuPanelSpec
- #name: 'Menu Bar'
- #layout: #(#LayoutFrame 15 0 196 0 140 0 218 0)
- )
- #(#LabelSpec
- #name: 'MenuBarLabel'
- #layout: #(#AlignmentOrigin 15 0 195 0 0 1)
- #label: 'Menu Bar'
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #resizeForLabel: true
- #adjust: #left
- #canUIDrag: false
- )
- #(#PopUpListSpec
- #name: 'PopUp List'
- #layout: #(#LayoutFrame 15 0 15 0 140 0 37 0)
- #label: 'PopUp List'
- #useIndex: false
- )
- #(#ComboListSpec
- #name: 'Combo List'
- #layout: #(#LayoutFrame 15 0 45 0 140 0 65 0)
- #useIndex: false
- )
- #(#LabelSpec
- #name: 'ComboListLabel'
- #layout: #(#AlignmentOrigin 17 0 65 0 0 1)
- #label: 'Combo List'
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #resizeForLabel: true
- #adjust: #left
- #canUIDrag: false
- )
- #(#ComboBoxSpec
- #name: 'Combo Box'
- #layout: #(#LayoutFrame 15 0 73 0 140 0 93 0)
- )
- #(#LabelSpec
- #name: 'ComboBoxLabel'
- #layout: #(#AlignmentOrigin 17 0 93 0 0 1)
- #label: 'Combo Box'
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #resizeForLabel: true
- #adjust: #left
- #canUIDrag: false
- )
- #(#ExtendedComboBoxSpec
- #name: 'Extended Combo Box'
- #layout: #(#LayoutFrame 15 0 100 0 140 0 120 0)
- #adjustRight: true
- )
- #(#LabelSpec
- #name: 'ExtendedComboBoxLabel'
- #layout: #(#AlignmentOrigin 18 0 120 0 0 1)
- #label: 'Extended Combo'
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #resizeForLabel: true
- #adjust: #left
- #canUIDrag: false
- )
- #(#TabViewSpec
- #name: 'Tab Header'
- #layout: #(#LayoutFrame 157 0 15 0 292 0 51 0)
- )
- #(#NoteBookViewSpec
- #name: 'Note Book'
- #layout: #(#LayoutFrame 157 0 58 0 292 0 150 0)
- )
- #(#UIGalleryViewSpec
- #name: 'Gallery'
- #layout: #(#LayoutFrame 309 0 15 0 445 0 150 0)
- )
- )
- )
+ ^
+ #(#FullSpec
+ #name: #standardMenus
+ #window:
+ #(#WindowSpec
+ #label: 'Menus'
+ #name: 'Menus'
+ #layout: #(#LayoutFrame 20 0 182 0 496 0 404 0)
+ #level: 0
+ #min: #(#Point 10 10)
+ #max: #(#Point 1280 1024)
+ #bounds: #(#Rectangle 20 182 497 405)
+ #usePreferredExtent: false
+ #returnIsOKInDialog: true
+ #escapeIsCancelInDialog: true
+ )
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#MenuPanelSpec
+ #name: 'Tool Bar'
+ #layout: #(#LayoutFrame 4 0 134 0 129 0 166 0)
+ #textDefault: true
+ )
+ #(#LabelSpec
+ #label: 'Tool Bar'
+ #name: 'ToolBarLabel'
+ #layout: #(#AlignmentOrigin 4 0 134 0 0 1)
+ #style: #(#FontDescription #helvetica #medium #roman 10)
+ #resizeForLabel: true
+ #adjust: #left
+ #canUIDrag: false
+ )
+ #(#MenuPanelSpec
+ #name: 'Menu Bar'
+ #layout: #(#LayoutFrame 4 0 184 0 129 0 206 0)
+ )
+ #(#LabelSpec
+ #label: 'Menu Bar'
+ #name: 'MenuBarLabel'
+ #layout: #(#AlignmentOrigin 4 0 183 0 0 1)
+ #style: #(#FontDescription #helvetica #medium #roman 10)
+ #resizeForLabel: true
+ #adjust: #left
+ #canUIDrag: false
+ )
+ #(#PopUpListSpec
+ #label: 'PopUp List'
+ #name: 'PopUp List'
+ #layout: #(#LayoutFrame 4 0 3 0 129 0 25 0)
+ #useIndex: false
+ )
+ #(#ComboListSpec
+ #name: 'Combo List'
+ #layout: #(#LayoutFrame 4 0 33 0 129 0 53 0)
+ #useIndex: false
+ )
+ #(#ComboBoxSpec
+ #name: 'Combo Box'
+ #layout: #(#LayoutFrame 4 0 61 0 129 0 81 0)
+ )
+ #(#ExtendedComboBoxSpec
+ #name: 'Extended Combo Box'
+ #layout: #(#LayoutFrame 4 0 88 0 129 0 108 0)
+ #miniScrollerHorizontal: true
+ )
+ #(#TabViewSpec
+ #name: 'Tab Header'
+ #layout: #(#LayoutFrame 146 0 3 0 281 0 39 0)
+ )
+ #(#NoteBookViewSpec
+ #name: 'Note Book'
+ #layout: #(#LayoutFrame 146 0 46 0 281 0 138 0)
+ )
+ #(#UIGalleryViewSpec
+ #name: 'Gallery'
+ #layout: #(#LayoutFrame 298 0 3 0 434 0 138 0)
+ )
+ )
+
+ )
)
!
@@ -1043,163 +1124,164 @@
<resource: #canvas>
- ^
-
- #(#FullSpec
- #window:
- #(#WindowSpec
- #name: 'Misc'
- #layout: #(#LayoutFrame 50 0 73 0 517 0 357 0)
- #label: 'Misc'
- #min: #(#Point 10 10)
- #max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 50 73 518 358)
- #usePreferredExtent: false
- )
- #component:
- #(#SpecCollection
- #collection:
- #(
- #(#ArbitraryComponentSpec
- #name: 'Arbitrary Component'
- #layout: #(#LayoutFrame 15 0 15 0 140 0 110 0)
- #hasBorder: false
- )
- #(#LabelSpec
- #name: 'ArbitraryComponentLabel1'
- #layout: #(#AlignmentOrigin 19 0 19 0 0 0)
- #label: 'Arbitrary'
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #adjust: #left
- #resizeForLabel: true
- #canUIDrag: false
- )
- #(#LabelSpec
- #name: 'ArbitraryComponentLabel2'
- #layout: #(#AlignmentOrigin 19 0 43 0 0 0)
- #label: 'Component'
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #adjust: #left
- #resizeForLabel: true
- #canUIDrag: false
- )
- #(#UISubSpecification
- #name: 'SubSpecification'
- #layout: #(#LayoutFrame 157 0 15 0 292 0 110 0)
- )
- #(#LabelSpec
- #name: 'SubSpecificationLabel'
- #layout: #(#Point 161 19)
- #label: 'SubSpecification'
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #resizeForLabel: true
- #canUIDrag: false
- )
- #(#SubCanvasSpec
- #name: 'SubCanvas'
- #layout: #(#LayoutFrame 309 0 15 0 445 0 110 0)
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- )
- #(#LabelSpec
- #name: 'SubCanvasLabel'
- #layout: #(#AlignmentOrigin 336 0 19 0 0 0)
- #label: 'SubCanvas'
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #adjust: #left
- #resizeForLabel: true
- #canUIDrag: false
- )
- #(#LabelSpec
- #name: 'SliderLabel'
- #layout: #(#AlignmentOrigin 95 0 129 0 1 0)
- #label: 'Slider'
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #resizeForLabel: true
- #canUIDrag: false
- )
- #(#SliderSpec
- #name: 'Slider'
- #layout: #(#LayoutFrame 100 0 126 0 215 0 144 0)
- #orientation: #horizontal
- #step: 1
- )
- #(#LabelSpec
- #name: 'ThumbWheelLabel'
- #layout: #(#AlignmentOrigin 95 0 157 0 1 0)
- #label: 'Thumb Wheel'
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #resizeForLabel: true
- #canUIDrag: false
- )
- #(#ThumbWheelSpec
- #name: 'Thumb Wheel'
- #layout: #(#LayoutFrame 100 0 152 0 215 0 172 0)
- #orientation: #horizontal
- #step: 1
- )
- #(#LabelSpec
- #name: 'RegionLabel'
- #layout: #(#AlignmentOrigin 95 0 189 0 1 0)
- #label: 'Region'
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #adjust: #left
- #resizeForLabel: true
- #canUIDrag: false
- )
- #(#RegionSpec
- #name: 'Region'
- #layout: #(#LayoutFrame 100 0 183 0 215 0 212 0)
- #lineWidth: 2
- #regionType: #ellipse
- )
- #(#LabelSpec
- #name: 'SeparatorLabel'
- #layout: #(#AlignmentOrigin 95 0 219 0 1 0)
- #label: 'Separator'
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #adjust: #left
- #resizeForLabel: true
- #canUIDrag: false
- )
- #(#DividerSpec
- #name: 'Separator'
- #layout: #(#LayoutFrame 100 0 225 0 215 0 229 0)
- )
- #(#LabelSpec
- #name: 'ProgressIndicatorsLabel'
- #layout: #(#AlignmentOrigin 345 0 129 0 1 0)
- #label: 'Progress Indicator'
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #adjust: #left
- #resizeForLabel: true
- #canUIDrag: false
- )
- #(#ProgressIndicatorSpec
- #name: 'Progress Indicator'
- #layout: #(#LayoutFrame 350 0 126 0 445 0 144 0)
- )
- #(#LabelSpec
- #name: 'RoundProgressIndicatorsLabel'
- #layout: #(#AlignmentOrigin 345 0 179 0 1 0)
- #label: 'Round
+ ^
+ #(#FullSpec
+ #name: #standardMisc
+ #window:
+ #(#WindowSpec
+ #label: 'Misc'
+ #name: 'Misc'
+ #layout: #(#LayoutFrame 172 0 325 0 613 0 547 0)
+ #level: 0
+ #min: #(#Point 10 10)
+ #max: #(#Point 1280 1024)
+ #bounds: #(#Rectangle 172 325 614 548)
+ #usePreferredExtent: false
+ #returnIsOKInDialog: true
+ #escapeIsCancelInDialog: true
+ )
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#ArbitraryComponentSpec
+ #name: 'Arbitrary Component'
+ #layout: #(#LayoutFrame 3 0 3 0 128 0 98 0)
+ #hasBorder: false
+ )
+ #(#LabelSpec
+ #label: 'Arbitrary'
+ #name: 'ArbitraryComponentLabel1'
+ #layout: #(#AlignmentOrigin 7 0 7 0 0 0)
+ #style: #(#FontDescription #helvetica #medium #roman 10)
+ #resizeForLabel: true
+ #adjust: #left
+ #canUIDrag: false
+ )
+ #(#LabelSpec
+ #label: 'Component'
+ #name: 'ArbitraryComponentLabel2'
+ #layout: #(#AlignmentOrigin 7 0 31 0 0 0)
+ #style: #(#FontDescription #helvetica #medium #roman 10)
+ #resizeForLabel: true
+ #adjust: #left
+ #canUIDrag: false
+ )
+ #(#UISubSpecification
+ #name: 'SubSpecification'
+ #layout: #(#LayoutFrame 145 0 3 0 280 0 98 0)
+ )
+ #(#LabelSpec
+ #label: 'SubSpecification'
+ #name: 'SubSpecificationLabel'
+ #layout: #(#Point 149 7)
+ #style: #(#FontDescription #helvetica #medium #roman 10)
+ #resizeForLabel: true
+ #canUIDrag: false
+ )
+ #(#SubCanvasSpec
+ #name: 'SubCanvas'
+ #layout: #(#LayoutFrame 297 0 3 0 433 0 98 0)
+ #hasHorizontalScrollBar: true
+ #hasVerticalScrollBar: true
+ )
+ #(#LabelSpec
+ #label: 'SubCanvas'
+ #name: 'SubCanvasLabel'
+ #layout: #(#AlignmentOrigin 324 0 7 0 0 0)
+ #style: #(#FontDescription #helvetica #medium #roman 10)
+ #resizeForLabel: true
+ #adjust: #left
+ #canUIDrag: false
+ )
+ #(#LabelSpec
+ #label: 'Slider'
+ #name: 'SliderLabel'
+ #layout: #(#AlignmentOrigin 83 0 117 0 1 0)
+ #style: #(#FontDescription #helvetica #medium #roman 10)
+ #resizeForLabel: true
+ #canUIDrag: false
+ )
+ #(#SliderSpec
+ #name: 'Slider'
+ #layout: #(#LayoutFrame 88 0 114 0 203 0 132 0)
+ #orientation: #horizontal
+ #step: 1
+ )
+ #(#LabelSpec
+ #label: 'Thumb Wheel'
+ #name: 'ThumbWheelLabel'
+ #layout: #(#AlignmentOrigin 83 0 145 0 1 0)
+ #style: #(#FontDescription #helvetica #medium #roman 10)
+ #resizeForLabel: true
+ #canUIDrag: false
+ )
+ #(#ThumbWheelSpec
+ #name: 'Thumb Wheel'
+ #layout: #(#LayoutFrame 88 0 140 0 203 0 160 0)
+ #orientation: #horizontal
+ #step: 1
+ )
+ #(#LabelSpec
+ #label: 'Region'
+ #name: 'RegionLabel'
+ #layout: #(#AlignmentOrigin 83 0 177 0 1 0)
+ #style: #(#FontDescription #helvetica #medium #roman 10)
+ #resizeForLabel: true
+ #adjust: #left
+ #canUIDrag: false
+ )
+ #(#RegionSpec
+ #name: 'Region'
+ #layout: #(#LayoutFrame 88 0 171 0 203 0 200 0)
+ #lineWidth: 2
+ #regionType: #ellipse
+ )
+ #(#LabelSpec
+ #label: 'Separator'
+ #name: 'SeparatorLabel'
+ #layout: #(#AlignmentOrigin 83 0 207 0 1 0)
+ #style: #(#FontDescription #helvetica #medium #roman 10)
+ #resizeForLabel: true
+ #adjust: #left
+ #canUIDrag: false
+ )
+ #(#DividerSpec
+ #name: 'Separator'
+ #layout: #(#LayoutFrame 88 0 213 0 203 0 217 0)
+ )
+ #(#LabelSpec
+ #label: 'Progress Indicator'
+ #name: 'ProgressIndicatorsLabel'
+ #layout: #(#AlignmentOrigin 333 0 117 0 1 0)
+ #style: #(#FontDescription #helvetica #medium #roman 10)
+ #resizeForLabel: true
+ #adjust: #left
+ #canUIDrag: false
+ )
+ #(#ProgressIndicatorSpec
+ #name: 'Progress Indicator'
+ #layout: #(#LayoutFrame 338 0 114 0 433 0 132 0)
+ )
+ #(#LabelSpec
+ #label: 'Round
Progress Indicator'
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #adjust: #left
- #resizeForLabel: true
- #canUIDrag: false
- )
- #(#RoundProgressIndicatorSpec
- #name: 'Round Progress Indicator'
- #layout: #(#LayoutFrame 350 0 148 0 445 0 243 0)
- #level: 0
- #borderWidth: 1
- )
- )
- )
+ #name: 'RoundProgressIndicatorsLabel'
+ #layout: #(#AlignmentOrigin 333 0 167 0 1 0)
+ #style: #(#FontDescription #helvetica #medium #roman 10)
+ #resizeForLabel: true
+ #adjust: #left
+ #canUIDrag: false
+ )
+ #(#RoundProgressIndicatorSpec
+ #name: 'Round Progress Indicator'
+ #layout: #(#LayoutFrame 338 0 136 0 425 0 219 0)
+ #level: 0
+ #borderWidth: 1
+ )
+ )
+
+ )
)
-
- "Modified: / 21.8.1998 / 20:53:14 / cg"
!
standardTexts
@@ -1216,77 +1298,51 @@
<resource: #canvas>
- ^
-
- #(#FullSpec
- #window:
- #(#WindowSpec
- #name: 'Texts'
- #layout: #(#LayoutFrame 102 0 279 0 568 0 485 0)
- #label: 'Texts'
- #min: #(#Point 10 10)
- #max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 102 279 569 486)
- #usePreferredExtent: false
- )
- #component:
- #(#SpecCollection
- #collection:
- #(
- #(#TextEditorSpec
- #name: 'Text Editor'
- #layout: #(#LayoutFrame 15 0 15 0 220 0 110 0)
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- )
- #(#LabelSpec
- #name: 'TextEditorLabel'
- #layout: #(#AlignmentOrigin 53 0 19 0 0 0)
- #label: 'Text Editor'
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #adjust: #left
- #resizeForLabel: true
- #canUIDrag: false
- )
- #(#HTMLViewSpec
- #name: 'HTML Browser'
- #layout: #(#LayoutFrame 240 0 15 0 445 0 110 0)
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- )
- #(#LabelSpec
- #name: 'HTMLViewLabel'
- #layout: #(#AlignmentOrigin 267 0 19 0 0 0)
- #label: 'HTML View'
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #adjust: #left
- #resizeForLabel: true
- #canUIDrag: false
- )
- #(#InputFieldSpec
- #name: 'Entry Field'
- #layout: #(#LayoutFrame 15 0 125 0 220 0 147 0)
- )
- #(#LabelSpec
- #name: 'EntryFieldLabel'
- #layout: #(#AlignmentOrigin 53 0 147 0 0 1)
- #label: 'Entry Field'
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #adjust: #left
- #resizeForLabel: true
- #canUIDrag: false
- )
- #(#LabelSpec
- #name: 'Label'
- #layout: #(#LayoutFrame 240 0 125 0 445 0 147 0)
- #label: 'Label'
- #translateLabel: true
- )
- )
- )
+ ^
+ #(#FullSpec
+ #name: #standardTexts
+ #window:
+ #(#WindowSpec
+ #label: 'Texts'
+ #name: 'Texts'
+ #layout: #(#LayoutFrame 164 0 305 0 602 0 447 0)
+ #level: 0
+ #min: #(#Point 10 10)
+ #max: #(#Point 1280 1024)
+ #bounds: #(#Rectangle 164 305 603 448)
+ #usePreferredExtent: false
+ #returnIsOKInDialog: true
+ #escapeIsCancelInDialog: true
+ )
+ #component:
+ #(#SpecCollection
+ #collection: #(
+ #(#TextEditorSpec
+ #name: 'Text Editor'
+ #layout: #(#LayoutFrame 3 0 3 0 208 0 98 0)
+ #hasHorizontalScrollBar: true
+ #hasVerticalScrollBar: true
+ )
+ #(#HTMLViewSpec
+ #name: 'HTML Browser'
+ #layout: #(#LayoutFrame 228 0 3 0 433 0 98 0)
+ #hasHorizontalScrollBar: true
+ #hasVerticalScrollBar: true
+ )
+ #(#InputFieldSpec
+ #name: 'Entry Field'
+ #layout: #(#LayoutFrame 3 0 113 0 208 0 135 0)
+ )
+ #(#LabelSpec
+ #label: 'Label'
+ #name: 'Label'
+ #layout: #(#LayoutFrame 228 0 113 0 433 0 135 0)
+ #translateLabel: true
+ )
+ )
+
+ )
)
-
- "Modified: / 20.5.1998 / 03:25:40 / cg"
!
standardUserPanel
@@ -1360,19 +1416,18 @@
paste:something
"paste something at a point
"
- |coll specs point device gallery ext spec|
+ |coll specs point device ext spec|
clipBoardSpec isNil ifTrue:[
clipBoardSpec := SpecCollection new.
clipBoardSpec collection:(OrderedCollection new).
].
- coll := clipBoardSpec collection.
- gallery := self builder componentAt:#gallery.
- device := gallery device.
+ coll := clipBoardSpec collection.
+ device := gallery device.
- point := device translatePoint:(device pointerPosition)
- from:(device rootView id)
- to:(gallery canvas id).
+ point := device translatePoint:(device pointerPosition)
+ from:(device rootView id)
+ to:(gallery canvas id).
point y < 1 ifTrue:[point y:1].
ext := gallery extent - (10@10).
@@ -1408,7 +1463,7 @@
(value := menu startUp) == #cut ifTrue:[
clipBoardSpec collection remove:spec ifAbsent:nil.
- (self builder componentAt:#gallery) update.
+ gallery update.
] ifFalse:[
value == #copy ifTrue:[
self window setSelection:spec
@@ -1435,41 +1490,24 @@
!UISelectionPanel methodsFor:'aspects'!
clientSpec
- "automatically generated by UIPainter ..."
-
- |holder|
-
- (holder := builder bindingAt:#clientSpec) isNil ifTrue:[
- builder aspectAt:#clientSpec put:(holder := ValueHolder new).
- holder addDependent:self.
- ].
- ^ holder
+ ^ gallery clientSpecHolder
!
clipBoardSpec
^ clipBoardSpec
!
-galleryList
- "automatically generated by UIPainter ..."
-
- |holder|
+gallery
+ ^ gallery
+!
- (holder := builder bindingAt:#galleryList) isNil ifTrue:[
- builder aspectAt:#galleryList put:(holder := ValueHolder new).
- ].
- ^ holder
+galleryList
+ ^ gallery listHolder
!
galleryModel
- "automatically generated by UIPainter ..."
-
- |holder|
+ ^ gallery model
- (holder := builder bindingAt:#galleryModel) isNil ifTrue:[
- builder aspectAt:#galleryModel put:(holder := ValueHolder new).
- ].
- ^ holder
!
majorChannel
@@ -1491,14 +1529,7 @@
!
minorKeys
- "automatically generated by UIPainter ..."
-
- |holder|
-
- (holder := builder bindingAt:#minorKeys) isNil ifTrue:[
- builder aspectAt:#minorKeys put:(holder := ValueHolder new).
- ].
- ^ holder
+ ^ gallery minorKeysHolder
! !
!UISelectionPanel methodsFor:'change & update'!
@@ -1593,21 +1624,18 @@
!
majorSelection:aSelection
- |spec g gallery|
+ |spec model|
(majorSelection == aSelection or:[aSelection == 0]) ifTrue:[
^ self
].
- (g := self builder componentAt:#gallery) notNil ifTrue:[
- g builder:nil.
- ].
-
+ gallery builder:nil.
majorSelection := aSelection.
spec := ((self class specifications) at:majorSelection) last.
- gallery := self galleryModel.
- gallery value:0.
+ model := self galleryModel.
+ model value:0.
self minorKeys value:nil.
spec isSymbol ifFalse:[
@@ -1616,7 +1644,7 @@
] ifTrue:[
self perform:spec.
].
- gallery value:1.
+ model value:1.
"Modified: / 21.4.1998 / 11:59:08 / cg"
! !
@@ -1638,12 +1666,24 @@
!
initialize
+ |holder|
+
super initialize.
userClass := UserClass.
userSpecs := UserSpecs.
userLabels := UserLabels.
+ gallery := UIGalleryView new.
+
+ gallery model:(ValueHolder new).
+ gallery listHolder:(ValueHolder new).
+ gallery minorKeysHolder:(ValueHolder new).
+ gallery menuSelector:#raiseMenu.
+
+ gallery clientSpecHolder:(holder := ValueHolder new).
+ holder addDependent:self.
+
majorSelection := 0.
!
@@ -1667,7 +1707,7 @@
builder := UIBuilder new isEditing:true.
builder application:self.
- (self builder componentAt:#gallery) builder:builder.
+ gallery builder:builder.
self galleryList value:#( '???' ).
self minorKeys value:#( standardUserPanel ).
]