hg/stx-libtool2: comparison UISelectionPanel.st

equal deleted inserted replaced

-:b5607fe14ab1
+:f5b47cc3e563
 "
 ApplicationModel subclass:#UISelectionPanel
-	instanceVariableNames:'userClass userSpecs userLabels majorSelection clipBoardSpec'
+	instanceVariableNames:'gallery userClass userSpecs userLabels majorSelection
+		clipBoardSpec'
 	classVariableNames:'UserClass UserSpecs UserLabels'
 	poolDictionaries:''
 	category:'Interface-UIPainter'
 !
 UISelectionPanel open
 "
 <resource: #canvas>
 ^
+#(#FullSpec
-#(#FullSpec
+#name: #windowSpec
 #window:
 #(#WindowSpec
-#name: 'Widget Gallery'
+#label: 'Widget Gallery'
-#layout: #(#LayoutFrame 134 0 100 0 654 0 382 0)
+#name: 'Widget Gallery'
-#label: 'Widget Gallery'
+#layout: #(#LayoutFrame 92 0 128 0 612 0 410 0)
-#min: #(#Point 100 280)
+#level: 0
-#max: #(#Point 1160 870)
+#min: #(#Point 100 280)
-#bounds: #(#Rectangle 134 100 655 383)
+#max: #(#Point 1160 870)
-#usePreferredExtent: false
+#bounds: #(#Rectangle 92 128 613 411)
-)
+#usePreferredExtent: false
-#component:
+#returnIsOKInDialog: true
-#(#SpecCollection
+#escapeIsCancelInDialog: true
-#collection:
+)
-#(
+#component:
-#(#UIGalleryViewSpec
+#(#SpecCollection
-#name: 'gallery'
+#collection: #(
-#layout: #(#LayoutFrame 0 0.0 0 0.0 -40 1.0 0 1.0)
+#(#NoteBookViewSpec
-#tabable: true
+#name: 'NoteBook1'
-#model: #galleryModel
+#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
-#menu: #galleryList
+#model: #majorChannel
-#useIndex: true
+#menu: #majorList
-#minorKeys: #minorKeys
+#direction: #right
-#clientSpec: #clientSpec
+#useIndex: true
-#raiseMenu: #raiseMenu
+#canvas: #gallery
 )
-#(#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
-)
-)
-)
 )
-"Modified: / 5.9.1998 / 17:43:14 / cg"
 ! !
 !UISelectionPanel class methodsFor:'menus'!
 menuSelected
 "Modified: / 29.10.1997 / 03:20:38 / cg"
 ! !
 !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."
 "Do not manually edit this!! If it is corrupted,
 UISelectionPanel new openInterface:#standardButtons
 "
 <resource: #canvas>
 ^
+#(#FullSpec
-#(#FullSpec
+#name: #standardButtons
 #window:
 #(#WindowSpec
-#name: 'Buttons'
+#label: 'Buttons'
-#layout: #(#LayoutFrame 39 0 189 0 517 0 392 0)
+#name: 'Buttons'
-#label: 'Buttons'
+#layout: #(#LayoutFrame 58 0 164 0 497 0 321 0)
-#min: #(#Point 10 10)
+#level: 0
-#max: #(#Point 1280 1024)
+#min: #(#Point 10 10)
-#bounds: #(#Rectangle 39 189 518 393)
+#max: #(#Point 1280 1024)
-#usePreferredExtent: false
+#bounds: #(#Rectangle 58 164 498 322)
-)
+#usePreferredExtent: false
-#component:
+#returnIsOKInDialog: true
-#(#SpecCollection
+#escapeIsCancelInDialog: true
-#collection:
+)
-#(
+#component:
-#(#ActionButtonSpec
+#(#SpecCollection
-#name: 'Button'
+#collection: #(
-#layout: #(#LayoutFrame 15 0 15 0 140 0 37 0)
+#(#ActionButtonSpec
 #label: 'Button'
-#translateLabel: true
+#name: 'Button'
-)
+#layout: #(#LayoutFrame 2 0 1 0 127 0 23 0)
-#(#ActionButtonSpec
+#translateLabel: true
-#name: 'Button - OK'
+)
-#layout: #(#LayoutFrame 15 0 47 0 140 0 69 0)
+#(#ActionButtonSpec
 #label: 'OK'
-#translateLabel: true
+#name: 'Button - OK'
-#model: #accept
+#layout: #(#LayoutFrame 2 0 33 0 127 0 55 0)
-)
+#translateLabel: true
-#(#ActionButtonSpec
+#model: #accept
-#name: 'Button - Cancel'
+)
-#layout: #(#LayoutFrame 15 0 79 0 140 0 101 0)
+#(#ActionButtonSpec
 #label: 'Cancel'
-#translateLabel: true
+#name: 'Button - Cancel'
-#model: #cancel
+#layout: #(#LayoutFrame 2 0 65 0 127 0 87 0)
-)
+#translateLabel: true
-#(#ActionButtonSpec
+#model: #cancel
-#name: 'Button - Help'
+)
-#layout: #(#LayoutFrame 15 0 111 0 140 0 133 0)
+#(#ActionButtonSpec
 #label: 'Help'
-#translateLabel: true
+#name: 'Button - Help'
-#model: #help
+#layout: #(#LayoutFrame 2 0 97 0 127 0 119 0)
-)
+#translateLabel: true
-#(#ActionButtonSpec
+#model: #help
-#name: 'Button - Close'
+)
-#layout: #(#LayoutFrame 15 0 143 0 140 0 165 0)
+#(#ActionButtonSpec
 #label: 'Close'
-#translateLabel: true
+#name: 'Button - Close'
-#model: #closeRequest
+#layout: #(#LayoutFrame 2 0 129 0 127 0 151 0)
-)
+#translateLabel: true
-#(#ToggleSpec
+#model: #closeRequest
-#name: 'Toggle'
+)
-#layout: #(#LayoutFrame 157 0 15 0 293 0 37 0)
+#(#ToggleSpec
 #label: 'Toggle'
