--- a/UISelectionPanel.st Tue Sep 08 12:28:09 1998 +0200
+++ b/UISelectionPanel.st Tue Sep 08 12:28:52 1998 +0200
@@ -1,6 +1,6 @@
"
COPYRIGHT (c) 1997 by Claus Gittinger / eXept Software AG
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -31,7 +31,7 @@
copyright
"
COPYRIGHT (c) 1997 by Claus Gittinger / eXept Software AG
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -50,17 +50,17 @@
into the UIPainter by drag & drop.
[start with:]
- UISelectionPanel open
+ UISelectionPanel open
[author:]
- Claus Gittinger
- Claus Atzkern
+ Claus Gittinger
+ Claus Atzkern
[see also:]
- TabView
- NoteBookView
- UIGalleryView
- UIPainter
+ TabView
+ NoteBookView
+ UIGalleryView
+ UIPainter
"
@@ -82,22 +82,22 @@
specifications
^ #(
- #( 'Standard' #(
- #('Buttons' standardButtons)
- #('Menus' standardMenus)
- #('Text' standardTexts)
- #('Lists' standardLists)
- #('Groups' standardGroups)
- #('Misc' standardMisc)
- )
- )
+ #( 'Standard' #(
+ #('Buttons' standardButtons)
+ #('Menus' standardMenus)
+ #('Text' standardTexts)
+ #('Lists' standardLists)
+ #('Groups' standardGroups)
+ #('Misc' standardMisc)
+ )
+ )
- #( 'Clipboard' #(
- #('Copy & Paste Buffer' clipBoardSpec)
- )
- )
+ #( 'Clipboard' #(
+ #('Copy & Paste Buffer' clipBoardSpec)
+ )
+ )
- #( 'User Def.' #userDefined )
+ #( 'User Def.' #userDefined )
)
"Modified: / 21.4.1998 / 12:04:22 / cg"
@@ -120,9 +120,9 @@
"
UISelectionPanel
- userClass:UISelectionPanel::VariableUserDefinedGallery
- specSelector:#listOfSelectors
- labelSelector:#listOfLabels
+ userClass:UISelectionPanel::VariableUserDefinedGallery
+ specSelector:#listOfSelectors
+ labelSelector:#listOfLabels
"
"Modified: / 5.12.1997 / 13:54:47 / cg"
@@ -147,171 +147,165 @@
^
#(#FullSpec
- #window:
- #(#WindowSpec
- #name: 'uIPainterView'
- #layout: #(#LayoutFrame 110 0 366 0 424 0 581 0)
- #label: 'Painter'
- #min: #(#Point 10 10)
- #max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 110 366 425 582)
- #usePreferredExtent: false
- )
- #component:
- #(#SpecCollection
- #collection:
- #(
- #(#LabelSpec
- #name: 'title'
- #layout: #(#Point 5 10)
- #label: 'Class & selectors to access user specs:'
- #adjust: #left
- #resizeForLabel: true
- )
- #(#LabelSpec
- #name: 'classLabel'
- #layout: #(#AlignmentOrigin 68 0.11 51 0 1 0.5)
- #label: 'Class:'
- #adjust: #right
- #resizeForLabel: true
- )
- #(#InputFieldSpec
- #name: 'classField'
- #layout: #(#LayoutFrame 74 0.11 39 0 -5 1.0 61 0)
- #tabable: true
- #model: #className
- #type: #string
- )
- #(#LabelSpec
- #name: 'labelsLabel'
- #layout: #(#AlignmentOrigin 68 0.11 74 0 1 0.5)
- #label: 'Labels:'
- #adjust: #right
- #resizeForLabel: true
- )
- #(#InputFieldSpec
- #name: 'labelsField'
- #layout: #(#LayoutFrame 74 0.11 64 0 -5 1.0 86 0)
- #tabable: true
- #model: #labelsKey
- #type: #symbolOrNil
- )
- #(#LabelSpec
- #name: 'specsLabel'
- #layout: #(#AlignmentOrigin 68 0.11 99 0 1 0.5)
- #label: 'Specifications:'
- #adjust: #right
- #resizeForLabel: true
- )
- #(#InputFieldSpec
- #name: 'specsField'
- #layout: #(#LayoutFrame 74 0.11 89 0 -5 1.0 111 0)
- #tabable: true
- #model: #specsKey
- #type: #symbolOrNil
- )
- #(#HorizontalPanelViewSpec
- #name: 'commitPanel'
- #layout: #(#LayoutFrame 0 0.0 -23 1.0 0 1.0 0 1.0)
- #component:
- #(#SpecCollection
- #collection:
- #(
- #(#ActionButtonSpec
- #name: 'cancel'
- #label: 'cancel'
- #tabable: true
- #model: #cancel
- #extent: #(#Point 153 23)
- )
- #(#ActionButtonSpec
- #name: 'accept'
- #label: 'ok'
- #tabable: true
- #model: #accept
- #isDefault: true
- #extent: #(#Point 153 23)
- )
- )
- )
- #horizontalLayout: #fitSpace
- #verticalLayout: #fit
- #horizontalSpace: 3
- #verticalSpace: 3
- )
- #(#CheckBoxSpec
- #name: 'updateDefaultResources'
- #layout: #(#Point 5 133)
- #model: #updateDefaultResources
- #label: 'Update Default Resources'
- )
- )
- )
+ #window:
+ #(#WindowSpec
+ #name: 'uIPainterView'
+ #layout: #(#LayoutFrame 110 0 366 0 424 0 581 0)
+ #label: 'Painter'
+ #min: #(#Point 10 10)
+ #max: #(#Point 1280 1024)
+ #bounds: #(#Rectangle 110 366 425 582)
+ #usePreferredExtent: false
+ )
+ #component:
+ #(#SpecCollection
+ #collection:
+ #(
+ #(#LabelSpec
+ #name: 'title'
+ #layout: #(#Point 5 10)
+ #label: 'Class & selectors to access user specs:'
+ #adjust: #left
+ #resizeForLabel: true
+ )
+ #(#LabelSpec
+ #name: 'classLabel'
+ #layout: #(#AlignmentOrigin 68 0.11 51 0 1 0.5)
+ #label: 'Class:'
+ #adjust: #right
+ #resizeForLabel: true
+ )
+ #(#InputFieldSpec
+ #name: 'classField'
+ #layout: #(#LayoutFrame 74 0.11 39 0 -5 1.0 61 0)
+ #tabable: true
+ #model: #className
+ #type: #string
+ )
+ #(#LabelSpec
+ #name: 'labelsLabel'
+ #layout: #(#AlignmentOrigin 68 0.11 74 0 1 0.5)
+ #label: 'Labels:'
+ #adjust: #right
+ #resizeForLabel: true
+ )
+ #(#InputFieldSpec
+ #name: 'labelsField'
+ #layout: #(#LayoutFrame 74 0.11 64 0 -5 1.0 86 0)
+ #tabable: true
+ #model: #labelsKey
+ #type: #symbolOrNil
+ )
+ #(#LabelSpec
+ #name: 'specsLabel'
+ #layout: #(#AlignmentOrigin 68 0.11 99 0 1 0.5)
+ #label: 'Specifications:'
+ #adjust: #right
+ #resizeForLabel: true
+ )
+ #(#InputFieldSpec
+ #name: 'specsField'
+ #layout: #(#LayoutFrame 74 0.11 89 0 -5 1.0 111 0)
+ #tabable: true
+ #model: #specsKey
+ #type: #symbolOrNil
+ )
+ #(#HorizontalPanelViewSpec
+ #name: 'commitPanel'
+ #layout: #(#LayoutFrame 0 0.0 -23 1.0 0 1.0 0 1.0)
+ #component:
+ #(#SpecCollection
+ #collection:
+ #(
+ #(#ActionButtonSpec
+ #name: 'cancel'
+ #label: 'cancel'
+ #tabable: true
+ #model: #cancel
+ #extent: #(#Point 153 23)
+ )
+ #(#ActionButtonSpec
+ #name: 'accept'
+ #label: 'ok'
+ #tabable: true
+ #model: #accept
+ #isDefault: true
+ #extent: #(#Point 153 23)
+ )
+ )
+ )
+ #horizontalLayout: #fitSpace
+ #verticalLayout: #fit
+ #horizontalSpace: 3
+ #verticalSpace: 3
+ )
+ #(#CheckBoxSpec
+ #name: 'updateDefaultResources'
+ #layout: #(#Point 5 133)
+ #model: #updateDefaultResources
+ #label: 'Update Default Resources'
+ )
+ )
+ )
)
!
windowSpec
- "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:#windowSpec
UISelectionPanel new openInterface:#windowSpec
+ UISelectionPanel open
"
- "UISelectionPanel open"
<resource: #canvas>
^
-
+
#(#FullSpec
- #'window:'
- #(#WindowSpec
- #'name:' 'Widget Gallery'
- #'layout:' #(#LayoutFrame 78 0 70 0 598 0 352 0)
- #'label:' 'Widget Gallery'
- #'min:' #(#Point 100 280)
- #'max:' #(#Point 1160 870)
- #'bounds:' #(#Rectangle 78 70 599 353)
- )
- #'component:'
- #(#SpecCollection
- #'collection:'
- #(
- #(#UIGalleryViewSpec
- #'name:' 'gallery'
- #'layout:' #(#LayoutFrame 0 0.0 0 0.0 -40 1.0 0 1.0)
- #'tabable:' true
- #'menu:' #galleryList
- #'style:'
- #(#FontDescription
- #helvetica #medium
- #roman #'10'
- )
- #'model:' #galleryModel
- #'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)
- #'menu:' #majorList
- #'style:'
- #(#FontDescription
- #helvetica #medium
- #roman #'10'
- )
- #'model:' #majorChannel
- #'direction:' #right
- #'useIndex:' true
- )
- )
- )
+ #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
+ )
+ )
+ )
)
+
+ "Modified: / 5.9.1998 / 17:43:14 / cg"
! !
!UISelectionPanel class methodsFor:'menus'!
@@ -321,18 +315,18 @@
<resource: #menu>
^ #(#Menu #(
- #(#MenuItem
- #'label:' 'copy'
- #'value:' #copy
- )
- #(#MenuItem
- #'label:' 'cut'
- #'value:' #cut
- )
- )
- nil
- nil
- )
+ #(#MenuItem
+ #'label:' 'copy'
+ #'value:' #copy
+ )
+ #(#MenuItem
+ #'label:' 'cut'
+ #'value:' #cut
+ )
+ )
+ nil
+ nil
+ )
"Modified: / 29.10.1997 / 03:20:30 / cg"
!
@@ -341,14 +335,14 @@
<resource: #menu>
^ #(#Menu #(
- #(#MenuItem
- #'label:' 'paste'
- #'value:' #paste
- )
- )
- nil
- nil
- )
+ #(#MenuItem
+ #'label:' 'paste'
+ #'value:' #paste
+ )
+ )
+ nil
+ nil
+ )
"Modified: / 29.10.1997 / 03:20:38 / cg"
! !
@@ -372,126 +366,126 @@
^
#(#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
- )
- )
- )
+ #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
+ )
+ )
+ )
)
"Modified: / 20.5.1998 / 03:25:21 / cg"
@@ -513,50 +507,50 @@
^
#(#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
- )
- )
- )
+ #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
+ )
+ )
+ )
)
!
@@ -576,238 +570,238 @@
^
#(#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)
- )
- #(#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
- #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
- #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
- )
- )
- )
+ #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)
+ )
+ #(#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
+ #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
+ #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
+ )
+ )
+ )
)
"Modified: / 20.5.1998 / 03:26:08 / cg"
@@ -830,83 +824,83 @@
^
#(#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
- )
- )
- )
+ #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
+ )
+ )
+ )
)
"Modified: / 21.4.1998 / 20:36:36 / cg"
@@ -929,121 +923,121 @@
^
#(#FullSpec
- #window:
- #(#WindowSpec
- #name: 'Menus'
- #layout: #(#LayoutFrame 216 0 173 0 692 0 395 0)
- #label: 'Menus'
- #min: #(#Point 10 10)
- #max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 216 173 693 396)
- #usePreferredExtent: false
- )
- #component:
- #(#SpecCollection
- #collection:
- #(
- #(#MenuPanelSpec
- #name: 'Tool Bar'
- #layout: #(#LayoutFrame 15 0 123 0 140 0 155 0)
- #textDefault: true
- )
- #(#LabelSpec
- #name: 'ToolBarLabel'
- #layout: #(#AlignmentOrigin 15 0 123 0 0 1)
- #label: 'Tool Bar'
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #adjust: #left
- #resizeForLabel: true
- #canUIDrag: false
- )
- #(#MenuPanelSpec
- #name: 'Menu Bar'
- #layout: #(#LayoutFrame 15 0 181 0 140 0 203 0)
- )
- #(#LabelSpec
- #name: 'MenuBarLabel'
- #layout: #(#AlignmentOrigin 15 0 181 0 0 1)
- #label: 'Menu Bar'
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #adjust: #left
- #resizeForLabel: true
- #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)
- #adjust: #left
- #resizeForLabel: true
- #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)
- #adjust: #left
- #resizeForLabel: true
- #canUIDrag: false
- )
- #(#TabViewSpec
- #name: 'Tab Header'
- #layout: #(#LayoutFrame 157 0 15 0 292 0 51 0)
- )
- #(#LabelSpec
- #name: 'TabHeaderLabel'
- #layout: #(#Point 160 33)
- #label: 'Tab Header'
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #adjust: #left
- #resizeForLabel: true
- #canUIDrag: false
- )
- #(#NoteBookViewSpec
- #name: 'Note Book'
- #layout: #(#LayoutFrame 157 0 58 0 292 0 150 0)
- )
- #(#LabelSpec
- #name: 'NoteBookLabel'
- #layout: #(#Point 161 132)
- #label: 'Note Book'
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #adjust: #left
- #resizeForLabel: true
- #canUIDrag: false
- )
- #(#UIGalleryViewSpec
- #name: 'Gallery'
- #layout: #(#LayoutFrame 309 0 15 0 445 0 150 0)
- )
- #(#LabelSpec
- #name: 'GalleryLabel'
- #layout: #(#Point 313 132)
- #label: 'Gallery'
- #style: #(#FontDescription #helvetica #medium #roman 10)
- #adjust: #left
- #resizeForLabel: true
- #canUIDrag: false
- )
- )
- )
+ #window:
+ #(#WindowSpec
+ #name: 'Menus'
+ #layout: #(#LayoutFrame 216 0 173 0 692 0 395 0)
+ #label: 'Menus'
+ #min: #(#Point 10 10)
+ #max: #(#Point 1280 1024)
+ #bounds: #(#Rectangle 216 173 693 396)
+ #usePreferredExtent: false
+ )
+ #component:
+ #(#SpecCollection
+ #collection:
+ #(
+ #(#MenuPanelSpec
+ #name: 'Tool Bar'
+ #layout: #(#LayoutFrame 15 0 123 0 140 0 155 0)
+ #textDefault: true
+ )
+ #(#LabelSpec
+ #name: 'ToolBarLabel'
+ #layout: #(#AlignmentOrigin 15 0 123 0 0 1)
+ #label: 'Tool Bar'
+ #style: #(#FontDescription #helvetica #medium #roman 10)
+ #adjust: #left
+ #resizeForLabel: true
+ #canUIDrag: false
+ )
+ #(#MenuPanelSpec
+ #name: 'Menu Bar'
+ #layout: #(#LayoutFrame 15 0 181 0 140 0 203 0)
+ )
+ #(#LabelSpec
+ #name: 'MenuBarLabel'
+ #layout: #(#AlignmentOrigin 15 0 181 0 0 1)
+ #label: 'Menu Bar'
+ #style: #(#FontDescription #helvetica #medium #roman 10)
+ #adjust: #left
+ #resizeForLabel: true
+ #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)
+ #adjust: #left
+ #resizeForLabel: true
+ #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)
+ #adjust: #left
+ #resizeForLabel: true
+ #canUIDrag: false
+ )
+ #(#TabViewSpec
+ #name: 'Tab Header'
+ #layout: #(#LayoutFrame 157 0 15 0 292 0 51 0)
+ )
+ #(#LabelSpec
+ #name: 'TabHeaderLabel'
+ #layout: #(#Point 160 33)
+ #label: 'Tab Header'
+ #style: #(#FontDescription #helvetica #medium #roman 10)
+ #adjust: #left
+ #resizeForLabel: true
+ #canUIDrag: false
+ )
+ #(#NoteBookViewSpec
+ #name: 'Note Book'
+ #layout: #(#LayoutFrame 157 0 58 0 292 0 150 0)
+ )
+ #(#LabelSpec
+ #name: 'NoteBookLabel'
+ #layout: #(#Point 161 132)
+ #label: 'Note Book'
+ #style: #(#FontDescription #helvetica #medium #roman 10)
+ #adjust: #left
+ #resizeForLabel: true
+ #canUIDrag: false
+ )
+ #(#UIGalleryViewSpec
+ #name: 'Gallery'
+ #layout: #(#LayoutFrame 309 0 15 0 445 0 150 0)
+ )
+ #(#LabelSpec
+ #name: 'GalleryLabel'
+ #layout: #(#Point 313 132)
+ #label: 'Gallery'
+ #style: #(#FontDescription #helvetica #medium #roman 10)
+ #adjust: #left
+ #resizeForLabel: true
+ #canUIDrag: false
+ )
+ )
+ )
)
"Modified: / 6.6.1998 / 16:54:56 / cg"
@@ -1066,157 +1060,157 @@
^
#(#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
+ #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
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
- )
- )
- )
+ #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
+ )
+ )
+ )
)
"Modified: / 21.8.1998 / 20:53:14 / cg"
@@ -1239,71 +1233,71 @@
^
#(#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
- )
- )
- )
+ #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
+ )
+ )
+ )
)
"Modified: / 20.5.1998 / 03:25:40 / cg"
@@ -1325,26 +1319,26 @@
^
#(#FullSpec
- #'window:'
- #(#WindowSpec
- #'name:' 'UserPanel'
- #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #'label:' 'UserPanel'
- #'bounds:' #(#Rectangle 0 0 445 162)
- )
- #'component:'
- #(#SpecCollection
- #'collection:'
- #(
- #(#LabelSpec
- #'name:' 'helpText'
- #'layout:' #(#Point 10 0)
- #'labelChannel:' #userDefinedHelpText
- #'resizeForLabel:' true
- #'canUIDrag:' false
- )
- )
- )
+ #'window:'
+ #(#WindowSpec
+ #'name:' 'UserPanel'
+ #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+ #'label:' 'UserPanel'
+ #'bounds:' #(#Rectangle 0 0 445 162)
+ )
+ #'component:'
+ #(#SpecCollection
+ #'collection:'
+ #(
+ #(#LabelSpec
+ #'name:' 'helpText'
+ #'layout:' #(#Point 10 0)
+ #'labelChannel:' #userDefinedHelpText
+ #'resizeForLabel:' true
+ #'canUIDrag:' false
+ )
+ )
+ )
)
! !
@@ -1360,20 +1354,20 @@
bd at:#updateDefaultResources put:(false asValue).
(self openDialogInterface:#nameAndSelectorSpec withBindings:bd) ifTrue:[
- ( (cls := (bd at:#className) value) notNil
- and:[(sel := (bd at:#specsKey) value) notNil
- and:[(lbl := (bd at:#labelsKey) value) notNil]]
- ) ifTrue:[
- userClass := cls.
- userSpecs := sel.
- userLabels := lbl.
+ ( (cls := (bd at:#className) value) notNil
+ and:[(sel := (bd at:#specsKey) value) notNil
+ and:[(lbl := (bd at:#labelsKey) value) notNil]]
+ ) ifTrue:[
+ userClass := cls.
+ userSpecs := sel.
+ userLabels := lbl.
- (bd at:#updateDefaultResources) value ifTrue:[
- UserClass := userClass.
- UserSpecs := userSpecs.
- UserLabels := userLabels.
- ]
- ]
+ (bd at:#updateDefaultResources) value ifTrue:[
+ UserClass := userClass.
+ UserSpecs := userSpecs.
+ UserLabels := userLabels.
+ ]
+ ]
].
!
@@ -1383,32 +1377,32 @@
|coll specs point device gallery ext spec|
clipBoardSpec isNil ifTrue:[
- clipBoardSpec := SpecCollection new.
- clipBoardSpec collection:(OrderedCollection new).
+ clipBoardSpec := SpecCollection new.
+ clipBoardSpec collection:(OrderedCollection new).
].
coll := clipBoardSpec collection.
gallery := self builder componentAt:#gallery.
device := gallery device.
point := device translatePoint:(device pointerPosition)
- from:(device rootView id)
- to:(gallery canvas id).
+ from:(device rootView id)
+ to:(gallery canvas id).
point y < 1 ifTrue:[point y:1].
ext := gallery extent - (10@10).
(specs := something) isCollection ifFalse:[
- specs := Array with:something
+ specs := Array with:something
].
specs do:[:aSpec|
- point x > ext x ifTrue:[point x:1].
- point y > ext y ifTrue:[point y:1].
+ point x > ext x ifTrue:[point x:1].
+ point y > ext y ifTrue:[point y:1].
- spec := aSpec copy.
- spec layout:(LayoutOrigin fromPoint:point).
- coll add:spec.
- point := point + (20@20).
+ spec := aSpec copy.
+ spec layout:(LayoutOrigin fromPoint:point).
+ coll add:spec.
+ point := point + (20@20).
].
gallery update.
!
@@ -1421,34 +1415,34 @@
spec := self clientSpec value.
spec notNil ifTrue:[
- menu := self class menuSelected decodeAsLiteralArray.
- self isClipBoard ifFalse:[
- (menu someMenuItemWithValue:#cut) disable.
- ].
+ menu := self class menuSelected decodeAsLiteralArray.
+ self isClipBoard ifFalse:[
+ (menu someMenuItemWithValue:#cut) disable.
+ ].
- (value := menu startUp) == #cut ifTrue:[
- clipBoardSpec collection remove:spec ifAbsent:nil.
- (self builder componentAt:#gallery) update.
- ] ifFalse:[
- value == #copy ifTrue:[
- self window setSelection:spec
- ]
- ].
+ (value := menu startUp) == #cut ifTrue:[
+ clipBoardSpec collection remove:spec ifAbsent:nil.
+ (self builder componentAt:#gallery) update.
+ ] ifFalse:[
+ value == #copy ifTrue:[
+ self window setSelection:spec
+ ]
+ ].
^ self
].
self isUserBoard ifTrue:[
- ^ self defineClassAndSelector
+ ^ self defineClassAndSelector
].
paste := self window getSelection.
(self canPaste:paste) ifTrue:[
- menu := self class menuUnselected decodeAsLiteralArray.
+ menu := self class menuUnselected decodeAsLiteralArray.
- (menu startUp) == #paste ifTrue:[
- self paste:paste
- ]
+ (menu startUp) == #paste ifTrue:[
+ self paste:paste
+ ]
].
! !
@@ -1460,8 +1454,8 @@
|holder|
(holder := builder bindingAt:#clientSpec) isNil ifTrue:[
- builder aspectAt:#clientSpec put:(holder := ValueHolder new).
- holder addDependent:self.
+ builder aspectAt:#clientSpec put:(holder := ValueHolder new).
+ holder addDependent:self.
].
^ holder
!
@@ -1476,7 +1470,7 @@
|holder|
(holder := builder bindingAt:#galleryList) isNil ifTrue:[
- builder aspectAt:#galleryList put:(holder := ValueHolder new).
+ builder aspectAt:#galleryList put:(holder := ValueHolder new).
].
^ holder
!
@@ -1487,7 +1481,7 @@
|holder|
(holder := builder bindingAt:#galleryModel) isNil ifTrue:[
- builder aspectAt:#galleryModel put:(holder := ValueHolder new).
+ builder aspectAt:#galleryModel put:(holder := ValueHolder new).
].
^ holder
!
@@ -1498,8 +1492,8 @@
|holder|
(holder := builder bindingAt:#majorChannel) isNil ifTrue:[
- holder := AspectAdaptor new subject:self; forAspect:#majorSelection.
- builder aspectAt:#majorChannel put:holder.
+ holder := AspectAdaptor new subject:self; forAspect:#majorSelection.
+ builder aspectAt:#majorChannel put:holder.
].
^ holder
!
@@ -1516,7 +1510,7 @@
|holder|
(holder := builder bindingAt:#minorKeys) isNil ifTrue:[
- builder aspectAt:#minorKeys put:(holder := ValueHolder new).
+ builder aspectAt:#minorKeys put:(holder := ValueHolder new).
].
^ holder
! !
@@ -1529,13 +1523,13 @@
|channel label topView|
(channel := self clientSpec) == changedObject ifTrue:[
- topView := builder window topView.
+ topView := builder window topView.
- (label := channel value) notNil ifTrue:[
- topView label:label name, ' '.
- ] ifFalse:[
- topView label:'Widget Gallery '
- ]
+ (label := channel value) notNil ifTrue:[
+ topView label:label name, ' '.
+ ] ifFalse:[
+ topView label:'Widget Gallery '
+ ]
].
super update:something with:aParameter from:changedObject.
@@ -1556,14 +1550,14 @@
top := DragAndDropManager dragOriginatorQuerySignal raise topView.
top == aComponent topView ifTrue:[
- spc := self clientSpec value.
- spc isNil ifTrue:[^ self].
+ spc := self clientSpec value.
+ spc isNil ifTrue:[^ self].
- (clipBoardSpec collection remove:spc ifAbsent:nil) isNil ifTrue:[
- ^ self
- ].
+ (clipBoardSpec collection remove:spc ifAbsent:nil) isNil ifTrue:[
+ ^ self
+ ].
] ifFalse:[
- spc := something collect:[:el| el theObject].
+ spc := something collect:[:el| el theObject].
].
self paste:spc.
! !
@@ -1574,13 +1568,13 @@
"returns true if something could be paste
"
(self isClipBoard and:[something notNil]) ifTrue:[
- something isCollection ifTrue:[
- something notEmpty ifTrue:[
- ^ (something at:1) isKindOf:UISpecification
- ]
- ] ifFalse:[
- ^ something isKindOf:UISpecification
- ]
+ something isCollection ifTrue:[
+ something notEmpty ifTrue:[
+ ^ (something at:1) isKindOf:UISpecification
+ ]
+ ] ifFalse:[
+ ^ something isKindOf:UISpecification
+ ]
].
^ false
@@ -1590,7 +1584,7 @@
"returns true if current view is clip board
"
majorSelection ~~ 0 ifTrue:[
- ^ (self majorList at:majorSelection) startsWith:'Clip'
+ ^ (self majorList at:majorSelection) startsWith:'Clip'
].
^ false
!
@@ -1599,7 +1593,7 @@
"returns true if current view is clip board
"
majorSelection ~~ 0 ifTrue:[
- ^ (self majorList at:majorSelection) startsWith:'User'
+ ^ (self majorList at:majorSelection) startsWith:'User'
].
^ false
! !
@@ -1614,11 +1608,11 @@
|spec g gallery|
(majorSelection == aSelection or:[aSelection == 0]) ifTrue:[
- ^ self
+ ^ self
].
(g := self builder componentAt:#gallery) notNil ifTrue:[
- g builder:nil.
+ g builder:nil.
].
majorSelection := aSelection.
@@ -1629,10 +1623,10 @@
self minorKeys value:nil.
spec isSymbol ifFalse:[
- self galleryList value:(spec collect:[:a| a first]).
- self minorKeys setValue:(spec collect:[:a| a last]).
+ self galleryList value:(spec collect:[:a| a first]).
+ self minorKeys setValue:(spec collect:[:a| a last]).
] ifTrue:[
- self perform:spec.
+ self perform:spec.
].
gallery value:1.
@@ -1645,11 +1639,11 @@
|sav|
(sav := masterApplication) notNil ifTrue:[
- masterApplication := nil.
- sav closeRequestFor:(self window).
- masterApplication := sav.
+ masterApplication := nil.
+ sav closeRequestFor:(self window).
+ masterApplication := sav.
] ifFalse:[
- super closeRequest.
+ super closeRequest.
]
"Modified: 28.7.1997 / 09:44:40 / cg"
@@ -1677,17 +1671,17 @@
cls := self resolveName:userClass.
(cls notNil and:[(cls respondsTo:userLabels)]) ifTrue:[
- lbl := cls perform:userLabels.
- sel := Array new:(lbl size) withAll:#userDefinedSpec.
- self galleryList value:lbl.
- self minorKeys value:sel.
+ lbl := cls perform:userLabels.
+ sel := Array new:(lbl size) withAll:#userDefinedSpec.
+ self galleryList value:lbl.
+ self minorKeys value:sel.
] ifFalse:[
- builder := UIBuilder new isEditing:true.
+ builder := UIBuilder new isEditing:true.
- builder application:self.
- (self builder componentAt:#gallery) builder:builder.
- self galleryList value:#( '???' ).
- self minorKeys value:#( standardUserPanel ).
+ builder application:self.
+ (self builder componentAt:#gallery) builder:builder.
+ self galleryList value:#( '???' ).
+ self minorKeys value:#( standardUserPanel ).
]
!
@@ -1706,15 +1700,15 @@
cls := self resolveName:userClass.
(cls notNil and:[(cls respondsTo:userSpecs)]) ifTrue:[
- spc := cls perform:userSpecs.
- idx := self galleryModel value.
+ spc := cls perform:userSpecs.
+ idx := self galleryModel value.
- idx <= spc size ifTrue:[
- spc := spc at:idx.
- (cls respondsTo:spc) ifTrue:[
- ^ cls perform:spc
- ]
- ]
+ idx <= spc size ifTrue:[
+ spc := spc at:idx.
+ (cls respondsTo:spc) ifTrue:[
+ ^ cls perform:spc
+ ]
+ ]
].
^ nil
! !
@@ -1731,9 +1725,9 @@
NextUniqueNumber := 1.
UISelectionPanel
- userClass:self
- specSelector:#listOfSelectors
- labelSelector:#listOfLabels.
+ userClass:self
+ specSelector:#listOfSelectors
+ labelSelector:#listOfLabels.
"
self initialize
@@ -1764,7 +1758,7 @@
copyright
"
COPYRIGHT (c) 1997 by eXept Software AG
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -1793,17 +1787,17 @@
frameworks class-initialization methods.
[start with:]
- UISelectionPanel open
+ UISelectionPanel open
[author:]
- Claus Gittinger
- Claus Atzkern
+ Claus Gittinger
+ Claus Atzkern
[see also:]
- TabView
- NoteBookView
- UIGalleryView
- UIPainter
+ TabView
+ NoteBookView
+ UIGalleryView
+ UIPainter
"
@@ -1825,12 +1819,12 @@
idx := LabelList indexOf:aLabelString.
idx ~~ 0 ifTrue:[
- SelectorList at:idx put:syntheticSelector.
- HolderList at:idx put:aValueHolder
+ SelectorList at:idx put:syntheticSelector.
+ HolderList at:idx put:aValueHolder
] ifFalse:[
- LabelList addLast:aLabelString.
- SelectorList addLast:syntheticSelector.
- HolderList addLast:aValueHolder
+ LabelList addLast:aLabelString.
+ SelectorList addLast:syntheticSelector.
+ HolderList addLast:aValueHolder
]
"Modified: / 5.12.1997 / 14:13:17 / cg"
@@ -1844,9 +1838,9 @@
idx := LabelList indexOf:aLabelString.
idx ~~ 0 ifTrue:[
- LabelList removeIndex:idx.
- SelectorList removeIndex:idx.
- HolderList removeIndex:idx
+ LabelList removeIndex:idx.
+ SelectorList removeIndex:idx.
+ HolderList removeIndex:idx
].
"Modified: / 5.12.1997 / 14:13:45 / cg"
@@ -1872,77 +1866,77 @@
^
#(#FullSpec
- #window:
- #(#WindowSpec
- #name: 'Interface Builder'
- #layout: #(#LayoutFrame 402 0 59 0 781 0 329 0)
- #label: 'Interface Builder'
- #min: #(#Point 10 10)
- #max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 402 59 782 330)
- #usePreferredExtent: false
- )
- #component:
- #(#SpecCollection
- #collection:
- #(
- #(#ArbitraryComponentSpec
- #name: 'Analog Clock'
- #layout: #(#LayoutFrame 15 0 39 0 129 0 151 0)
- #component: #ClockView
- #hasBorder: false
- )
- #(#ArbitraryComponentSpec
- #name: 'Digital Clock'
- #layout: #(#LayoutOrigin 15 0 176 0)
- #component: #DigitalClockView
- #hasBorder: false
- )
- #(#ArbitraryComponentSpec
- #name: 'Digital Number display'
- #layout: #(#LayoutOrigin 142 0 39 0)
- #component: #DigitalLedDisplay
- #hasBorder: false
- )
- #(#LabelSpec
- #name: 'Label1'
- #layout: #(#LayoutFrame 15 0 16 0 128 0 38 0)
- #label: 'Analog Clock'
- #translateLabel: true
- #adjust: #left
- #canUIDrag: false
- )
- #(#LabelSpec
- #name: 'Label2'
- #layout: #(#LayoutFrame 142 0 16 0 270 0 38 0)
- #label: 'Number Display'
- #translateLabel: true
- #adjust: #left
- #canUIDrag: false
- )
- #(#LabelSpec
- #name: 'Label3'
- #layout: #(#LayoutFrame 15 0 155 0 128 0 177 0)
- #label: 'Digital Clock'
- #translateLabel: true
- #adjust: #left
- #canUIDrag: false
- )
- #(#MeterWidgetSpec
- #name: 'Meter Widget'
- #layout: #(#Rectangle 143 101 248 216)
- #model: #meterValue
- )
- #(#LabelSpec
- #name: 'Label4'
- #layout: #(#LayoutFrame 142 0 74 0 269 0 96 0)
- #label: 'Meter Widget'
- #translateLabel: true
- #adjust: #left
- #canUIDrag: false
- )
- )
- )
+ #window:
+ #(#WindowSpec
+ #name: 'Interface Builder'
+ #layout: #(#LayoutFrame 402 0 59 0 781 0 329 0)
+ #label: 'Interface Builder'
+ #min: #(#Point 10 10)
+ #max: #(#Point 1280 1024)
+ #bounds: #(#Rectangle 402 59 782 330)
+ #usePreferredExtent: false
+ )
+ #component:
+ #(#SpecCollection
+ #collection:
+ #(
+ #(#ArbitraryComponentSpec
+ #name: 'Analog Clock'
+ #layout: #(#LayoutFrame 15 0 39 0 129 0 151 0)
+ #component: #ClockView
+ #hasBorder: false
+ )
+ #(#ArbitraryComponentSpec
+ #name: 'Digital Clock'
+ #layout: #(#LayoutOrigin 15 0 176 0)
+ #component: #DigitalClockView
+ #hasBorder: false
+ )
+ #(#ArbitraryComponentSpec
+ #name: 'Digital Number display'
+ #layout: #(#LayoutOrigin 142 0 39 0)
+ #component: #DigitalLedDisplay
+ #hasBorder: false
+ )
+ #(#LabelSpec
+ #name: 'Label1'
+ #layout: #(#LayoutFrame 15 0 16 0 128 0 38 0)
+ #label: 'Analog Clock'
+ #translateLabel: true
+ #adjust: #left
+ #canUIDrag: false
+ )
+ #(#LabelSpec
+ #name: 'Label2'
+ #layout: #(#LayoutFrame 142 0 16 0 270 0 38 0)
+ #label: 'Number Display'
+ #translateLabel: true
+ #adjust: #left
+ #canUIDrag: false
+ )
+ #(#LabelSpec
+ #name: 'Label3'
+ #layout: #(#LayoutFrame 15 0 155 0 128 0 177 0)
+ #label: 'Digital Clock'
+ #translateLabel: true
+ #adjust: #left
+ #canUIDrag: false
+ )
+ #(#MeterWidgetSpec
+ #name: 'Meter Widget'
+ #layout: #(#Rectangle 143 101 248 216)
+ #model: #meterValue
+ )
+ #(#LabelSpec
+ #name: 'Label4'
+ #layout: #(#LayoutFrame 142 0 74 0 269 0 96 0)
+ #label: 'Meter Widget'
+ #translateLabel: true
+ #adjust: #left
+ #canUIDrag: false
+ )
+ )
+ )
)
!
@@ -1968,10 +1962,10 @@
|sel idx|
((sel := aMessage selector) startsWith:'userSpec') ifTrue:[
- idx := SelectorList indexOf:sel.
- idx ~~ 0 ifTrue:[
- ^ (HolderList at:idx) value
- ]
+ idx := SelectorList indexOf:sel.
+ idx ~~ 0 ifTrue:[
+ ^ (HolderList at:idx) value
+ ]
].
^ super doesNotUnderstand:aMessage
@@ -1985,9 +1979,9 @@
|idx|
(aSelector startsWith:'userSpec') ifTrue:[
- idx := Number fromString:(aSelector copyFrom:9).
- idx := SelectorList indexOf:aSelector.
- idx ~~ 0 ifTrue:[^ true].
+ idx := Number fromString:(aSelector copyFrom:9).
+ idx := SelectorList indexOf:aSelector.
+ idx ~~ 0 ifTrue:[^ true].
].
^ super respondsTo:aSelector