-#isTriggerOnDown: true
+#name: 'Toggle'
-#translateLabel: true
+#layout: #(#LayoutFrame 144 0 1 0 280 0 23 0)
-#lampColor: #(#Color 100.0 100.0 0.0)
+#translateLabel: true
-)
+#isTriggerOnDown: true
-#(#RadioButtonSpec
+#lampColor: #(#Color 100.0 100.0 0.0)
-#name: 'Radio Button'
+)
-#layout: #(#LayoutFrame 157 0.0 47 0 293 0 69 0)
+#(#RadioButtonSpec
 #label: 'Radio Button'
-#isTriggerOnDown: true
+#name: 'Radio Button'
-#translateLabel: true
+#layout: #(#LayoutFrame 144 0.0 33 0 280 0 55 0)
-#lampColor: #(#Color 100.0 100.0 0.0)
+#translateLabel: true
-)
+#isTriggerOnDown: true
-#(#CheckBoxSpec
+#lampColor: #(#Color 100.0 100.0 0.0)
-#name: 'Check Box'
+)
-#layout: #(#LayoutFrame 157 0 79 0 293 0 101 0)
+#(#CheckBoxSpec
-#translateLabel: true
+#label: 'Check Box'
-#label: 'Check Box'
+#name: 'Check Box'
-)
+#layout: #(#LayoutFrame 144 0 65 0 280 0 87 0)
-#(#CheckToggleSpec
+#translateLabel: true
-#name: 'Check Toggle'
+)
-#layout: #(#LayoutOrigin 157 0 113 0)
+#(#CheckToggleSpec
-#isTriggerOnDown: true
+#name: 'Check Toggle'
-#showLamp: false
+#layout: #(#LayoutOrigin 144 0 99 0)
-#lampColor: #(#Color 100.0 100.0 0.0)
+#isTriggerOnDown: true
-)
+#showLamp: false
-#(#LabelSpec
+#lampColor: #(#Color 100.0 100.0 0.0)
-#name: 'CheckToggleLabel'
+)
-#layout: #(#AlignmentOrigin 183 0 112 0 0 0)
+#(#LabelSpec
 #label: 'Check Toggle'
-#adjust: #left
+#name: 'CheckToggleLabel'
-#resizeForLabel: true
+#layout: #(#AlignmentOrigin 170 0 98 0 0 0)
-#canUIDrag: false
+#resizeForLabel: true
-)
+#adjust: #left
-#(#ButtonSpec
+#canUIDrag: false
-#name: 'Model Button'
+)
-#layout: #(#LayoutFrame 309 0 15 0 445 0 37 0)
+#(#ButtonSpec
 #label: 'Model Button'
-#translateLabel: true
+#name: 'Model Button'
-)
+#layout: #(#LayoutFrame 296 0 1 0 432 0 23 0)
-#(#LabelSpec
+#translateLabel: true
-#name: 'UpDownButtonLabel'
+)
-#layout: #(#AlignmentOrigin 361 0 49 0 0 0)
+#(#LabelSpec
 #label: 'Spin Button'
-#adjust: #left
+#name: 'UpDownButtonLabel'
-#resizeForLabel: true
+#layout: #(#AlignmentOrigin 348 0 35 0 0 0)
-#canUIDrag: false
+#resizeForLabel: true
-)
+#adjust: #left
-#(#UpDownButtonSpec
+#canUIDrag: false
-#name: 'UpDown Button'
+)
-#layout: #(#LayoutFrame 309 0 47 0 354 0 69 0)
+#(#UpDownButtonSpec
-#orientation: #horizontal
+#name: 'UpDown Button'
-)
+#layout: #(#LayoutFrame 296 0 33 0 341 0 55 0)
-#(#LabelSpec
+#orientation: #horizontal
-#name: 'ArrowButtonsLabel'
+)
-#layout: #(#AlignmentOrigin 361 0 83 0 0 0)
+#(#LabelSpec
 #label: 'Arrow Button'
-#adjust: #left
+#name: 'ArrowButtonsLabel'
-#resizeForLabel: true
+#layout: #(#AlignmentOrigin 348 0 69 0 0 0)
-#canUIDrag: false
+#resizeForLabel: true
-)
+#adjust: #left
-#(#ArrowButtonSpec
+#canUIDrag: false
-#name: 'Arrow Button'
+)
-#layout: #(#LayoutFrame 309 0 79 0 331 0 101 0)
+#(#ArrowButtonSpec
-#isTriggerOnDown: true
+#name: 'Arrow Button'
-#direction: #right
+#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
 UISelectionPanel new openInterface:#standardGraphs
 "
 <resource: #canvas>
 ^
+#(#FullSpec
-#(#FullSpec
+#name: #standardGraphs
 #window:
 #(#WindowSpec
-#name: 'Graphs'
+#label: 'Graphs'
-#layout: #(#LayoutFrame 114 0 373 0 583 0 615 0)
+#name: 'Graphs'
-#label: 'Graphs'
+#layout: #(#LayoutFrame 81 0 219 0 519 0 333 0)
-#min: #(#Point 10 10)
+#level: 0
-#max: #(#Point 1280 1024)
+#min: #(#Point 10 10)
-#bounds: #(#Rectangle 114 373 584 616)
+#max: #(#Point 1280 1024)
-#usePreferredExtent: false
+#bounds: #(#Rectangle 81 219 520 334)
-)
+#usePreferredExtent: false
-#component:
+#returnIsOKInDialog: true
-#(#SpecCollection
+#escapeIsCancelInDialog: true
-#collection:
+)
-#(
+#component:
-#(#GraphColumnView2DSpec
+#(#SpecCollection
-#name: 'GraphColumnView2D'
+#collection: #(
-#layout: #(#LayoutFrame 15 0 15 0 220 0 110 0)
+#(#GraphColumnView2DSpec
-#gridX: 0
+#name: 'GraphColumnView2D'
-#gridY: 0
+#layout: #(#LayoutFrame 3 0 3 0 208 0 98 0)
-)
+#gridX: 0
-#(#LabelSpec
+#gridY: 0
-#name: 'GraphColumnView2DLabel'
+)
-#layout: #(#AlignmentOrigin 19 0 19 0 0 0)
+#(#LabelSpec
 #label: 'GraphColumnViewView2D'
-#style: #(#FontDescription #helvetica #medium #roman 10)
+#name: 'GraphColumnView2DLabel'
-#adjust: #left
+#layout: #(#AlignmentOrigin 7 0 7 0 0 0)
-#resizeForLabel: true
+#style: #(#FontDescription #helvetica #medium #roman 10)
-#canUIDrag: false
+#resizeForLabel: true
-)
+#adjust: #left
-#(#GraphColumnView3DSpec
+#canUIDrag: false
-#name: 'GraphColumnView3D'
+)
-#layout: #(#LayoutFrame 240 0 15 0 445 0 110 0)
+#(#GraphColumnView3DSpec
-)
+#name: 'GraphColumnView3D'
-#(#LabelSpec
+#layout: #(#LayoutFrame 228 0 3 0 433 0 98 0)
-#name: 'GraphColumnView3DLabel'
+)
-#layout: #(#AlignmentOrigin 244 0 19 0 0 0)
+#(#LabelSpec
 #label: 'GraphColumnViewView3D'
-#style: #(#FontDescription #helvetica #medium #roman 10)
+#name: 'GraphColumnView3DLabel'
-#adjust: #left
+#layout: #(#AlignmentOrigin 232 0 7 0 0 0)
-#resizeForLabel: true
+#style: #(#FontDescription #helvetica #medium #roman 10)
-#canUIDrag: false
+#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
 UISelectionPanel new openInterface:#standardGroups
 "
 <resource: #canvas>
 ^
+#(#FullSpec
-#(#FullSpec
+#name: #standardGroups
 #window:
 #(#WindowSpec
-#name: 'Groups'
+#label: 'Groups'
-#layout: #(#LayoutFrame 147 0 281 0 647 0 520 0)
+#name: 'Groups'
-#label: 'Groups'
+#layout: #(#LayoutFrame 92 0 174 0 534 0 395 0)
-#min: #(#Point 10 10)
+#level: 0
-#max: #(#Point 1280 1024)
+#min: #(#Point 10 10)
-#bounds: #(#Rectangle 147 281 648 521)
+#max: #(#Point 1280 1024)
-#usePreferredExtent: false
+#bounds: #(#Rectangle 92 174 535 396)
-)
+#usePreferredExtent: false
-#component:
+#returnIsOKInDialog: true
-#(#SpecCollection
+#escapeIsCancelInDialog: true
-#collection:
+)
-#(
+#component:
-#(#ViewSpec
+#(#SpecCollection
-#name: 'Box'
+#collection: #(
-#layout: #(#LayoutFrame 15 0 15 0 220 0 110 0)
+#(#ViewSpec
-)
+#name: 'Box'
-#(#LabelSpec
+#layout: #(#LayoutFrame 3 0 3 0 208 0 98 0)
-#name: 'ViewLabel'
+)
-#layout: #(#AlignmentOrigin 18 0 17 0 0 0)
+#(#LabelSpec
 #label: 'Box'
-#style: #(#FontDescription #helvetica #medium #roman 10)
+#name: 'ViewLabel'
-#adjust: #left
+#layout: #(#AlignmentOrigin 6 0 5 0 0 0)
-#resizeForLabel: true
+#style: #(#FontDescription #helvetica #medium #roman 10)
-#canUIDrag: false
+#resizeForLabel: true
-)
+#adjust: #left
-#(#LabelSpec
+#canUIDrag: false
-#name: 'VPanelLabel'
+)
-#layout: #(#LayoutFrame 15 0 116 0 220 0 139 0)
+#(#LabelSpec
 #label: 'Variable Panels'
-#style: #(#FontDescription #helvetica #medium #roman 10)
+#name: 'VPanelLabel'
-#adjust: #left
+#layout: #(#LayoutFrame 3 0 104 0 208 0 127 0)
-#canUIDrag: false
+#style: #(#FontDescription #helvetica #medium #roman 10)
-)
+#adjust: #left
-#(#VariableHorizontalPanelSpec
+#canUIDrag: false
-#name: 'Variable Horizontal Panel'
+)
-#layout: #(#LayoutFrame 15 0 140 0 110 0 230 0)
+#(#VariableHorizontalPanelSpec
-#component:
+#name: 'Variable Horizontal Panel'
-#(#SpecCollection
+#layout: #(#LayoutFrame 3 0 128 0 98 0 218 0)
-#collection:
+#handles: #(#Any 0.5 1.0)
-#(
+#component:
-#(#LabelSpec
+#(#SpecCollection
-#name: 'label4'
+#collection: #(
-#label: 'A'
+#(#LabelSpec
-#style: #(#FontDescription #helvetica #medium #roman 12)
+#label: 'A'
-#level: 2
+#name: 'label4'
-#canUIDrag: false
+#level: 2
-)
+#style: #(#FontDescription #helvetica #medium #roman 12)
-#(#LabelSpec
+#canUIDrag: false
-#name: 'label5'
+)
-#label: 'B'
+#(#LabelSpec
-#style: #(#FontDescription #helvetica #medium #roman 12)
+#label: 'B'
-#level: 2
+#name: 'label5'
-#canUIDrag: false
+#level: 2
-)
+#style: #(#FontDescription #helvetica #medium #roman 12)
-)
+#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
-#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
-)
 )
 )
+#(#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
+)
+)
+)
+)
+#(#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
 "This resource specification was automatically generated
 by the UIPainter of ST/X."
 UISelectionPanel new openInterface:#standardLists
 "
 <resource: #canvas>
 ^
+#(#FullSpec
-#(#FullSpec
+#name: #standardLists
 #window:
 #(#WindowSpec
-#name: 'Lists'
+#label: 'Lists'
-#layout: #(#LayoutFrame 164 0 52 0 633 0 294 0)
+#name: 'Lists'
-#label: 'Lists'
+#layout: #(#LayoutFrame 114 0 262 0 554 0 479 0)
-#min: #(#Point 10 10)
+#level: 0
-#max: #(#Point 1280 1024)
+#min: #(#Point 10 10)
-#bounds: #(#Rectangle 164 52 634 295)
+#max: #(#Point 1280 1024)
-#usePreferredExtent: false
+#bounds: #(#Rectangle 114 262 555 480)
-)
+#usePreferredExtent: false
-#component:
+#returnIsOKInDialog: true
-#(#SpecCollection
+#escapeIsCancelInDialog: true
-#collection:
+)
-#(
+#component:
-#(#SequenceViewSpec
+#(#SpecCollection
-#name: 'List'
+#collection: #(
-#layout: #(#LayoutFrame 15 0 30 0 220 0 110 0)
+#(#SequenceViewSpec
-#hasHorizontalScrollBar: true
+#name: 'List'
-#hasVerticalScrollBar: true
+#layout: #(#LayoutFrame 4 0 19 0 209 0 99 0)
-#useIndex: false
+#hasHorizontalScrollBar: true
-)
+#hasVerticalScrollBar: true
-#(#LabelSpec
+#useIndex: false
-#name: 'ListLabel'
+)
-#layout: #(#AlignmentOrigin 15 0 30 0 0 1)
+#(#LabelSpec
 #label: 'List'
-#style: #(#FontDescription #helvetica #medium #roman 10)
+#name: 'ListLabel'
-#adjust: #left
+#layout: #(#AlignmentOrigin 4 0 19 0 0 1)
-#resizeForLabel: true
+#style: #(#FontDescription #helvetica #medium #roman 10)
-#canUIDrag: false
+#resizeForLabel: true
-)
+#adjust: #left
-#(#SelectionInTreeViewSpec
+#canUIDrag: false
-#name: 'Tree List'
+)
-#layout: #(#LayoutFrame 15 0 145 0 220 0 225 0)
+#(#SelectionInTreeViewSpec
-#hasHorizontalScrollBar: true
+#name: 'Tree List'
-#hasVerticalScrollBar: true
+#layout: #(#LayoutFrame 4 0 134 0 209 0 214 0)
-)
+#hasHorizontalScrollBar: true
-#(#LabelSpec
+#hasVerticalScrollBar: true
-#name: 'TreeListLabel'
+#highlightMode: #line
-#layout: #(#AlignmentOrigin 15 0 145 0 0 1)
+)
-#label: 'Tree List'
+#(#DataSetSpec
-#style: #(#FontDescription #helvetica #medium #roman 10)
+#name: 'Table'
-#adjust: #left
+#layout: #(#LayoutFrame 229 0 19 0 434 0 99 0)
-#resizeForLabel: true
+#hasHorizontalScrollBar: true
-#canUIDrag: false
+#hasVerticalScrollBar: true
-)
+#has3Dsepartors: false
-#(#DataSetSpec
+)
-#name: 'Table'
+#(#FileSelectionTreeSpec
-#layout: #(#LayoutFrame 240 0 30 0 445 0 110 0)
+#name: 'File Tree List'
-#hasHorizontalScrollBar: true
+#layout: #(#LayoutFrame 229 0 134 0 434 0 214 0)
-#hasVerticalScrollBar: true
+#hasHorizontalScrollBar: true
-)
+#hasVerticalScrollBar: true
-#(#LabelSpec
+#highlightMode: #line
-#name: 'TableLabel'
+)
-#layout: #(#AlignmentOrigin 240 0 30 0 0 1)
+#(#LabelSpec
-#label: 'Table'
+#label: 'File Tree List'
-#style: #(#FontDescription #helvetica #medium #roman 10)
+#name: 'FileTreeListLabel'
-#adjust: #left
+#layout: #(#AlignmentOrigin 229 0 134 0 0 1)
-#resizeForLabel: true
+#style: #(#FontDescription #helvetica #medium #roman 10)
-#canUIDrag: false
+#resizeForLabel: true
-)
+#adjust: #left
-#(#FileSelectionTreeSpec
+#canUIDrag: false
-#name: 'File Tree List'
+)
-#layout: #(#LayoutFrame 240 0 145 0 445 0 225 0)
+#(#LabelSpec
-#hasHorizontalScrollBar: true
+#label: 'Table'
-#hasVerticalScrollBar: true
+#name: 'TableLabel'
-)
+#layout: #(#AlignmentOrigin 229 0 19 0 0 1)
-#(#LabelSpec
+#style: #(#FontDescription #helvetica #medium #roman 10)
-#name: 'FileTreeListLabel'
+#resizeForLabel: true
-#layout: #(#AlignmentOrigin 240 0 145 0 0 1)
+#adjust: #left
-#label: 'File Tree List'
+#canUIDrag: false
-#style: #(#FontDescription #helvetica #medium #roman 10)
+)
-#adjust: #left
+#(#LabelSpec
-#resizeForLabel: true
+#label: 'Tree List'
-#canUIDrag: false
+#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
 "This resource specification was automatically generated
 by the UIPainter of ST/X."
 UISelectionPanel new openInterface:#standardMenus
 "
 <resource: #canvas>
 ^
+#(#FullSpec
-#(#FullSpec
+#name: #standardMenus
 #window:
 #(#WindowSpec
-#name: 'Menus'
+#label: 'Menus'
-#layout: #(#LayoutFrame 110 0 120 0 586 0 342 0)
+#name: 'Menus'
-#level: 0
+#layout: #(#LayoutFrame 20 0 182 0 496 0 404 0)
-#label: 'Menus'
+#level: 0
 #min: #(#Point 10 10)
 #max: #(#Point 1280 1024)
-#bounds: #(#Rectangle 110 120 587 343)
+#bounds: #(#Rectangle 20 182 497 405)
 #usePreferredExtent: false
-)
+#returnIsOKInDialog: true
-#component:
+#escapeIsCancelInDialog: true
-#(#SpecCollection
+)
-#collection:
+#component:
-#(
+#(#SpecCollection
-#(#MenuPanelSpec
+#collection: #(
-#name: 'Tool Bar'
+#(#MenuPanelSpec
-#layout: #(#LayoutFrame 15 0 146 0 140 0 178 0)
+#name: 'Tool Bar'
-#textDefault: true
+#layout: #(#LayoutFrame 4 0 134 0 129 0 166 0)
-)
+#textDefault: true
-#(#LabelSpec
+)
-#name: 'ToolBarLabel'
+#(#LabelSpec
-#layout: #(#AlignmentOrigin 15 0 146 0 0 1)
+#label: 'Tool Bar'
-#label: 'Tool Bar'
+#name: 'ToolBarLabel'
-#style: #(#FontDescription #helvetica #medium #roman 10)
+#layout: #(#AlignmentOrigin 4 0 134 0 0 1)
-#resizeForLabel: true
+#style: #(#FontDescription #helvetica #medium #roman 10)
-#adjust: #left
+#resizeForLabel: true
-#canUIDrag: false
+#adjust: #left
-)
+#canUIDrag: false
-#(#MenuPanelSpec
+)
-#name: 'Menu Bar'
+#(#MenuPanelSpec
-#layout: #(#LayoutFrame 15 0 196 0 140 0 218 0)
+#name: 'Menu Bar'
-)
+#layout: #(#LayoutFrame 4 0 184 0 129 0 206 0)
-#(#LabelSpec
+)
-#name: 'MenuBarLabel'
+#(#LabelSpec
-#layout: #(#AlignmentOrigin 15 0 195 0 0 1)
+#label: 'Menu Bar'
-#label: 'Menu Bar'
+#name: 'MenuBarLabel'
-#style: #(#FontDescription #helvetica #medium #roman 10)
+#layout: #(#AlignmentOrigin 4 0 183 0 0 1)
-#resizeForLabel: true
+#style: #(#FontDescription #helvetica #medium #roman 10)
-#adjust: #left
+#resizeForLabel: true
-#canUIDrag: false
+#adjust: #left
-)
+#canUIDrag: false
-#(#PopUpListSpec
+)
-#name: 'PopUp List'
+#(#PopUpListSpec
-#layout: #(#LayoutFrame 15 0 15 0 140 0 37 0)
+#label: 'PopUp List'
-#label: 'PopUp List'
+#name: 'PopUp List'
-#useIndex: false
+#layout: #(#LayoutFrame 4 0 3 0 129 0 25 0)
-)
+#useIndex: false
-#(#ComboListSpec
+)
-#name: 'Combo List'
+#(#ComboListSpec
-#layout: #(#LayoutFrame 15 0 45 0 140 0 65 0)
+#name: 'Combo List'
-#useIndex: false
+#layout: #(#LayoutFrame 4 0 33 0 129 0 53 0)
-)
+#useIndex: false
-#(#LabelSpec
+)
-#name: 'ComboListLabel'
+#(#ComboBoxSpec
-#layout: #(#AlignmentOrigin 17 0 65 0 0 1)
+#name: 'Combo Box'
-#label: 'Combo List'
+#layout: #(#LayoutFrame 4 0 61 0 129 0 81 0)
-#style: #(#FontDescription #helvetica #medium #roman 10)
+)
-#resizeForLabel: true
+#(#ExtendedComboBoxSpec
-#adjust: #left
+#name: 'Extended Combo Box'
-#canUIDrag: false
+#layout: #(#LayoutFrame 4 0 88 0 129 0 108 0)
-)
+#miniScrollerHorizontal: true
-#(#ComboBoxSpec
+)
-#name: 'Combo Box'
+#(#TabViewSpec
-#layout: #(#LayoutFrame 15 0 73 0 140 0 93 0)
+#name: 'Tab Header'
-)
+#layout: #(#LayoutFrame 146 0 3 0 281 0 39 0)
-#(#LabelSpec
+)
-#name: 'ComboBoxLabel'
+#(#NoteBookViewSpec
-#layout: #(#AlignmentOrigin 17 0 93 0 0 1)
+#name: 'Note Book'
-#label: 'Combo Box'
+#layout: #(#LayoutFrame 146 0 46 0 281 0 138 0)
-#style: #(#FontDescription #helvetica #medium #roman 10)
+)
-#resizeForLabel: true
+#(#UIGalleryViewSpec
-#adjust: #left
+#name: 'Gallery'
-#canUIDrag: false
+#layout: #(#LayoutFrame 298 0 3 0 434 0 138 0)
 )
-#(#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)
-)
-)
-)
 )
 !
 standardMisc
 "This resource specification was automatically generated
 UISelectionPanel new openInterface:#standardMisc
 "
 <resource: #canvas>
 ^
+#(#FullSpec
-#(#FullSpec
+#name: #standardMisc
 #window:
 #(#WindowSpec
-#name: 'Misc'
+#label: 'Misc'
-#layout: #(#LayoutFrame 50 0 73 0 517 0 357 0)
+#name: 'Misc'
-#label: 'Misc'
+#layout: #(#LayoutFrame 172 0 325 0 613 0 547 0)
-#min: #(#Point 10 10)
+#level: 0
-#max: #(#Point 1280 1024)
+#min: #(#Point 10 10)
-#bounds: #(#Rectangle 50 73 518 358)
+#max: #(#Point 1280 1024)
-#usePreferredExtent: false
+#bounds: #(#Rectangle 172 325 614 548)
-)
+#usePreferredExtent: false
-#component:
+#returnIsOKInDialog: true
-#(#SpecCollection
+#escapeIsCancelInDialog: true
-#collection:
+)
-#(
+#component:
-#(#ArbitraryComponentSpec
+#(#SpecCollection
-#name: 'Arbitrary Component'
+#collection: #(
-#layout: #(#LayoutFrame 15 0 15 0 140 0 110 0)
+#(#ArbitraryComponentSpec
-#hasBorder: false
+#name: 'Arbitrary Component'
-)
+#layout: #(#LayoutFrame 3 0 3 0 128 0 98 0)
-#(#LabelSpec
+#hasBorder: false
-#name: 'ArbitraryComponentLabel1'
+)
-#layout: #(#AlignmentOrigin 19 0 19 0 0 0)
+#(#LabelSpec
 #label: 'Arbitrary'
-#style: #(#FontDescription #helvetica #medium #roman 10)
+#name: 'ArbitraryComponentLabel1'
-#adjust: #left
+#layout: #(#AlignmentOrigin 7 0 7 0 0 0)
-#resizeForLabel: true
+#style: #(#FontDescription #helvetica #medium #roman 10)
-#canUIDrag: false
+#resizeForLabel: true
-)
+#adjust: #left
-#(#LabelSpec
+#canUIDrag: false
-#name: 'ArbitraryComponentLabel2'
+)
-#layout: #(#AlignmentOrigin 19 0 43 0 0 0)
+#(#LabelSpec
 #label: 'Component'
-#style: #(#FontDescription #helvetica #medium #roman 10)
+#name: 'ArbitraryComponentLabel2'
-#adjust: #left
+#layout: #(#AlignmentOrigin 7 0 31 0 0 0)
-#resizeForLabel: true
+#style: #(#FontDescription #helvetica #medium #roman 10)
-#canUIDrag: false
+#resizeForLabel: true
-)
+#adjust: #left
-#(#UISubSpecification
+#canUIDrag: false
-#name: 'SubSpecification'
+)
-#layout: #(#LayoutFrame 157 0 15 0 292 0 110 0)
+#(#UISubSpecification
-)
+#name: 'SubSpecification'
-#(#LabelSpec
+#layout: #(#LayoutFrame 145 0 3 0 280 0 98 0)
-#name: 'SubSpecificationLabel'
+)
-#layout: #(#Point 161 19)
+#(#LabelSpec
 #label: 'SubSpecification'
-#style: #(#FontDescription #helvetica #medium #roman 10)
+#name: 'SubSpecificationLabel'
-#resizeForLabel: true
+#layout: #(#Point 149 7)
-#canUIDrag: false
+#style: #(#FontDescription #helvetica #medium #roman 10)
-)
+#resizeForLabel: true
-#(#SubCanvasSpec
+#canUIDrag: false
-#name: 'SubCanvas'
+)
-#layout: #(#LayoutFrame 309 0 15 0 445 0 110 0)
+#(#SubCanvasSpec
-#hasHorizontalScrollBar: true
+#name: 'SubCanvas'
-#hasVerticalScrollBar: true
+#layout: #(#LayoutFrame 297 0 3 0 433 0 98 0)
-)
+#hasHorizontalScrollBar: true
-#(#LabelSpec
+#hasVerticalScrollBar: true
-#name: 'SubCanvasLabel'
+)
-#layout: #(#AlignmentOrigin 336 0 19 0 0 0)
+#(#LabelSpec
 #label: 'SubCanvas'
-#style: #(#FontDescription #helvetica #medium #roman 10)
+#name: 'SubCanvasLabel'
-#adjust: #left
+#layout: #(#AlignmentOrigin 324 0 7 0 0 0)
-#resizeForLabel: true
+#style: #(#FontDescription #helvetica #medium #roman 10)
-#canUIDrag: false
+#resizeForLabel: true
-)
+#adjust: #left
-#(#LabelSpec
+#canUIDrag: false
-#name: 'SliderLabel'
+)
-#layout: #(#AlignmentOrigin 95 0 129 0 1 0)
+#(#LabelSpec
 #label: 'Slider'
-#style: #(#FontDescription #helvetica #medium #roman 10)
+#name: 'SliderLabel'
-#resizeForLabel: true
+#layout: #(#AlignmentOrigin 83 0 117 0 1 0)
-#canUIDrag: false
+#style: #(#FontDescription #helvetica #medium #roman 10)
-)
+#resizeForLabel: true
-#(#SliderSpec
+#canUIDrag: false
-#name: 'Slider'
+)
-#layout: #(#LayoutFrame 100 0 126 0 215 0 144 0)
+#(#SliderSpec
-#orientation: #horizontal
+#name: 'Slider'
-#step: 1
+#layout: #(#LayoutFrame 88 0 114 0 203 0 132 0)
-)
+#orientation: #horizontal
-#(#LabelSpec
+#step: 1
-#name: 'ThumbWheelLabel'
+)
-#layout: #(#AlignmentOrigin 95 0 157 0 1 0)
+#(#LabelSpec
 #label: 'Thumb Wheel'
-#style: #(#FontDescription #helvetica #medium #roman 10)
+#name: 'ThumbWheelLabel'
-#resizeForLabel: true
+#layout: #(#AlignmentOrigin 83 0 145 0 1 0)
-#canUIDrag: false
+#style: #(#FontDescription #helvetica #medium #roman 10)
-)
+#resizeForLabel: true
-#(#ThumbWheelSpec
+#canUIDrag: false
-#name: 'Thumb Wheel'
+)
-#layout: #(#LayoutFrame 100 0 152 0 215 0 172 0)
+#(#ThumbWheelSpec
-#orientation: #horizontal
+#name: 'Thumb Wheel'
-#step: 1
+#layout: #(#LayoutFrame 88 0 140 0 203 0 160 0)
-)
+#orientation: #horizontal
-#(#LabelSpec
+#step: 1
-#name: 'RegionLabel'
+)
-#layout: #(#AlignmentOrigin 95 0 189 0 1 0)
+#(#LabelSpec
 #label: 'Region'
-#style: #(#FontDescription #helvetica #medium #roman 10)
+#name: 'RegionLabel'
-#adjust: #left
+#layout: #(#AlignmentOrigin 83 0 177 0 1 0)
-#resizeForLabel: true
+#style: #(#FontDescription #helvetica #medium #roman 10)
-#canUIDrag: false
+#resizeForLabel: true
-)
+#adjust: #left
-#(#RegionSpec
+#canUIDrag: false
-#name: 'Region'
+)
-#layout: #(#LayoutFrame 100 0 183 0 215 0 212 0)
+#(#RegionSpec
-#lineWidth: 2
+#name: 'Region'
-#regionType: #ellipse
+#layout: #(#LayoutFrame 88 0 171 0 203 0 200 0)
-)
+#lineWidth: 2
-#(#LabelSpec
+#regionType: #ellipse
-#name: 'SeparatorLabel'
+)
-#layout: #(#AlignmentOrigin 95 0 219 0 1 0)
+#(#LabelSpec
 #label: 'Separator'
-#style: #(#FontDescription #helvetica #medium #roman 10)
+#name: 'SeparatorLabel'
-#adjust: #left
+#layout: #(#AlignmentOrigin 83 0 207 0 1 0)
-#resizeForLabel: true
+#style: #(#FontDescription #helvetica #medium #roman 10)
-#canUIDrag: false
+#resizeForLabel: true
-)
+#adjust: #left
-#(#DividerSpec
+#canUIDrag: false
-#name: 'Separator'
+)
-#layout: #(#LayoutFrame 100 0 225 0 215 0 229 0)
+#(#DividerSpec
-)
+#name: 'Separator'
-#(#LabelSpec
+#layout: #(#LayoutFrame 88 0 213 0 203 0 217 0)
-#name: 'ProgressIndicatorsLabel'
+)
-#layout: #(#AlignmentOrigin 345 0 129 0 1 0)
+#(#LabelSpec
 #label: 'Progress Indicator'
-#style: #(#FontDescription #helvetica #medium #roman 10)
+#name: 'ProgressIndicatorsLabel'
-#adjust: #left
+#layout: #(#AlignmentOrigin 333 0 117 0 1 0)
-#resizeForLabel: true
+#style: #(#FontDescription #helvetica #medium #roman 10)
-#canUIDrag: false
+#resizeForLabel: true
-)
+#adjust: #left
-#(#ProgressIndicatorSpec
+#canUIDrag: false
-#name: 'Progress Indicator'
+)
-#layout: #(#LayoutFrame 350 0 126 0 445 0 144 0)
+#(#ProgressIndicatorSpec
-)
+#name: 'Progress Indicator'
-#(#LabelSpec
+#layout: #(#LayoutFrame 338 0 114 0 433 0 132 0)
-#name: 'RoundProgressIndicatorsLabel'
+)
-#layout: #(#AlignmentOrigin 345 0 179 0 1 0)
+#(#LabelSpec
 #label: 'Round
 Progress Indicator'
-#style: #(#FontDescription #helvetica #medium #roman 10)
+#name: 'RoundProgressIndicatorsLabel'
-#adjust: #left
+#layout: #(#AlignmentOrigin 333 0 167 0 1 0)
-#resizeForLabel: true
+#style: #(#FontDescription #helvetica #medium #roman 10)
-#canUIDrag: false
+#resizeForLabel: true
-)
+#adjust: #left
-#(#RoundProgressIndicatorSpec
+#canUIDrag: false
-#name: 'Round Progress Indicator'
+)
-#layout: #(#LayoutFrame 350 0 148 0 445 0 243 0)
+#(#RoundProgressIndicatorSpec
-#level: 0
+#name: 'Round Progress Indicator'
-#borderWidth: 1
+#layout: #(#LayoutFrame 338 0 136 0 425 0 219 0)
-)
+#level: 0
-)
+#borderWidth: 1
 )
+)
+)
 )
-"Modified: / 21.8.1998 / 20:53:14 / cg"
 !
 standardTexts
 "This resource specification was automatically generated
 by the UIPainter of ST/X."
 UISelectionPanel new openInterface:#standardTexts
 "
 <resource: #canvas>
 ^
+#(#FullSpec
-#(#FullSpec
+#name: #standardTexts
 #window:
 #(#WindowSpec
-#name: 'Texts'
+#label: 'Texts'
-#layout: #(#LayoutFrame 102 0 279 0 568 0 485 0)
+#name: 'Texts'
-#label: 'Texts'
+#layout: #(#LayoutFrame 164 0 305 0 602 0 447 0)
-#min: #(#Point 10 10)
+#level: 0
-#max: #(#Point 1280 1024)
+#min: #(#Point 10 10)
-#bounds: #(#Rectangle 102 279 569 486)
+#max: #(#Point 1280 1024)
-#usePreferredExtent: false
+#bounds: #(#Rectangle 164 305 603 448)
-)
+#usePreferredExtent: false
-#component:
+#returnIsOKInDialog: true
-#(#SpecCollection
+#escapeIsCancelInDialog: true
-#collection:
+)
-#(
+#component:
-#(#TextEditorSpec
+#(#SpecCollection
-#name: 'Text Editor'
+#collection: #(
-#layout: #(#LayoutFrame 15 0 15 0 220 0 110 0)
+#(#TextEditorSpec
-#hasHorizontalScrollBar: true
+#name: 'Text Editor'
-#hasVerticalScrollBar: true
+#layout: #(#LayoutFrame 3 0 3 0 208 0 98 0)
-)
+#hasHorizontalScrollBar: true
-#(#LabelSpec
+#hasVerticalScrollBar: true
-#name: 'TextEditorLabel'
+)
-#layout: #(#AlignmentOrigin 53 0 19 0 0 0)
+#(#HTMLViewSpec
-#label: 'Text Editor'
+#name: 'HTML Browser'
-#style: #(#FontDescription #helvetica #medium #roman 10)
+#layout: #(#LayoutFrame 228 0 3 0 433 0 98 0)
-#adjust: #left
+#hasHorizontalScrollBar: true
-#resizeForLabel: true
+#hasVerticalScrollBar: true
-#canUIDrag: false
+)
-)
+#(#InputFieldSpec
-#(#HTMLViewSpec
+#name: 'Entry Field'
-#name: 'HTML Browser'
+#layout: #(#LayoutFrame 3 0 113 0 208 0 135 0)
-#layout: #(#LayoutFrame 240 0 15 0 445 0 110 0)
+)
-#hasHorizontalScrollBar: true
+#(#LabelSpec
-#hasVerticalScrollBar: true
+#label: 'Label'
-)
+#name: 'Label'
-#(#LabelSpec
+#layout: #(#LayoutFrame 228 0 113 0 433 0 135 0)
-#name: 'HTMLViewLabel'
+#translateLabel: true
-#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
-)
-)
-)
 )
-"Modified: / 20.5.1998 / 03:25:40 / cg"
 !
 standardUserPanel
 "this window spec was automatically generated by the ST/X UIPainter"
 !
 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.
+coll   := clipBoardSpec collection.
-gallery := self builder componentAt:#gallery.
+device := gallery device.
-device  := gallery device.
+point  := device translatePoint:(device pointerPosition)
-point   := device translatePoint:(device pointerPosition)
+from:(device rootView id)
-from:(device rootView id)
+to:(gallery canvas id).
-to:(gallery canvas id).
 point y < 1 ifTrue:[point y:1].
 ext := gallery extent - (10@10).
 (specs := something) isCollection ifFalse:[
 (menu someMenuItemWithValue:#cut) disable.
 ].
 (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
 ]
 ].
 ! !
 !UISelectionPanel methodsFor:'aspects'!
 clientSpec
-"automatically generated by UIPainter ..."
+^ gallery clientSpecHolder
-|holder|
-(holder := builder bindingAt:#clientSpec) isNil ifTrue:[
-builder aspectAt:#clientSpec put:(holder :=  ValueHolder new).
-holder addDependent:self.
-].
-^ holder
 !
 clipBoardSpec
 ^ clipBoardSpec
 !
+gallery
+^ gallery
+!
 galleryList
-"automatically generated by UIPainter ..."
+^ gallery listHolder
-|holder|
-(holder := builder bindingAt:#galleryList) isNil ifTrue:[
-builder aspectAt:#galleryList put:(holder :=  ValueHolder new).
-].
-^ holder
 !
 galleryModel
-"automatically generated by UIPainter ..."
+^ gallery model
-|holder|
-(holder := builder bindingAt:#galleryModel) isNil ifTrue:[
-builder aspectAt:#galleryModel put:(holder :=  ValueHolder new).
-].
-^ holder
 !
 majorChannel
 "automatically generated by UIPainter ..."
 "
 ^ self class specifications collect:[:el| el first]
 !
 minorKeys
-"automatically generated by UIPainter ..."
+^ gallery minorKeysHolder
-|holder|
-(holder := builder bindingAt:#minorKeys) isNil ifTrue:[
-builder aspectAt:#minorKeys put:(holder :=  ValueHolder new).
-].
-^ holder
 ! !
 !UISelectionPanel methodsFor:'change & update'!
 update:something with:aParameter from:changedObject
 majorSelection
 ^ majorSelection ? 0
 !
 majorSelection:aSelection
-|spec g gallery|
+|spec model|
 (majorSelection == aSelection or:[aSelection == 0]) ifTrue:[
 ^ self
 ].
-(g := self builder componentAt:#gallery) notNil ifTrue:[
+gallery builder:nil.
-g builder:nil.
-].
 majorSelection := aSelection.
 spec := ((self class specifications) at:majorSelection) last.
-gallery := self galleryModel.
+model := self galleryModel.
-gallery value:0.
+model value:0.
 self minorKeys value:nil.
 spec isSymbol ifFalse:[
 self galleryList  value:(spec collect:[:a| a first]).
 self minorKeys setValue:(spec collect:[:a| a last]).
 ] ifTrue:[
 self perform:spec.
 ].
-gallery value:1.
+model value:1.
 "Modified: / 21.4.1998 / 11:59:08 / cg"
 ! !
 !UISelectionPanel methodsFor:'startup / release'!
 "Modified: 28.7.1997 / 09:44:40 / cg"
 !
 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.
 !
 postOpenWith:aBuilder
 self minorKeys   value:sel.
 ] ifFalse:[
 builder := UIBuilder new isEditing:true.
 builder application:self.
-(self builder componentAt:#gallery) builder:builder.
+gallery builder:builder.
 self galleryList value:#( '???' ).
 self minorKeys   value:#( standardUserPanel ).
 ]
 !

changeset 1142	f5b47cc3e563
parent 1141	b5607fe14ab1
child 1143	b04847a679fc