hg/stx-libtool2: comparison UISelectionPanel.st

equal deleted inserted replaced

-:4361ba4dbbdc
+:1147acb8ac80
 "
 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
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 "
 ApplicationModel subclass:#UISelectionPanel
-	instanceVariableNames:'userClass userSpecs userLabels majorSelection clipBoardSpec'
+instanceVariableNames:'userClass userSpecs userLabels majorSelection clipBoardSpec'
-	classVariableNames:'UserClass UserSpecs UserLabels'
+classVariableNames:'UserClass UserSpecs UserLabels'
-	poolDictionaries:''
+poolDictionaries:''
-	category:'Interface-UIPainter'
+category:'Interface-UIPainter'
 !
 Object subclass:#UserDefinedGallery
-	instanceVariableNames:''
+instanceVariableNames:''
-	classVariableNames:'LabelList SelectorList HolderList NextUniqueNumber'
+classVariableNames:'LabelList SelectorList HolderList NextUniqueNumber'
-	poolDictionaries:''
+poolDictionaries:''
-	privateIn:UISelectionPanel
+privateIn:UISelectionPanel
 !
 !UISelectionPanel class methodsFor:'documentation'!
 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
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 "
 implements a selection panel, keeping widgets which could be placed
 into the UIPainter by drag & drop.
 [start with:]
-	UISelectionPanel open
+UISelectionPanel open
 [author:]
-	Claus Gittinger
+Claus Gittinger
-	Claus Atzkern
+Claus Atzkern
 [see also:]
-	TabView
+TabView
-	NoteBookView
+NoteBookView
-	UIGalleryView
+UIGalleryView
-	UIPainter
+UIPainter
 "
 ! !
 !UISelectionPanel class methodsFor:'accessing'!
 specifications
 ^ #(
-	#( 'Standard'  #(
+#( 'Standard'  #(
-			    #('Buttons' standardButtons)
+#('Buttons' standardButtons)
-			    #('Menus'   standardMenus)
+#('Menus'   standardMenus)
-			    #('Text'    standardTexts)
+#('Text'    standardTexts)
-			    #('Lists'   standardLists)
+#('Lists'   standardLists)
-			    #('Groups'  standardGroups)
+#('Groups'  standardGroups)
-			    #('Misc'    standardMisc)
+#('Misc'    standardMisc)
-			 )
+)
-	 )
+)
-	#( 'Clipboard'  #(
+#( 'Clipboard'  #(
-			    #('Copy & Paste Buffer'     clipBoardSpec)
+#('Copy & Paste Buffer'     clipBoardSpec)
-			  )
+)
-	 )
+)
-	#( 'User Def.'   #userDefined )
+#( 'User Def.'   #userDefined )
 )
 "Modified: / 21.4.1998 / 12:04:22 / cg"
 !
 UserSpecs := aSpecAccessSelector.
 UserLabels := aLabelListAccessSelector.
 "
 UISelectionPanel
-	userClass:UISelectionPanel::VariableUserDefinedGallery
+userClass:UISelectionPanel::VariableUserDefinedGallery
-	specSelector:#listOfSelectors
+specSelector:#listOfSelectors
-	labelSelector:#listOfLabels
+labelSelector:#listOfLabels
 "
 "Modified: / 5.12.1997 / 13:54:47 / cg"
 "Created: / 5.12.1997 / 13:56:10 / cg"
 ! !
 <resource: #canvas>
 ^
 #(#FullSpec
-	  #window:
+#window:
-	   #(#WindowSpec
+#(#WindowSpec
-	      #name: 'uIPainterView'
+#name: 'uIPainterView'
-	      #layout: #(#LayoutFrame 110 0 366 0 424 0 581 0)
+#layout: #(#LayoutFrame 110 0 366 0 424 0 581 0)
-	      #label: 'Painter'
+#label: 'Painter'
-	      #min: #(#Point 10 10)
+#min: #(#Point 10 10)
-	      #max: #(#Point 1280 1024)
+#max: #(#Point 1280 1024)
-	      #bounds: #(#Rectangle 110 366 425 582)
+#bounds: #(#Rectangle 110 366 425 582)
-	      #usePreferredExtent: false
+#usePreferredExtent: false
-	  )
+)
-	  #component:
+#component:
-	   #(#SpecCollection
+#(#SpecCollection
-	      #collection:
+#collection:
-	       #(
+#(
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'title'
+#name: 'title'
-		    #layout: #(#Point 5 10)
+#layout: #(#Point 5 10)
-		    #label: 'Class & selectors to access user specs:'
+#label: 'Class & selectors to access user specs:'
-		    #adjust: #left
+#adjust: #left
-		    #resizeForLabel: true
+#resizeForLabel: true
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'classLabel'
+#name: 'classLabel'
-		    #layout: #(#AlignmentOrigin 68 0.11 51 0 1 0.5)
+#layout: #(#AlignmentOrigin 68 0.11 51 0 1 0.5)
-		    #label: 'Class:'
+#label: 'Class:'
-		    #adjust: #right
+#adjust: #right
-		    #resizeForLabel: true
+#resizeForLabel: true
-		)
+)
-		 #(#InputFieldSpec
+#(#InputFieldSpec
-		    #name: 'classField'
+#name: 'classField'
-		    #layout: #(#LayoutFrame 74 0.11 39 0 -5 1.0 61 0)
+#layout: #(#LayoutFrame 74 0.11 39 0 -5 1.0 61 0)
-		    #tabable: true
+#tabable: true
-		    #model: #className
+#model: #className
-		    #type: #string
+#type: #string
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'labelsLabel'
+#name: 'labelsLabel'
-		    #layout: #(#AlignmentOrigin 68 0.11 74 0 1 0.5)
+#layout: #(#AlignmentOrigin 68 0.11 74 0 1 0.5)
-		    #label: 'Labels:'
+#label: 'Labels:'
-		    #adjust: #right
+#adjust: #right
-		    #resizeForLabel: true
+#resizeForLabel: true
-		)
+)
-		 #(#InputFieldSpec
+#(#InputFieldSpec
-		    #name: 'labelsField'
+#name: 'labelsField'
-		    #layout: #(#LayoutFrame 74 0.11 64 0 -5 1.0 86 0)
+#layout: #(#LayoutFrame 74 0.11 64 0 -5 1.0 86 0)
-		    #tabable: true
+#tabable: true
-		    #model: #labelsKey
+#model: #labelsKey
-		    #type: #symbolOrNil
+#type: #symbolOrNil
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'specsLabel'
+#name: 'specsLabel'
-		    #layout: #(#AlignmentOrigin 68 0.11 99 0 1 0.5)
+#layout: #(#AlignmentOrigin 68 0.11 99 0 1 0.5)
-		    #label: 'Specifications:'
+#label: 'Specifications:'
-		    #adjust: #right
+#adjust: #right
-		    #resizeForLabel: true
+#resizeForLabel: true
-		)
+)
-		 #(#InputFieldSpec
+#(#InputFieldSpec
-		    #name: 'specsField'
+#name: 'specsField'
-		    #layout: #(#LayoutFrame 74 0.11 89 0 -5 1.0 111 0)
+#layout: #(#LayoutFrame 74 0.11 89 0 -5 1.0 111 0)
-		    #tabable: true
+#tabable: true
-		    #model: #specsKey
+#model: #specsKey
-		    #type: #symbolOrNil
+#type: #symbolOrNil
-		)
+)
-		 #(#HorizontalPanelViewSpec
+#(#HorizontalPanelViewSpec
-		    #name: 'commitPanel'
+#name: 'commitPanel'
-		    #layout: #(#LayoutFrame 0 0.0 -23 1.0 0 1.0 0 1.0)
+#layout: #(#LayoutFrame 0 0.0 -23 1.0 0 1.0 0 1.0)
-		    #component:
+#component:
-		     #(#SpecCollection
+#(#SpecCollection
-			#collection:
+#collection:
-			 #(
+#(
-			   #(#ActionButtonSpec
+#(#ActionButtonSpec
-			      #name: 'cancel'
+#name: 'cancel'
-			      #label: 'cancel'
+#label: 'cancel'
-			      #tabable: true
+#tabable: true
-			      #model: #cancel
+#model: #cancel
-			      #extent: #(#Point 153 23)
+#extent: #(#Point 153 23)
-			  )
+)
-			   #(#ActionButtonSpec
+#(#ActionButtonSpec
-			      #name: 'accept'
+#name: 'accept'
-			      #label: 'ok'
+#label: 'ok'
-			      #tabable: true
+#tabable: true
-			      #model: #accept
+#model: #accept
-			      #isDefault: true
+#isDefault: true
-			      #extent: #(#Point 153 23)
+#extent: #(#Point 153 23)
-			  )
+)
-			)
+)
-		    )
+)
-		    #horizontalLayout: #fitSpace
+#horizontalLayout: #fitSpace
-		    #verticalLayout: #fit
+#verticalLayout: #fit
-		    #horizontalSpace: 3
+#horizontalSpace: 3
-		    #verticalSpace: 3
+#verticalSpace: 3
-		)
+)
-		 #(#CheckBoxSpec
+#(#CheckBoxSpec
-		    #name: 'updateDefaultResources'
+#name: 'updateDefaultResources'
-		    #layout: #(#Point 5 133)
+#layout: #(#Point 5 133)
-		    #model: #updateDefaultResources
+#model: #updateDefaultResources
-		    #label: 'Update Default Resources'
+#label: 'Update Default Resources'
-		)
+)
-	      )
+)
-	  )
+)
 )
 !
 windowSpec
 "This resource specification was automatically generated
 <resource: #canvas>
 ^
 #(#FullSpec
-	  #window:
+#window:
-	   #(#WindowSpec
+#(#WindowSpec
-	      #name: 'Widget Gallery'
+#name: 'Widget Gallery'
-	      #layout: #(#LayoutFrame 134 0 100 0 654 0 382 0)
+#layout: #(#LayoutFrame 134 0 100 0 654 0 382 0)
-	      #label: 'Widget Gallery'
+#label: 'Widget Gallery'
-	      #min: #(#Point 100 280)
+#min: #(#Point 100 280)
-	      #max: #(#Point 1160 870)
+#max: #(#Point 1160 870)
-	      #bounds: #(#Rectangle 134 100 655 383)
+#bounds: #(#Rectangle 134 100 655 383)
-	      #usePreferredExtent: false
+#usePreferredExtent: false
-	  )
+)
-	  #component:
+#component:
-	   #(#SpecCollection
+#(#SpecCollection
-	      #collection:
+#collection:
-	       #(
+#(
-		 #(#UIGalleryViewSpec
+#(#UIGalleryViewSpec
-		    #name: 'gallery'
+#name: 'gallery'
-		    #layout: #(#LayoutFrame 0 0.0 0 0.0 -40 1.0 0 1.0)
+#layout: #(#LayoutFrame 0 0.0 0 0.0 -40 1.0 0 1.0)
-		    #tabable: true
+#tabable: true
-		    #model: #galleryModel
+#model: #galleryModel
-		    #menu: #galleryList
+#menu: #galleryList
-		    #useIndex: true
+#useIndex: true
-		    #minorKeys: #minorKeys
+#minorKeys: #minorKeys
-		    #clientSpec: #clientSpec
+#clientSpec: #clientSpec
-		    #raiseMenu: #raiseMenu
+#raiseMenu: #raiseMenu
-		)
+)
-		 #(#TabViewSpec
+#(#TabViewSpec
-		    #name: 'major'
+#name: 'major'
-		    #layout: #(#LayoutFrame -40 1.0 30 0.0 0 1.0 0 1.0)
+#layout: #(#LayoutFrame -40 1.0 30 0.0 0 1.0 0 1.0)
-		    #model: #majorChannel
+#model: #majorChannel
-		    #menu: #majorList
+#menu: #majorList
-		    #direction: #right
+#direction: #right
-		    #useIndex: true
+#useIndex: true
-		)
+)
-	      )
+)
-	  )
+)
 )
 "Modified: / 5.9.1998 / 17:43:14 / cg"
 ! !
 menuSelected
 <resource: #menu>
 ^ #(#Menu #(
-		#(#MenuItem
+#(#MenuItem
-			#'label:' 'copy'
+#'label:' 'copy'
-			#'value:' #copy
+#'value:' #copy
-		 )
+)
-		#(#MenuItem
+#(#MenuItem
-			#'label:' 'cut'
+#'label:' 'cut'
-			#'value:' #cut
+#'value:' #cut
-		 )
+)
-		)
+)
-	       nil
+nil
-	       nil
+nil
-	)
+)
 "Modified: / 29.10.1997 / 03:20:30 / cg"
 !
 menuUnselected
 <resource: #menu>
 ^ #(#Menu #(
-		#(#MenuItem
+#(#MenuItem
-			#'label:' 'paste'
+#'label:' 'paste'
-			#'value:' #paste
+#'value:' #paste
-		 )
+)
-		)
+)
-	       nil
+nil
-	       nil
+nil
-	)
+)
 "Modified: / 29.10.1997 / 03:20:38 / cg"
 ! !
 !UISelectionPanel class methodsFor:'standard specifications'!
 <resource: #canvas>
 ^
 #(#FullSpec
-	  #window:
+#window:
-	   #(#WindowSpec
+#(#WindowSpec
-	      #name: 'Buttons'
+#name: 'Buttons'
-	      #layout: #(#LayoutFrame 39 0 189 0 517 0 392 0)
+#layout: #(#LayoutFrame 39 0 189 0 517 0 392 0)
-	      #label: 'Buttons'
+#label: 'Buttons'
-	      #min: #(#Point 10 10)
+#min: #(#Point 10 10)
-	      #max: #(#Point 1280 1024)
+#max: #(#Point 1280 1024)
-	      #bounds: #(#Rectangle 39 189 518 393)
+#bounds: #(#Rectangle 39 189 518 393)
-	      #usePreferredExtent: false
+#usePreferredExtent: false
-	  )
+)
-	  #component:
+#component:
-	   #(#SpecCollection
+#(#SpecCollection
-	      #collection:
+#collection:
-	       #(
+#(
-		 #(#ActionButtonSpec
+#(#ActionButtonSpec
-		    #name: 'Button'
+#name: 'Button'
-		    #layout: #(#LayoutFrame 15 0 15 0 140 0 37 0)
+#layout: #(#LayoutFrame 15 0 15 0 140 0 37 0)
-		    #label: 'Button'
+#label: 'Button'
-		    #translateLabel: true
+#translateLabel: true
-		)
+)
-		 #(#ActionButtonSpec
+#(#ActionButtonSpec
-		    #name: 'Button - OK'
+#name: 'Button - OK'
-		    #layout: #(#LayoutFrame 15 0 47 0 140 0 69 0)
+#layout: #(#LayoutFrame 15 0 47 0 140 0 69 0)
-		    #label: 'OK'
+#label: 'OK'
-		    #translateLabel: true
+#translateLabel: true
-		    #model: #accept
+#model: #accept
-		)
+)
-		 #(#ActionButtonSpec
+#(#ActionButtonSpec
-		    #name: 'Button - Cancel'
+#name: 'Button - Cancel'
-		    #layout: #(#LayoutFrame 15 0 79 0 140 0 101 0)
+#layout: #(#LayoutFrame 15 0 79 0 140 0 101 0)
-		    #label: 'Cancel'
+#label: 'Cancel'
-		    #translateLabel: true
+#translateLabel: true
-		    #model: #cancel
+#model: #cancel
-		)
+)
-		 #(#ActionButtonSpec
+#(#ActionButtonSpec
-		    #name: 'Button - Help'
+#name: 'Button - Help'
-		    #layout: #(#LayoutFrame 15 0 111 0 140 0 133 0)
+#layout: #(#LayoutFrame 15 0 111 0 140 0 133 0)
-		    #label: 'Help'
+#label: 'Help'
-		    #translateLabel: true
+#translateLabel: true
-		    #model: #help
+#model: #help
-		)
+)
-		 #(#ActionButtonSpec
+#(#ActionButtonSpec
-		    #name: 'Button - Close'
+#name: 'Button - Close'
-		    #layout: #(#LayoutFrame 15 0 143 0 140 0 165 0)
+#layout: #(#LayoutFrame 15 0 143 0 140 0 165 0)
-		    #label: 'Close'
+#label: 'Close'
-		    #translateLabel: true
+#translateLabel: true
-		    #model: #closeRequest
+#model: #closeRequest
-		)
+)
-		 #(#ToggleSpec
+#(#ToggleSpec
-		    #name: 'Toggle'
+#name: 'Toggle'
-		    #layout: #(#LayoutFrame 157 0 15 0 293 0 37 0)
+#layout: #(#LayoutFrame 157 0 15 0 293 0 37 0)
-		    #label: 'Toggle'
+#label: 'Toggle'
-		    #isTriggerOnDown: true
+#isTriggerOnDown: true
-		    #translateLabel: true
+#translateLabel: true
-		    #lampColor: #(#Color 100.0 100.0 0.0)
+#lampColor: #(#Color 100.0 100.0 0.0)
-		)
+)
-		 #(#RadioButtonSpec
+#(#RadioButtonSpec
-		    #name: 'Radio Button'
+#name: 'Radio Button'
-		    #layout: #(#LayoutFrame 157 0.0 47 0 293 0 69 0)
+#layout: #(#LayoutFrame 157 0.0 47 0 293 0 69 0)
-		    #label: 'Radio Button'
+#label: 'Radio Button'
-		    #isTriggerOnDown: true
+#isTriggerOnDown: true
-		    #translateLabel: true
+#translateLabel: true
-		    #lampColor: #(#Color 100.0 100.0 0.0)
+#lampColor: #(#Color 100.0 100.0 0.0)
-		)
+)
-		 #(#CheckBoxSpec
+#(#CheckBoxSpec
-		    #name: 'Check Box'
+#name: 'Check Box'
-		    #layout: #(#LayoutFrame 157 0 79 0 293 0 101 0)
+#layout: #(#LayoutFrame 157 0 79 0 293 0 101 0)
-		    #translateLabel: true
+#translateLabel: true
-		    #label: 'Check Box'
+#label: 'Check Box'
-		)
+)
-		 #(#CheckToggleSpec
+#(#CheckToggleSpec
-		    #name: 'Check Toggle'
+#name: 'Check Toggle'
-		    #layout: #(#LayoutOrigin 157 0 113 0)
+#layout: #(#LayoutOrigin 157 0 113 0)
-		    #isTriggerOnDown: true
+#isTriggerOnDown: true
-		    #showLamp: false
+#showLamp: false
-		    #lampColor: #(#Color 100.0 100.0 0.0)
+#lampColor: #(#Color 100.0 100.0 0.0)
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'CheckToggleLabel'
+#name: 'CheckToggleLabel'
-		    #layout: #(#AlignmentOrigin 183 0 112 0 0 0)
+#layout: #(#AlignmentOrigin 183 0 112 0 0 0)
-		    #label: 'Check Toggle'
+#label: 'Check Toggle'
-		    #adjust: #left
+#adjust: #left
-		    #resizeForLabel: true
+#resizeForLabel: true
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-		 #(#ButtonSpec
+#(#ButtonSpec
-		    #name: 'Model Button'
+#name: 'Model Button'
-		    #layout: #(#LayoutFrame 309 0 15 0 445 0 37 0)
+#layout: #(#LayoutFrame 309 0 15 0 445 0 37 0)
-		    #label: 'Model Button'
+#label: 'Model Button'
-		    #translateLabel: true
+#translateLabel: true
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'UpDownButtonLabel'
+#name: 'UpDownButtonLabel'
-		    #layout: #(#AlignmentOrigin 361 0 49 0 0 0)
+#layout: #(#AlignmentOrigin 361 0 49 0 0 0)
-		    #label: 'Spin Button'
+#label: 'Spin Button'
-		    #adjust: #left
+#adjust: #left
-		    #resizeForLabel: true
+#resizeForLabel: true
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-		 #(#UpDownButtonSpec
+#(#UpDownButtonSpec
-		    #name: 'UpDown Button'
+#name: 'UpDown Button'
-		    #layout: #(#LayoutFrame 309 0 47 0 354 0 69 0)
+#layout: #(#LayoutFrame 309 0 47 0 354 0 69 0)
-		    #orientation: #horizontal
+#orientation: #horizontal
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'ArrowButtonsLabel'
+#name: 'ArrowButtonsLabel'
-		    #layout: #(#AlignmentOrigin 361 0 83 0 0 0)
+#layout: #(#AlignmentOrigin 361 0 83 0 0 0)
-		    #label: 'Arrow Button'
+#label: 'Arrow Button'
-		    #adjust: #left
+#adjust: #left
-		    #resizeForLabel: true
+#resizeForLabel: true
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-		 #(#ArrowButtonSpec
+#(#ArrowButtonSpec
-		    #name: 'Arrow Button'
+#name: 'Arrow Button'
-		    #layout: #(#LayoutFrame 309 0 79 0 331 0 101 0)
+#layout: #(#LayoutFrame 309 0 79 0 331 0 101 0)
-		    #isTriggerOnDown: true
+#isTriggerOnDown: true
-		    #direction: #right
+#direction: #right
-		)
+)
-	      )
+)
-	  )
+)
 )
 "Modified: / 20.5.1998 / 03:25:21 / cg"
 !
 <resource: #canvas>
 ^
 #(#FullSpec
-	  #window:
+#window:
-	   #(#WindowSpec
+#(#WindowSpec
-	      #name: 'Graphs'
+#name: 'Graphs'
-	      #layout: #(#LayoutFrame 114 0 373 0 583 0 615 0)
+#layout: #(#LayoutFrame 114 0 373 0 583 0 615 0)
-	      #label: 'Graphs'
+#label: 'Graphs'
-	      #min: #(#Point 10 10)
+#min: #(#Point 10 10)
-	      #max: #(#Point 1280 1024)
+#max: #(#Point 1280 1024)
-	      #bounds: #(#Rectangle 114 373 584 616)
+#bounds: #(#Rectangle 114 373 584 616)
-	      #usePreferredExtent: false
+#usePreferredExtent: false
-	  )
+)
-	  #component:
+#component:
-	   #(#SpecCollection
+#(#SpecCollection
-	      #collection:
+#collection:
-	       #(
+#(
-		 #(#GraphColumnView2DSpec
+#(#GraphColumnView2DSpec
-		    #name: 'GraphColumnView2D'
+#name: 'GraphColumnView2D'
-		    #layout: #(#LayoutFrame 15 0 15 0 220 0 110 0)
+#layout: #(#LayoutFrame 15 0 15 0 220 0 110 0)
-		    #gridX: 0
+#gridX: 0
-		    #gridY: 0
+#gridY: 0
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'GraphColumnView2DLabel'
+#name: 'GraphColumnView2DLabel'
-		    #layout: #(#AlignmentOrigin 19 0 19 0 0 0)
+#layout: #(#AlignmentOrigin 19 0 19 0 0 0)
-		    #label: 'GraphColumnViewView2D'
+#label: 'GraphColumnViewView2D'
-		    #style: #(#FontDescription #helvetica #medium #roman 10)
+#style: #(#FontDescription #helvetica #medium #roman 10)
-		    #adjust: #left
+#adjust: #left
-		    #resizeForLabel: true
+#resizeForLabel: true
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-		 #(#GraphColumnView3DSpec
+#(#GraphColumnView3DSpec
-		    #name: 'GraphColumnView3D'
+#name: 'GraphColumnView3D'
-		    #layout: #(#LayoutFrame 240 0 15 0 445 0 110 0)
+#layout: #(#LayoutFrame 240 0 15 0 445 0 110 0)
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'GraphColumnView3DLabel'
+#name: 'GraphColumnView3DLabel'
-		    #layout: #(#AlignmentOrigin 244 0 19 0 0 0)
+#layout: #(#AlignmentOrigin 244 0 19 0 0 0)
-		    #label: 'GraphColumnViewView3D'
+#label: 'GraphColumnViewView3D'
-		    #style: #(#FontDescription #helvetica #medium #roman 10)
+#style: #(#FontDescription #helvetica #medium #roman 10)
-		    #adjust: #left
+#adjust: #left
-		    #resizeForLabel: true
+#resizeForLabel: true
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-	      )
+)
-	  )
+)
 )
 !
 standardGroups
 "this window spec was automatically generated by the ST/X UIPainter"
 <resource: #canvas>
 ^
 #(#FullSpec
-	  #window:
+#window:
-	   #(#WindowSpec
+#(#WindowSpec
-	      #name: 'Groups'
+#name: 'Groups'
-	      #layout: #(#LayoutFrame 147 0 281 0 647 0 520 0)
+#layout: #(#LayoutFrame 147 0 281 0 647 0 520 0)
-	      #label: 'Groups'
+#label: 'Groups'
-	      #min: #(#Point 10 10)
+#min: #(#Point 10 10)
-	      #max: #(#Point 1280 1024)
+#max: #(#Point 1280 1024)
-	      #bounds: #(#Rectangle 147 281 648 521)
+#bounds: #(#Rectangle 147 281 648 521)
-	      #usePreferredExtent: false
+#usePreferredExtent: false
-	  )
+)
-	  #component:
+#component:
-	   #(#SpecCollection
+#(#SpecCollection
-	      #collection:
+#collection:
-	       #(
+#(
-		 #(#ViewSpec
+#(#ViewSpec
-		    #name: 'Box'
+#name: 'Box'
-		    #layout: #(#LayoutFrame 15 0 15 0 220 0 110 0)
+#layout: #(#LayoutFrame 15 0 15 0 220 0 110 0)
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'ViewLabel'
+#name: 'ViewLabel'
-		    #layout: #(#AlignmentOrigin 18 0 17 0 0 0)
+#layout: #(#AlignmentOrigin 18 0 17 0 0 0)
-		    #label: 'Box'
+#label: 'Box'
-		    #style: #(#FontDescription #helvetica #medium #roman 10)
+#style: #(#FontDescription #helvetica #medium #roman 10)
-		    #adjust: #left
+#adjust: #left
-		    #resizeForLabel: true
+#resizeForLabel: true
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'VPanelLabel'
+#name: 'VPanelLabel'
-		    #layout: #(#LayoutFrame 15 0 116 0 220 0 139 0)
+#layout: #(#LayoutFrame 15 0 116 0 220 0 139 0)
-		    #label: 'Variable Panels'
+#label: 'Variable Panels'
-		    #style: #(#FontDescription #helvetica #medium #roman 10)
+#style: #(#FontDescription #helvetica #medium #roman 10)
-		    #adjust: #left
+#adjust: #left
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-		 #(#VariableHorizontalPanelSpec
+#(#VariableHorizontalPanelSpec
-		    #name: 'Variable Horizontal Panel'
+#name: 'Variable Horizontal Panel'
-		    #layout: #(#LayoutFrame 15 0 140 0 110 0 230 0)
+#layout: #(#LayoutFrame 15 0 140 0 110 0 230 0)
-		    #component:
+#component:
-		     #(#SpecCollection
+#(#SpecCollection
-			#collection:
+#collection:
-			 #(
+#(
-			   #(#LabelSpec
+#(#LabelSpec
-			      #name: 'label4'
+#name: 'label4'
-			      #label: 'A'
+#label: 'A'
-			      #style: #(#FontDescription #helvetica #medium #roman 12)
+#style: #(#FontDescription #helvetica #medium #roman 12)
-			      #level: 2
+#level: 2
-			      #canUIDrag: false
+#canUIDrag: false
-			  )
+)
-			   #(#LabelSpec
+#(#LabelSpec
-			      #name: 'label5'
+#name: 'label5'
-			      #label: 'B'
+#label: 'B'
-			      #style: #(#FontDescription #helvetica #medium #roman 12)
+#style: #(#FontDescription #helvetica #medium #roman 12)
-			      #level: 2
+#level: 2
-			      #canUIDrag: false
+#canUIDrag: false
-			  )
+)
-			)
+)
-		    )
+)
-		    #handles: #(#Any 0.5 1.0)
+#handles: #(#Any 0.5 1.0)
-		)
+)
-		 #(#VariableVerticalPanelSpec
+#(#VariableVerticalPanelSpec
-		    #name: 'Variable Vertical Panel'
+#name: 'Variable Vertical Panel'
-		    #layout: #(#LayoutFrame 125 0 140 0 220 0 230 0)
+#layout: #(#LayoutFrame 125 0 140 0 220 0 230 0)
-		    #component:
+#component:
-		     #(#SpecCollection
+#(#SpecCollection
-			#collection:
+#collection:
-			 #(
+#(
-			   #(#LabelSpec
+#(#LabelSpec
-			      #name: 'label9'
+#name: 'label9'
-			      #label: 'A'
+#label: 'A'
-			      #style: #(#FontDescription #helvetica #medium #roman 12)
+#style: #(#FontDescription #helvetica #medium #roman 12)
-			      #level: 2
+#level: 2
-			      #canUIDrag: false
+#canUIDrag: false
-			  )
+)
-			   #(#LabelSpec
+#(#LabelSpec
-			      #name: 'label10'
+#name: 'label10'
-			      #label: 'B'
+#label: 'B'
-			      #style: #(#FontDescription #helvetica #medium #roman 12)
+#style: #(#FontDescription #helvetica #medium #roman 12)
-			      #level: 2
+#level: 2
-			      #canUIDrag: false
+#canUIDrag: false
-			  )
+)
-			)
+)
-		    )
+)
-		    #handles: #(#Any 0.5 1.0)
+#handles: #(#Any 0.5 1.0)
-		)
+)
-		 #(#FramedBoxSpec
+#(#FramedBoxSpec
-		    #name: 'Framed Box'
+#name: 'Framed Box'
-		    #layout: #(#LayoutFrame 240 0 15 0 445 0 110 0)
+#layout: #(#LayoutFrame 240 0 15 0 445 0 110 0)
-		    #label: 'Framed Box'
+#label: 'Framed Box'
-		    #labelPosition: #topLeft
+#labelPosition: #topLeft
-		    #translateLabel: true
+#translateLabel: true
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'PanelLabel'
+#name: 'PanelLabel'
-		    #layout: #(#LayoutFrame 240 0 116 0 445 0 139 0)
+#layout: #(#LayoutFrame 240 0 116 0 445 0 139 0)
-		    #label: 'Panels'
+#label: 'Panels'
-		    #style: #(#FontDescription #helvetica #medium #roman 10)
+#style: #(#FontDescription #helvetica #medium #roman 10)
-		    #adjust: #left
+#adjust: #left
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-		 #(#HorizontalPanelViewSpec
+#(#HorizontalPanelViewSpec
-		    #name: 'Horizontal Panel'
+#name: 'Horizontal Panel'
-		    #layout: #(#LayoutFrame 240 0 140 0 324 0 230 0)
+#layout: #(#LayoutFrame 240 0 140 0 324 0 230 0)
-		    #component:
+#component:
-		     #(#SpecCollection
+#(#SpecCollection
-			#collection:
+#collection:
-			 #(
+#(
-			   #(#LabelSpec
+#(#LabelSpec
-			      #name: 'label1'
+#name: 'label1'
-			      #label: 'A'
+#label: 'A'
-			      #style: #(#FontDescription #helvetica #medium #roman 12)
+#style: #(#FontDescription #helvetica #medium #roman 12)
-			      #level: 2
+#level: 2
-			      #extent: #(#Point 23 23)
+#extent: #(#Point 23 23)
-			      #canUIDrag: false
+#canUIDrag: false
-			  )
+)
-			   #(#LabelSpec
+#(#LabelSpec
-			      #name: 'label2'
+#name: 'label2'
-			      #label: 'B'
+#label: 'B'
-			      #style: #(#FontDescription #helvetica #medium #roman 12)
+#style: #(#FontDescription #helvetica #medium #roman 12)
-			      #level: 2
+#level: 2
-			      #extent: #(#Point 23 23)
+#extent: #(#Point 23 23)
-			      #canUIDrag: false
+#canUIDrag: false
-			  )
+)
-			   #(#LabelSpec
+#(#LabelSpec
-			      #name: 'label3'
+#name: 'label3'
-			      #label: 'C'
+#label: 'C'
-			      #style: #(#FontDescription #helvetica #medium #roman 12)
+#style: #(#FontDescription #helvetica #medium #roman 12)
-			      #level: 2
+#level: 2
-			      #extent: #(#Point 23 23)
+#extent: #(#Point 23 23)
-			      #canUIDrag: false
+#canUIDrag: false
-			  )
+)
-			)
+)
-		    )
+)
-		    #horizontalLayout: #center
+#horizontalLayout: #center
-		    #verticalLayout: #center
+#verticalLayout: #center
-		    #horizontalSpace: 3
+#horizontalSpace: 3
-		    #verticalSpace: 3
+#verticalSpace: 3
-		)
+)
-		 #(#VerticalPanelViewSpec
+#(#VerticalPanelViewSpec
-		    #name: 'Vertical Panel'
+#name: 'Vertical Panel'
-		    #layout: #(#LayoutFrame 332 0 140 0 379 0 230 0)
+#layout: #(#LayoutFrame 332 0 140 0 379 0 230 0)
-		    #component:
+#component:
-		     #(#SpecCollection
+#(#SpecCollection
-			#collection:
+#collection:
-			 #(
+#(
-			   #(#LabelSpec
+#(#LabelSpec
-			      #name: 'label6'
+#name: 'label6'
-			      #label: 'A'
+#label: 'A'
-			      #style: #(#FontDescription #helvetica #medium #roman 12)
+#style: #(#FontDescription #helvetica #medium #roman 12)
-			      #level: 2
+#level: 2
-			      #extent: #(#Point 23 23)
+#extent: #(#Point 23 23)
-			      #canUIDrag: false
+#canUIDrag: false
-			  )
+)
-			   #(#LabelSpec
+#(#LabelSpec
-			      #name: 'label7'
+#name: 'label7'
-			      #label: 'B'
+#label: 'B'
-			      #style: #(#FontDescription #helvetica #medium #roman 12)
+#style: #(#FontDescription #helvetica #medium #roman 12)
-			      #level: 2
+#level: 2
-			      #extent: #(#Point 23 23)
+#extent: #(#Point 23 23)
-			      #canUIDrag: false
+#canUIDrag: false
-			  )
+)
-			   #(#LabelSpec
+#(#LabelSpec
-			      #name: 'label8'
+#name: 'label8'
-			      #label: 'C'
+#label: 'C'
-			      #style: #(#FontDescription #helvetica #medium #roman 12)
+#style: #(#FontDescription #helvetica #medium #roman 12)
-			      #level: 2
+#level: 2
-			      #extent: #(#Point 23 23)
+#extent: #(#Point 23 23)
-			      #canUIDrag: false
+#canUIDrag: false
-			  )
+)
-			)
+)
-		    )
+)
-		    #horizontalLayout: #center
+#horizontalLayout: #center
-		    #verticalLayout: #center
+#verticalLayout: #center
-		    #horizontalSpace: 3
+#horizontalSpace: 3
-		    #verticalSpace: 3
+#verticalSpace: 3
-		)
+)
-		 #(#PanelViewSpec
+#(#PanelViewSpec
-		    #name: 'Panel'
+#name: 'Panel'
-		    #layout: #(#LayoutFrame 387 0 140 0 445 0 230 0)
+#layout: #(#LayoutFrame 387 0 140 0 445 0 230 0)
-		    #component:
+#component:
-		     #(#SpecCollection
+#(#SpecCollection
-			#collection:
+#collection:
-			 #(
+#(
-			   #(#LabelSpec
+#(#LabelSpec
-			      #name: 'label11'
+#name: 'label11'
-			      #label: 'A'
+#label: 'A'
-			      #style: #(#FontDescription #helvetica #medium #roman 12)
+#style: #(#FontDescription #helvetica #medium #roman 12)
-			      #level: 2
+#level: 2
-			      #extent: #(#Point 23 23)
+#extent: #(#Point 23 23)
-			      #canUIDrag: false
+#canUIDrag: false
-			  )
+)
-			   #(#LabelSpec
+#(#LabelSpec
-			      #name: 'label12'
+#name: 'label12'
-			      #label: 'B'
+#label: 'B'
-			      #style: #(#FontDescription #helvetica #medium #roman 12)
+#style: #(#FontDescription #helvetica #medium #roman 12)
-			      #level: 2
+#level: 2
-			      #extent: #(#Point 23 23)
+#extent: #(#Point 23 23)
-			      #canUIDrag: false
+#canUIDrag: false
-			  )
+)
-			   #(#LabelSpec
+#(#LabelSpec
-			      #name: 'label13'
+#name: 'label13'
-			      #label: 'C'
+#label: 'C'
-			      #style: #(#FontDescription #helvetica #medium #roman 12)
+#style: #(#FontDescription #helvetica #medium #roman 12)
-			      #level: 2
+#level: 2
-			      #extent: #(#Point 23 23)
+#extent: #(#Point 23 23)
-			      #canUIDrag: false
+#canUIDrag: false
-			  )
+)
-			   #(#LabelSpec
+#(#LabelSpec
-			      #name: 'label14'
+#name: 'label14'
-			      #label: 'D'
+#label: 'D'
-			      #style: #(#FontDescription #helvetica #medium #roman 12)
+#style: #(#FontDescription #helvetica #medium #roman 12)
-			      #level: 2
+#level: 2
-			      #extent: #(#Point 23 23)
+#extent: #(#Point 23 23)
-			      #canUIDrag: false
+#canUIDrag: false
-			  )
+)
-			   #(#LabelSpec
+#(#LabelSpec
-			      #name: 'label15'
+#name: 'label15'
-			      #label: 'E'
+#label: 'E'
-			      #style: #(#FontDescription #helvetica #medium #roman 12)
+#style: #(#FontDescription #helvetica #medium #roman 12)
-			      #level: 2
+#level: 2
-			      #extent: #(#Point 23 23)
+#extent: #(#Point 23 23)
-			      #canUIDrag: false
+#canUIDrag: false
-			  )
+)
-			)
+)
-		    )
+)
-		    #horizontalLayout: #fitSpace
+#horizontalLayout: #fitSpace
-		    #verticalLayout: #fitSpace
+#verticalLayout: #fitSpace
-		    #horizontalSpace: 3
+#horizontalSpace: 3
-		    #verticalSpace: 3
+#verticalSpace: 3
-		)
+)
-	      )
+)
-	  )
+)
 )
 "Modified: / 20.5.1998 / 03:26:08 / cg"
 !
 <resource: #canvas>
 ^
 #(#FullSpec
-	  #window:
+#window:
-	   #(#WindowSpec
+#(#WindowSpec
-	      #name: 'Lists'
+#name: 'Lists'
-	      #layout: #(#LayoutFrame 164 0 52 0 633 0 294 0)
+#layout: #(#LayoutFrame 164 0 52 0 633 0 294 0)
-	      #label: 'Lists'
+#label: 'Lists'
-	      #min: #(#Point 10 10)
+#min: #(#Point 10 10)
-	      #max: #(#Point 1280 1024)
+#max: #(#Point 1280 1024)
-	      #bounds: #(#Rectangle 164 52 634 295)
+#bounds: #(#Rectangle 164 52 634 295)
-	      #usePreferredExtent: false
+#usePreferredExtent: false
-	  )
+)
-	  #component:
+#component:
-	   #(#SpecCollection
+#(#SpecCollection
-	      #collection:
+#collection:
-	       #(
+#(
-		 #(#SequenceViewSpec
+#(#SequenceViewSpec
-		    #name: 'List'
+#name: 'List'
-		    #layout: #(#LayoutFrame 15 0 30 0 220 0 110 0)
+#layout: #(#LayoutFrame 15 0 30 0 220 0 110 0)
-		    #hasHorizontalScrollBar: true
+#hasHorizontalScrollBar: true
-		    #hasVerticalScrollBar: true
+#hasVerticalScrollBar: true
-		    #useIndex: false
+#useIndex: false
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'ListLabel'
+#name: 'ListLabel'
-		    #layout: #(#AlignmentOrigin 15 0 30 0 0 1)
+#layout: #(#AlignmentOrigin 15 0 30 0 0 1)
-		    #label: 'List'
+#label: 'List'
-		    #style: #(#FontDescription #helvetica #medium #roman 10)
+#style: #(#FontDescription #helvetica #medium #roman 10)
-		    #adjust: #left
+#adjust: #left
-		    #resizeForLabel: true
+#resizeForLabel: true
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-		 #(#SelectionInTreeViewSpec
+#(#SelectionInTreeViewSpec
-		    #name: 'Tree List'
+#name: 'Tree List'
-		    #layout: #(#LayoutFrame 15 0 145 0 220 0 225 0)
+#layout: #(#LayoutFrame 15 0 145 0 220 0 225 0)
-		    #hasHorizontalScrollBar: true
+#hasHorizontalScrollBar: true
-		    #hasVerticalScrollBar: true
+#hasVerticalScrollBar: true
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'TreeListLabel'
+#name: 'TreeListLabel'
-		    #layout: #(#AlignmentOrigin 15 0 145 0 0 1)
+#layout: #(#AlignmentOrigin 15 0 145 0 0 1)
-		    #label: 'Tree List'
+#label: 'Tree List'
-		    #style: #(#FontDescription #helvetica #medium #roman 10)
+#style: #(#FontDescription #helvetica #medium #roman 10)
-		    #adjust: #left
+#adjust: #left
-		    #resizeForLabel: true
+#resizeForLabel: true
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-		 #(#DataSetSpec
+#(#DataSetSpec
-		    #name: 'Table'
+#name: 'Table'
-		    #layout: #(#LayoutFrame 240 0 30 0 445 0 110 0)
+#layout: #(#LayoutFrame 240 0 30 0 445 0 110 0)
-		    #hasHorizontalScrollBar: true
+#hasHorizontalScrollBar: true
-		    #hasVerticalScrollBar: true
+#hasVerticalScrollBar: true
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'TableLabel'
+#name: 'TableLabel'
-		    #layout: #(#AlignmentOrigin 240 0 30 0 0 1)
+#layout: #(#AlignmentOrigin 240 0 30 0 0 1)
-		    #label: 'Table'
+#label: 'Table'
-		    #style: #(#FontDescription #helvetica #medium #roman 10)
+#style: #(#FontDescription #helvetica #medium #roman 10)
-		    #adjust: #left
+#adjust: #left
-		    #resizeForLabel: true
+#resizeForLabel: true
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-		 #(#FileSelectionTreeSpec
+#(#FileSelectionTreeSpec
-		    #name: 'File Tree List'
+#name: 'File Tree List'
-		    #layout: #(#LayoutFrame 240 0 145 0 445 0 225 0)
+#layout: #(#LayoutFrame 240 0 145 0 445 0 225 0)
-		    #hasHorizontalScrollBar: true
+#hasHorizontalScrollBar: true
-		    #hasVerticalScrollBar: true
+#hasVerticalScrollBar: true
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'FileTreeListLabel'
+#name: 'FileTreeListLabel'
-		    #layout: #(#AlignmentOrigin 240 0 145 0 0 1)
+#layout: #(#AlignmentOrigin 240 0 145 0 0 1)
-		    #label: 'File Tree List'
+#label: 'File Tree List'
-		    #style: #(#FontDescription #helvetica #medium #roman 10)
+#style: #(#FontDescription #helvetica #medium #roman 10)
-		    #adjust: #left
+#adjust: #left
-		    #resizeForLabel: true
+#resizeForLabel: true
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-	      )
+)
-	  )
+)
 )
 "Modified: / 21.4.1998 / 20:36:36 / cg"
 !
 <resource: #canvas>
 ^
 #(#FullSpec
-	  #window:
+#window:
-	   #(#WindowSpec
+#(#WindowSpec
-	      #name: 'Menus'
+#name: 'Menus'
-	      #layout: #(#LayoutFrame 216 0 173 0 692 0 395 0)
+#layout: #(#LayoutFrame 216 0 173 0 692 0 395 0)
-	      #label: 'Menus'
+#label: 'Menus'
-	      #min: #(#Point 10 10)
+#min: #(#Point 10 10)
-	      #max: #(#Point 1280 1024)
+#max: #(#Point 1280 1024)
-	      #bounds: #(#Rectangle 216 173 693 396)
+#bounds: #(#Rectangle 216 173 693 396)
-	      #usePreferredExtent: false
+#usePreferredExtent: false
-	  )
+)
-	  #component:
+#component:
-	   #(#SpecCollection
+#(#SpecCollection
-	      #collection:
+#collection:
-	       #(
+#(
-		 #(#MenuPanelSpec
+#(#MenuPanelSpec
-		    #name: 'Tool Bar'
+#name: 'Tool Bar'
-		    #layout: #(#LayoutFrame 15 0 123 0 140 0 155 0)
+#layout: #(#LayoutFrame 15 0 123 0 140 0 155 0)
-		    #textDefault: true
+#textDefault: true
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'ToolBarLabel'
+#name: 'ToolBarLabel'
-		    #layout: #(#AlignmentOrigin 15 0 123 0 0 1)
+#layout: #(#AlignmentOrigin 15 0 123 0 0 1)
-		    #label: 'Tool Bar'
+#label: 'Tool Bar'
-		    #style: #(#FontDescription #helvetica #medium #roman 10)
+#style: #(#FontDescription #helvetica #medium #roman 10)
-		    #adjust: #left
+#adjust: #left
-		    #resizeForLabel: true
+#resizeForLabel: true
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-		 #(#MenuPanelSpec
+#(#MenuPanelSpec
-		    #name: 'Menu Bar'
+#name: 'Menu Bar'
-		    #layout: #(#LayoutFrame 15 0 181 0 140 0 203 0)
+#layout: #(#LayoutFrame 15 0 181 0 140 0 203 0)
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'MenuBarLabel'
+#name: 'MenuBarLabel'
-		    #layout: #(#AlignmentOrigin 15 0 181 0 0 1)
+#layout: #(#AlignmentOrigin 15 0 181 0 0 1)
-		    #label: 'Menu Bar'
+#label: 'Menu Bar'
-		    #style: #(#FontDescription #helvetica #medium #roman 10)
+#style: #(#FontDescription #helvetica #medium #roman 10)
-		    #adjust: #left
+#adjust: #left
-		    #resizeForLabel: true
+#resizeForLabel: true
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-		 #(#PopUpListSpec
+#(#PopUpListSpec
-		    #name: 'PopUp List'
+#name: 'PopUp List'
-		    #layout: #(#LayoutFrame 15 0 15 0 140 0 37 0)
+#layout: #(#LayoutFrame 15 0 15 0 140 0 37 0)
-		    #label: 'PopUp List'
+#label: 'PopUp List'
-		    #useIndex: false
+#useIndex: false
-		)
+)
-		 #(#ComboListSpec
+#(#ComboListSpec
-		    #name: 'Combo List'
+#name: 'Combo List'
-		    #layout: #(#LayoutFrame 15 0 45 0 140 0 65 0)
+#layout: #(#LayoutFrame 15 0 45 0 140 0 65 0)
-		    #useIndex: false
+#useIndex: false
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'ComboListLabel'
+#name: 'ComboListLabel'
-		    #layout: #(#AlignmentOrigin 17 0 65 0 0 1)
+#layout: #(#AlignmentOrigin 17 0 65 0 0 1)
-		    #label: 'Combo List'
+#label: 'Combo List'
-		    #style: #(#FontDescription #helvetica #medium #roman 10)
+#style: #(#FontDescription #helvetica #medium #roman 10)
-		    #adjust: #left
+#adjust: #left
-		    #resizeForLabel: true
+#resizeForLabel: true
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-		 #(#ComboBoxSpec
+#(#ComboBoxSpec
-		    #name: 'Combo Box'
+#name: 'Combo Box'
-		    #layout: #(#LayoutFrame 15 0 73 0 140 0 93 0)
+#layout: #(#LayoutFrame 15 0 73 0 140 0 93 0)
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'ComboBoxLabel'
+#name: 'ComboBoxLabel'
-		    #layout: #(#AlignmentOrigin 17 0 93 0 0 1)
+#layout: #(#AlignmentOrigin 17 0 93 0 0 1)
-		    #label: 'Combo Box'
+#label: 'Combo Box'
-		    #style: #(#FontDescription #helvetica #medium #roman 10)
+#style: #(#FontDescription #helvetica #medium #roman 10)
-		    #adjust: #left
+#adjust: #left
-		    #resizeForLabel: true
+#resizeForLabel: true
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-		 #(#TabViewSpec
+#(#TabViewSpec
-		    #name: 'Tab Header'
+#name: 'Tab Header'
-		    #layout: #(#LayoutFrame 157 0 15 0 292 0 51 0)
+#layout: #(#LayoutFrame 157 0 15 0 292 0 51 0)
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'TabHeaderLabel'
+#name: 'TabHeaderLabel'
-		    #layout: #(#Point 160 33)
+#layout: #(#Point 160 33)
-		    #label: 'Tab Header'
+#label: 'Tab Header'
-		    #style: #(#FontDescription #helvetica #medium #roman 10)
+#style: #(#FontDescription #helvetica #medium #roman 10)
-		    #adjust: #left
+#adjust: #left
-		    #resizeForLabel: true
+#resizeForLabel: true
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-		 #(#NoteBookViewSpec
+#(#NoteBookViewSpec
-		    #name: 'Note Book'
+#name: 'Note Book'
-		    #layout: #(#LayoutFrame 157 0 58 0 292 0 150 0)
+#layout: #(#LayoutFrame 157 0 58 0 292 0 150 0)
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'NoteBookLabel'
+#name: 'NoteBookLabel'
-		    #layout: #(#Point 161 132)
+#layout: #(#Point 161 132)
-		    #label: 'Note Book'
+#label: 'Note Book'
-		    #style: #(#FontDescription #helvetica #medium #roman 10)
+#style: #(#FontDescription #helvetica #medium #roman 10)
-		    #adjust: #left
+#adjust: #left
-		    #resizeForLabel: true
+#resizeForLabel: true
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-		 #(#UIGalleryViewSpec
+#(#UIGalleryViewSpec
-		    #name: 'Gallery'
+#name: 'Gallery'
-		    #layout: #(#LayoutFrame 309 0 15 0 445 0 150 0)
+#layout: #(#LayoutFrame 309 0 15 0 445 0 150 0)
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'GalleryLabel'
+#name: 'GalleryLabel'
-		    #layout: #(#Point 313 132)
+#layout: #(#Point 313 132)
-		    #label: 'Gallery'
+#label: 'Gallery'
-		    #style: #(#FontDescription #helvetica #medium #roman 10)
+#style: #(#FontDescription #helvetica #medium #roman 10)
-		    #adjust: #left
+#adjust: #left
-		    #resizeForLabel: true
+#resizeForLabel: true
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-	      )
+)
-	  )
+)
 )
 "Modified: / 6.6.1998 / 16:54:56 / cg"
 !
 <resource: #canvas>
 ^
 #(#FullSpec
-	  #window:
+#window:
-	   #(#WindowSpec
+#(#WindowSpec
-	      #name: 'Misc'
+#name: 'Misc'
-	      #layout: #(#LayoutFrame 50 0 73 0 517 0 357 0)
+#layout: #(#LayoutFrame 50 0 73 0 517 0 357 0)
-	      #label: 'Misc'
+#label: 'Misc'
-	      #min: #(#Point 10 10)
+#min: #(#Point 10 10)
-	      #max: #(#Point 1280 1024)
+#max: #(#Point 1280 1024)
-	      #bounds: #(#Rectangle 50 73 518 358)
+#bounds: #(#Rectangle 50 73 518 358)
-	      #usePreferredExtent: false
+#usePreferredExtent: false
-	  )
+)
-	  #component:
+#component:
-	   #(#SpecCollection
+#(#SpecCollection
-	      #collection:
+#collection:
-	       #(
+#(
-		 #(#ArbitraryComponentSpec
+#(#ArbitraryComponentSpec
-		    #name: 'Arbitrary Component'
+#name: 'Arbitrary Component'
-		    #layout: #(#LayoutFrame 15 0 15 0 140 0 110 0)
+#layout: #(#LayoutFrame 15 0 15 0 140 0 110 0)
-		    #hasBorder: false
+#hasBorder: false
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'ArbitraryComponentLabel1'
+#name: 'ArbitraryComponentLabel1'
-		    #layout: #(#AlignmentOrigin 19 0 19 0 0 0)
+#layout: #(#AlignmentOrigin 19 0 19 0 0 0)
-		    #label: 'Arbitrary'
+#label: 'Arbitrary'
-		    #style: #(#FontDescription #helvetica #medium #roman 10)
+#style: #(#FontDescription #helvetica #medium #roman 10)
-		    #adjust: #left
+#adjust: #left
-		    #resizeForLabel: true
+#resizeForLabel: true
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'ArbitraryComponentLabel2'
+#name: 'ArbitraryComponentLabel2'
-		    #layout: #(#AlignmentOrigin 19 0 43 0 0 0)
+#layout: #(#AlignmentOrigin 19 0 43 0 0 0)
-		    #label: 'Component'
+#label: 'Component'
-		    #style: #(#FontDescription #helvetica #medium #roman 10)
+#style: #(#FontDescription #helvetica #medium #roman 10)
-		    #adjust: #left
+#adjust: #left
-		    #resizeForLabel: true
+#resizeForLabel: true
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-		 #(#UISubSpecification
+#(#UISubSpecification
-		    #name: 'SubSpecification'
+#name: 'SubSpecification'
-		    #layout: #(#LayoutFrame 157 0 15 0 292 0 110 0)
+#layout: #(#LayoutFrame 157 0 15 0 292 0 110 0)
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'SubSpecificationLabel'
+#name: 'SubSpecificationLabel'
-		    #layout: #(#Point 161 19)
+#layout: #(#Point 161 19)
-		    #label: 'SubSpecification'
+#label: 'SubSpecification'
-		    #style: #(#FontDescription #helvetica #medium #roman 10)
+#style: #(#FontDescription #helvetica #medium #roman 10)
-		    #resizeForLabel: true
+#resizeForLabel: true
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-		 #(#SubCanvasSpec
+#(#SubCanvasSpec
-		    #name: 'SubCanvas'
+#name: 'SubCanvas'
-		    #layout: #(#LayoutFrame 309 0 15 0 445 0 110 0)
+#layout: #(#LayoutFrame 309 0 15 0 445 0 110 0)
-		    #hasHorizontalScrollBar: true
+#hasHorizontalScrollBar: true
-		    #hasVerticalScrollBar: true
+#hasVerticalScrollBar: true
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'SubCanvasLabel'
+#name: 'SubCanvasLabel'
-		    #layout: #(#AlignmentOrigin 336 0 19 0 0 0)
+#layout: #(#AlignmentOrigin 336 0 19 0 0 0)
-		    #label: 'SubCanvas'
+#label: 'SubCanvas'
-		    #style: #(#FontDescription #helvetica #medium #roman 10)
+#style: #(#FontDescription #helvetica #medium #roman 10)
-		    #adjust: #left
+#adjust: #left
-		    #resizeForLabel: true
+#resizeForLabel: true
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'SliderLabel'
+#name: 'SliderLabel'
-		    #layout: #(#AlignmentOrigin 95 0 129 0 1 0)
+#layout: #(#AlignmentOrigin 95 0 129 0 1 0)
-		    #label: 'Slider'
+#label: 'Slider'
-		    #style: #(#FontDescription #helvetica #medium #roman 10)
+#style: #(#FontDescription #helvetica #medium #roman 10)
-		    #resizeForLabel: true
+#resizeForLabel: true
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-		 #(#SliderSpec
+#(#SliderSpec
-		    #name: 'Slider'
+#name: 'Slider'
-		    #layout: #(#LayoutFrame 100 0 126 0 215 0 144 0)
+#layout: #(#LayoutFrame 100 0 126 0 215 0 144 0)
-		    #orientation: #horizontal
+#orientation: #horizontal
-		    #step: 1
+#step: 1
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'ThumbWheelLabel'
+#name: 'ThumbWheelLabel'
-		    #layout: #(#AlignmentOrigin 95 0 157 0 1 0)
+#layout: #(#AlignmentOrigin 95 0 157 0 1 0)
-		    #label: 'Thumb Wheel'
+#label: 'Thumb Wheel'
-		    #style: #(#FontDescription #helvetica #medium #roman 10)
+#style: #(#FontDescription #helvetica #medium #roman 10)
-		    #resizeForLabel: true
+#resizeForLabel: true
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-		 #(#ThumbWheelSpec
+#(#ThumbWheelSpec
-		    #name: 'Thumb Wheel'
+#name: 'Thumb Wheel'
-		    #layout: #(#LayoutFrame 100 0 152 0 215 0 172 0)
+#layout: #(#LayoutFrame 100 0 152 0 215 0 172 0)
-		    #orientation: #horizontal
+#orientation: #horizontal
-		    #step: 1
+#step: 1
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'RegionLabel'
+#name: 'RegionLabel'
-		    #layout: #(#AlignmentOrigin 95 0 189 0 1 0)
+#layout: #(#AlignmentOrigin 95 0 189 0 1 0)
-		    #label: 'Region'
+#label: 'Region'
-		    #style: #(#FontDescription #helvetica #medium #roman 10)
+#style: #(#FontDescription #helvetica #medium #roman 10)
-		    #adjust: #left
+#adjust: #left
-		    #resizeForLabel: true
+#resizeForLabel: true
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-		 #(#RegionSpec
+#(#RegionSpec
-		    #name: 'Region'
+#name: 'Region'
-		    #layout: #(#LayoutFrame 100 0 183 0 215 0 212 0)
+#layout: #(#LayoutFrame 100 0 183 0 215 0 212 0)
-		    #lineWidth: 2
+#lineWidth: 2
-		    #regionType: #ellipse
+#regionType: #ellipse
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'SeparatorLabel'
+#name: 'SeparatorLabel'
-		    #layout: #(#AlignmentOrigin 95 0 219 0 1 0)
+#layout: #(#AlignmentOrigin 95 0 219 0 1 0)
-		    #label: 'Separator'
+#label: 'Separator'
-		    #style: #(#FontDescription #helvetica #medium #roman 10)
+#style: #(#FontDescription #helvetica #medium #roman 10)
-		    #adjust: #left
+#adjust: #left
-		    #resizeForLabel: true
+#resizeForLabel: true
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-		 #(#DividerSpec
+#(#DividerSpec
-		    #name: 'Separator'
+#name: 'Separator'
-		    #layout: #(#LayoutFrame 100 0 225 0 215 0 229 0)
+#layout: #(#LayoutFrame 100 0 225 0 215 0 229 0)
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'ProgressIndicatorsLabel'
+#name: 'ProgressIndicatorsLabel'
-		    #layout: #(#AlignmentOrigin 345 0 129 0 1 0)
+#layout: #(#AlignmentOrigin 345 0 129 0 1 0)
-		    #label: 'Progress Indicator'
+#label: 'Progress Indicator'
-		    #style: #(#FontDescription #helvetica #medium #roman 10)
+#style: #(#FontDescription #helvetica #medium #roman 10)
-		    #adjust: #left
+#adjust: #left
-		    #resizeForLabel: true
+#resizeForLabel: true
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-		 #(#ProgressIndicatorSpec
+#(#ProgressIndicatorSpec
-		    #name: 'Progress Indicator'
+#name: 'Progress Indicator'
-		    #layout: #(#LayoutFrame 350 0 126 0 445 0 144 0)
+#layout: #(#LayoutFrame 350 0 126 0 445 0 144 0)
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'RoundProgressIndicatorsLabel'
+#name: 'RoundProgressIndicatorsLabel'
-		    #layout: #(#AlignmentOrigin 345 0 179 0 1 0)
+#layout: #(#AlignmentOrigin 345 0 179 0 1 0)
-		    #label: 'Round
+#label: 'Round
 Progress Indicator'
-		    #style: #(#FontDescription #helvetica #medium #roman 10)
+#style: #(#FontDescription #helvetica #medium #roman 10)
-		    #adjust: #left
+#adjust: #left
-		    #resizeForLabel: true
+#resizeForLabel: true
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-		 #(#RoundProgressIndicatorSpec
+#(#RoundProgressIndicatorSpec
-		    #name: 'Round Progress Indicator'
+#name: 'Round Progress Indicator'
-		    #layout: #(#LayoutFrame 350 0 148 0 445 0 243 0)
+#layout: #(#LayoutFrame 350 0 148 0 445 0 243 0)
-		    #level: 0
+#level: 0
-		    #borderWidth: 1
+#borderWidth: 1
-		)
+)
-	      )
+)
-	  )
+)
 )
 "Modified: / 21.8.1998 / 20:53:14 / cg"
 !
 <resource: #canvas>
 ^
 #(#FullSpec
-	  #window:
+#window:
-	   #(#WindowSpec
+#(#WindowSpec
-	      #name: 'Texts'
+#name: 'Texts'
-	      #layout: #(#LayoutFrame 102 0 279 0 568 0 485 0)
+#layout: #(#LayoutFrame 102 0 279 0 568 0 485 0)
-	      #label: 'Texts'
+#label: 'Texts'
-	      #min: #(#Point 10 10)
+#min: #(#Point 10 10)
-	      #max: #(#Point 1280 1024)
+#max: #(#Point 1280 1024)
-	      #bounds: #(#Rectangle 102 279 569 486)
+#bounds: #(#Rectangle 102 279 569 486)
-	      #usePreferredExtent: false
+#usePreferredExtent: false
-	  )
+)
-	  #component:
+#component:
-	   #(#SpecCollection
+#(#SpecCollection
-	      #collection:
+#collection:
-	       #(
+#(
-		 #(#TextEditorSpec
+#(#TextEditorSpec
-		    #name: 'Text Editor'
+#name: 'Text Editor'
-		    #layout: #(#LayoutFrame 15 0 15 0 220 0 110 0)
+#layout: #(#LayoutFrame 15 0 15 0 220 0 110 0)
-		    #hasHorizontalScrollBar: true
+#hasHorizontalScrollBar: true
-		    #hasVerticalScrollBar: true
+#hasVerticalScrollBar: true
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'TextEditorLabel'
+#name: 'TextEditorLabel'
-		    #layout: #(#AlignmentOrigin 53 0 19 0 0 0)
+#layout: #(#AlignmentOrigin 53 0 19 0 0 0)
-		    #label: 'Text Editor'
+#label: 'Text Editor'
-		    #style: #(#FontDescription #helvetica #medium #roman 10)
+#style: #(#FontDescription #helvetica #medium #roman 10)
-		    #adjust: #left
+#adjust: #left
-		    #resizeForLabel: true
+#resizeForLabel: true
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-		 #(#HTMLViewSpec
+#(#HTMLViewSpec
-		    #name: 'HTML Browser'
+#name: 'HTML Browser'
-		    #layout: #(#LayoutFrame 240 0 15 0 445 0 110 0)
+#layout: #(#LayoutFrame 240 0 15 0 445 0 110 0)
-		    #hasHorizontalScrollBar: true
+#hasHorizontalScrollBar: true
-		    #hasVerticalScrollBar: true
+#hasVerticalScrollBar: true
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'HTMLViewLabel'
+#name: 'HTMLViewLabel'
-		    #layout: #(#AlignmentOrigin 267 0 19 0 0 0)
+#layout: #(#AlignmentOrigin 267 0 19 0 0 0)
-		    #label: 'HTML View'
+#label: 'HTML View'
-		    #style: #(#FontDescription #helvetica #medium #roman 10)
+#style: #(#FontDescription #helvetica #medium #roman 10)
-		    #adjust: #left
+#adjust: #left
-		    #resizeForLabel: true
+#resizeForLabel: true
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-		 #(#InputFieldSpec
+#(#InputFieldSpec
-		    #name: 'Entry Field'
+#name: 'Entry Field'
-		    #layout: #(#LayoutFrame 15 0 125 0 220 0 147 0)
+#layout: #(#LayoutFrame 15 0 125 0 220 0 147 0)
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'EntryFieldLabel'
+#name: 'EntryFieldLabel'
-		    #layout: #(#AlignmentOrigin 53 0 147 0 0 1)
+#layout: #(#AlignmentOrigin 53 0 147 0 0 1)
-		    #label: 'Entry Field'
+#label: 'Entry Field'
-		    #style: #(#FontDescription #helvetica #medium #roman 10)
+#style: #(#FontDescription #helvetica #medium #roman 10)
-		    #adjust: #left
+#adjust: #left
-		    #resizeForLabel: true
+#resizeForLabel: true
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'Label'
+#name: 'Label'
-		    #layout: #(#LayoutFrame 240 0 125 0 445 0 147 0)
+#layout: #(#LayoutFrame 240 0 125 0 445 0 147 0)
-		    #label: 'Label'
+#label: 'Label'
-		    #translateLabel: true
+#translateLabel: true
-		)
+)
-	      )
+)
-	  )
+)
 )
 "Modified: / 20.5.1998 / 03:25:40 / cg"
 !
 <resource: #canvas>
 ^
 #(#FullSpec
-	  #'window:'
+#'window:'
-	   #(#WindowSpec
+#(#WindowSpec
-	      #'name:' 'UserPanel'
+#'name:' 'UserPanel'
-	      #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+#'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
-	      #'label:' 'UserPanel'
+#'label:' 'UserPanel'
-	      #'bounds:' #(#Rectangle 0 0 445 162)
+#'bounds:' #(#Rectangle 0 0 445 162)
-	  )
+)
-	  #'component:'
+#'component:'
-	   #(#SpecCollection
+#(#SpecCollection
-	      #'collection:'
+#'collection:'
-	       #(
+#(
-		 #(#LabelSpec
+#(#LabelSpec
-		    #'name:' 'helpText'
+#'name:' 'helpText'
-		    #'layout:' #(#Point 10 0)
+#'layout:' #(#Point 10 0)
-		    #'labelChannel:' #userDefinedHelpText
+#'labelChannel:' #userDefinedHelpText
-		    #'resizeForLabel:' true
+#'resizeForLabel:' true
-		    #'canUIDrag:' false
+#'canUIDrag:' false
-		)
+)
-	      )
+)
-	  )
+)
 )
 ! !
 !UISelectionPanel methodsFor:'actions'!
 bd at:#specsKey  put:( (userSpecs  ? '') asValue).
 bd at:#labelsKey put:( (userLabels ? '') asValue).
 bd at:#updateDefaultResources put:(false asValue).
 (self openDialogInterface:#nameAndSelectorSpec withBindings:bd) ifTrue:[
-	(      (cls := (bd at:#className) value) notNil
+(      (cls := (bd at:#className) value) notNil
-	  and:[(sel := (bd at:#specsKey)  value) notNil
+and:[(sel := (bd at:#specsKey)  value) notNil
-	  and:[(lbl := (bd at:#labelsKey) value) notNil]]
+and:[(lbl := (bd at:#labelsKey) value) notNil]]
-	) ifTrue:[
+) ifTrue:[
-	    userClass  := cls.
+userClass  := cls.
-	    userSpecs  := sel.
+userSpecs  := sel.
-	    userLabels := lbl.
+userLabels := lbl.
-	    (bd at:#updateDefaultResources) value ifTrue:[
+(bd at:#updateDefaultResources) value ifTrue:[
-		UserClass  := userClass.
+UserClass  := userClass.
-		UserSpecs  := userSpecs.
+UserSpecs  := userSpecs.
-		UserLabels := userLabels.
+UserLabels := userLabels.
-	    ]
+]
-	]
+]
 ].
 !
 paste:something
 "paste something at a point
 "
 |coll specs point device gallery ext spec|
 clipBoardSpec isNil ifTrue:[
-	clipBoardSpec := SpecCollection new.
+clipBoardSpec := SpecCollection new.
-	clipBoardSpec collection:(OrderedCollection 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)
+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:[
-	specs := Array with:something
+specs := Array with:something
 ].
 specs do:[:aSpec|
-	point x > ext x ifTrue:[point x:1].
+point x > ext x ifTrue:[point x:1].
-	point y > ext y ifTrue:[point y:1].
+point y > ext y ifTrue:[point y:1].
-	spec := aSpec copy.
+spec := aSpec copy.
-	spec layout:(LayoutOrigin fromPoint:point).
+spec layout:(LayoutOrigin fromPoint:point).
-	coll add:spec.
+coll add:spec.
-	point := point + (20@20).
+point := point + (20@20).
 ].
 gallery update.
 !
 raiseMenu
 |spec menu value paste|
 spec := self clientSpec value.
 spec notNil ifTrue:[
-	menu := self class menuSelected decodeAsLiteralArray.
+menu := self class menuSelected decodeAsLiteralArray.
-	self isClipBoard ifFalse:[
+self isClipBoard ifFalse:[
-	    (menu someMenuItemWithValue:#cut) disable.
+(menu someMenuItemWithValue:#cut) disable.
-	].
+].
-	(value := menu startUp) == #cut ifTrue:[
+(value := menu startUp) == #cut ifTrue:[
-	    clipBoardSpec collection remove:spec ifAbsent:nil.
+clipBoardSpec collection remove:spec ifAbsent:nil.
-	    (self builder componentAt:#gallery) update.
+(self builder componentAt:#gallery) update.
-	] ifFalse:[
+] ifFalse:[
-	    value == #copy ifTrue:[
+value == #copy ifTrue:[
-		self window setSelection:spec
+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:[
+(menu startUp) == #paste ifTrue:[
-	    self paste:paste
+self paste:paste
-	]
+]
 ].
 ! !
 !UISelectionPanel methodsFor:'aspects'!
 "automatically generated by UIPainter ..."
 |holder|
 (holder := builder bindingAt:#clientSpec) isNil ifTrue:[
-	builder aspectAt:#clientSpec put:(holder :=  ValueHolder new).
+builder aspectAt:#clientSpec put:(holder :=  ValueHolder new).
-	holder addDependent:self.
+holder addDependent:self.
 ].
 ^ holder
 !
 clipBoardSpec
 "automatically generated by UIPainter ..."
 |holder|
 (holder := builder bindingAt:#galleryList) isNil ifTrue:[
-	builder aspectAt:#galleryList put:(holder :=  ValueHolder new).
+builder aspectAt:#galleryList put:(holder :=  ValueHolder new).
 ].
 ^ holder
 !
 galleryModel
 "automatically generated by UIPainter ..."
 |holder|
 (holder := builder bindingAt:#galleryModel) isNil ifTrue:[
-	builder aspectAt:#galleryModel put:(holder :=  ValueHolder new).
+builder aspectAt:#galleryModel put:(holder :=  ValueHolder new).
 ].
 ^ holder
 !
 majorChannel
 "automatically generated by UIPainter ..."
 |holder|
 (holder := builder bindingAt:#majorChannel) isNil ifTrue:[
-	holder := AspectAdaptor new subject:self; forAspect:#majorSelection.
+holder := AspectAdaptor new subject:self; forAspect:#majorSelection.
-	builder aspectAt:#majorChannel put:holder.
+builder aspectAt:#majorChannel put:holder.
 ].
 ^ holder
 !
 majorList
 "automatically generated by UIPainter ..."
 |holder|
 (holder := builder bindingAt:#minorKeys) isNil ifTrue:[
-	builder aspectAt:#minorKeys put:(holder :=  ValueHolder new).
+builder aspectAt:#minorKeys put:(holder :=  ValueHolder new).
 ].
 ^ holder
 ! !
 !UISelectionPanel methodsFor:'change & update'!
 "one of my models changed its value
 "
 |channel label topView|
 (channel := self clientSpec) == changedObject ifTrue:[
-	topView := builder window topView.
+topView := builder window topView.
-	(label := channel value) notNil ifTrue:[
+(label := channel value) notNil ifTrue:[
-	    topView label:label name, ' '.
+topView label:label name, ' '.
-	] ifFalse:[
+] ifFalse:[
-	    topView label:'Widget Gallery '
+topView label:'Widget Gallery '
-	]
+]
 ].
 super update:something with:aParameter from:changedObject.
 |spc top|
 top := DragAndDropManager dragOriginatorQuerySignal raise topView.
 top == aComponent topView ifTrue:[
-	spc := self clientSpec value.
+spc := self clientSpec value.
-	spc isNil ifTrue:[^ self].
+spc isNil ifTrue:[^ self].
-	(clipBoardSpec collection remove:spc ifAbsent:nil) isNil ifTrue:[
+(clipBoardSpec collection remove:spc ifAbsent:nil) isNil ifTrue:[
-	    ^ self
+^ self
-	].
+].
 ] ifFalse:[
-	spc := something collect:[:el| el theObject].
+spc := something collect:[:el| el theObject].
 ].
 self paste:spc.
 ! !
 !UISelectionPanel methodsFor:'queries'!
 canPaste:something
 "returns true if something could be paste
 "
 (self isClipBoard and:[something notNil]) ifTrue:[
-	something isCollection ifTrue:[
+something isCollection ifTrue:[
-	    something notEmpty ifTrue:[
+something notEmpty ifTrue:[
-		^ (something at:1) isKindOf:UISpecification
+^ (something at:1) isKindOf:UISpecification
-	    ]
+]
-	] ifFalse:[
+] ifFalse:[
-	    ^ something isKindOf:UISpecification
+^ something isKindOf:UISpecification
-	]
+]
 ].
 ^ false
 !
 isClipBoard
 "returns true if current view is clip board
 "
 majorSelection ~~ 0 ifTrue:[
-	^ (self majorList at:majorSelection) startsWith:'Clip'
+^ (self majorList at:majorSelection) startsWith:'Clip'
 ].
 ^ false
 !
 isUserBoard
 "returns true if current view is clip board
 "
 majorSelection ~~ 0 ifTrue:[
-	^ (self majorList at:majorSelection) startsWith:'User'
+^ (self majorList at:majorSelection) startsWith:'User'
 ].
 ^ false
 ! !
 !UISelectionPanel methodsFor:'selection'!
 majorSelection:aSelection
 |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.
 spec := ((self class specifications) at:majorSelection) last.
 gallery := self galleryModel.
 gallery value:0.
 self minorKeys value:nil.
 spec isSymbol ifFalse:[
-	self galleryList  value:(spec collect:[:a| a first]).
+self galleryList  value:(spec collect:[:a| a first]).
-	self minorKeys setValue:(spec collect:[:a| a last]).
+self minorKeys setValue:(spec collect:[:a| a last]).
 ] ifTrue:[
-	self perform:spec.
+self perform:spec.
 ].
 gallery value:1.
 "Modified: / 21.4.1998 / 11:59:08 / cg"
 ! !
 closeRequest
 |sav|
 (sav := masterApplication) notNil ifTrue:[
-	masterApplication := nil.
+masterApplication := nil.
-	sav closeRequestFor:(self window).
+sav closeRequestFor:(self window).
-	masterApplication := sav.
+masterApplication := sav.
 ] ifFalse:[
-	super closeRequest.
+super closeRequest.
 ]
 "Modified: 28.7.1997 / 09:44:40 / cg"
 !
 |cls lbl sel builder|
 cls := self resolveName:userClass.
 (cls notNil and:[(cls respondsTo:userLabels)]) ifTrue:[
-	lbl := cls perform:userLabels.
+lbl := cls perform:userLabels.
-	sel := Array new:(lbl size) withAll:#userDefinedSpec.
+sel := Array new:(lbl size) withAll:#userDefinedSpec.
-	self galleryList value:lbl.
+self galleryList value:lbl.
-	self minorKeys   value:sel.
+self minorKeys   value:sel.
 ] ifFalse:[
-	builder := UIBuilder new isEditing:true.
+builder := UIBuilder new isEditing:true.
-	builder application:self.
+builder application:self.
-	(self builder componentAt:#gallery) builder:builder.
+(self builder componentAt:#gallery) builder:builder.
-	self galleryList value:#( '???' ).
+self galleryList value:#( '???' ).
-	self minorKeys   value:#( standardUserPanel ).
+self minorKeys   value:#( standardUserPanel ).
 ]
 !
 userDefinedHelpText
 |cls spc idx|
 cls := self resolveName:userClass.
 (cls notNil and:[(cls respondsTo:userSpecs)]) ifTrue:[
-	spc := cls perform:userSpecs.
+spc := cls perform:userSpecs.
-	idx := self galleryModel value.
+idx := self galleryModel value.
-	idx <= spc size ifTrue:[
+idx <= spc size ifTrue:[
-	    spc := spc at:idx.
+spc := spc at:idx.
-	    (cls respondsTo:spc) ifTrue:[
+(cls respondsTo:spc) ifTrue:[
-		^ cls perform:spc
+^ cls perform:spc
-	    ]
+]
-	]
+]
 ].
 ^ nil
 ! !
 !UISelectionPanel::UserDefinedGallery class methodsFor:'class initialization'!
 SelectorList := self defaultListOfSelectors asOrderedCollection.
 HolderList := OrderedCollection new grow:(SelectorList size).
 NextUniqueNumber := 1.
 UISelectionPanel
-	userClass:self
+userClass:self
-	specSelector:#listOfSelectors
+specSelector:#listOfSelectors
-	labelSelector:#listOfLabels.
+labelSelector:#listOfLabels.
 "
 self initialize
 "
 ! !
 !UISelectionPanel::UserDefinedGallery class methodsFor:'defaults'!
 defaultListOfLabels
-^ #( 'Clocks etc.' )
+^ #( 'Clocks etc.' 'Business Graphics' )
 "Created: / 8.12.1997 / 18:50:06 / cg"
 "Modified: / 16.6.1998 / 10:20:12 / cg"
 !
 defaultListOfSelectors
-^ #( clocksSpec )
+^ #( clocksSpec businessGraphicsSpec)
 "Modified: / 5.12.1997 / 14:03:55 / cg"
 "Created: / 8.12.1997 / 18:50:21 / cg"
 ! !
 !UISelectionPanel::UserDefinedGallery class methodsFor:'documentation'!
 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
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 or #removeUserSpecWithLabel:.
 Typically, this is done when a framework is loaded, by one of the
 frameworks class-initialization methods.
 [start with:]
-	UISelectionPanel open
+UISelectionPanel open
 [author:]
-	Claus Gittinger
+Claus Gittinger
-	Claus Atzkern
+Claus Atzkern
 [see also:]
-	TabView
+TabView
-	NoteBookView
+NoteBookView
-	UIGalleryView
+UIGalleryView
-	UIPainter
+UIPainter
 "
 ! !
 syntheticSelector := ('userSpec' , NextUniqueNumber printString) asSymbol.
 NextUniqueNumber := NextUniqueNumber + 1.
 idx := LabelList indexOf:aLabelString.
 idx ~~ 0 ifTrue:[
-	SelectorList at:idx put:syntheticSelector.
+SelectorList at:idx put:syntheticSelector.
-	HolderList at:idx put:aValueHolder
+HolderList at:idx put:aValueHolder
 ] ifFalse:[
-	LabelList addLast:aLabelString.
+LabelList addLast:aLabelString.
-	SelectorList addLast:syntheticSelector.
+SelectorList addLast:syntheticSelector.
-	HolderList addLast:aValueHolder
+HolderList addLast:aValueHolder
 ]
 "Modified: / 5.12.1997 / 14:13:17 / cg"
 "Created: / 8.12.1997 / 18:50:55 / cg"
 !
 |idx|
 idx := LabelList indexOf:aLabelString.
 idx ~~ 0 ifTrue:[
-	LabelList removeIndex:idx.
+LabelList removeIndex:idx.
-	SelectorList removeIndex:idx.
+SelectorList removeIndex:idx.
-	HolderList removeIndex:idx
+HolderList removeIndex:idx
 ].
 "Modified: / 5.12.1997 / 14:13:45 / cg"
 "Created: / 8.12.1997 / 18:51:03 / cg"
 ! !
 !UISelectionPanel::UserDefinedGallery class methodsFor:'user defined gallery'!
+businessGraphicsSpec
+"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::UserDefinedGallery andSelector:#businessGraphicsSpec
+UISelectionPanel::UserDefinedGallery new openInterface:#businessGraphicsSpec
+"
+<resource: #canvas>
+^
+#(#FullSpec
+#window:
+#(#WindowSpec
+#name: 'Interface Builder'
+#layout: #(#LayoutFrame 6 0 582 0 385 0 852 0)
+#label: 'Interface Builder'
+#min: #(#Point 10 10)
+#max: #(#Point 1280 1024)
+#bounds: #(#Rectangle 6 582 386 853)
+#usePreferredExtent: false
+)
+#component:
+#(#SpecCollection
+#collection:
+#(
+#(#LabelSpec
+#name: 'Label2'
+#layout: #(#LayoutFrame 5 0 5 0 70 0 20 0)
+#label: 'PieChart'
+#translateLabel: true
+#canUIDrag: false
+)
+#(#PieChartWidgetSpec
+#name: 'PIE Chart'
+#layout: #(#LayoutFrame 15 0 21 0 103 0 141 0)
+)
+#(#LabelSpec
+#name: 'Label1'
+#layout: #(#LayoutFrame 16 0.0 146 0 131 0 161 0)
+#label: 'ChartDescription'
+#translateLabel: true
+#adjust: #left
+#canUIDrag: false
+)
+#(#ChartDescriptionSpec
+#name: 'Chart Legend'
+#layout: #(#LayoutFrame 14 0.0 -4 0.656827 14 0.323684 -4 1.0)
+)
+#(#LabelSpec
+#name: 'Label3'
+#layout: #(#LayoutFrame 115 0 5 0 180 0 20 0)
+#label: 'BarChart'
+#translateLabel: true
+#canUIDrag: false
+)
+#(#BarChartWidgetSpec
+#name: 'Bar Chart'
+#layout: #(#LayoutFrame 121 0 21 0 232 0 141 0)
+)
+)
+)
+)
+!
 clocksSpec
 "This resource specification was automatically generated
 by the UIPainter of ST/X."
 "Do not manually edit this!! If it is corrupted,
 <resource: #canvas>
 ^
 #(#FullSpec
-	  #window:
+#window:
-	   #(#WindowSpec
+#(#WindowSpec
-	      #name: 'Interface Builder'
+#name: 'Interface Builder'
-	      #layout: #(#LayoutFrame 402 0 59 0 781 0 329 0)
+#layout: #(#LayoutFrame 402 0 59 0 781 0 329 0)
-	      #label: 'Interface Builder'
+#label: 'Interface Builder'
-	      #min: #(#Point 10 10)
+#min: #(#Point 10 10)
-	      #max: #(#Point 1280 1024)
+#max: #(#Point 1280 1024)
-	      #bounds: #(#Rectangle 402 59 782 330)
+#bounds: #(#Rectangle 402 59 782 330)
-	      #usePreferredExtent: false
+#usePreferredExtent: false
-	  )
+)
-	  #component:
+#component:
-	   #(#SpecCollection
+#(#SpecCollection
-	      #collection:
+#collection:
-	       #(
+#(
-		 #(#ArbitraryComponentSpec
+#(#ArbitraryComponentSpec
-		    #name: 'Analog Clock'
+#name: 'Analog Clock'
-		    #layout: #(#LayoutFrame 15 0 39 0 129 0 151 0)
+#layout: #(#LayoutFrame 15 0 39 0 129 0 151 0)
-		    #component: #ClockView
+#component: #ClockView
-		    #hasBorder: false
+#hasBorder: false
-		)
+)
-		 #(#ArbitraryComponentSpec
+#(#ArbitraryComponentSpec
-		    #name: 'Digital Clock'
+#name: 'Digital Clock'
-		    #layout: #(#LayoutOrigin 15 0 176 0)
+#layout: #(#LayoutOrigin 15 0 176 0)
-		    #component: #DigitalClockView
+#component: #DigitalClockView
-		    #hasBorder: false
+#hasBorder: false
-		)
+)
-		 #(#ArbitraryComponentSpec
+#(#ArbitraryComponentSpec
-		    #name: 'Digital Number display'
+#name: 'Digital Number display'
-		    #layout: #(#LayoutOrigin 142 0 39 0)
+#layout: #(#LayoutOrigin 142 0 39 0)
-		    #component: #DigitalLedDisplay
+#component: #DigitalLedDisplay
-		    #hasBorder: false
+#hasBorder: false
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'Label1'
+#name: 'Label1'
-		    #layout: #(#LayoutFrame 15 0 16 0 128 0 38 0)
+#layout: #(#LayoutFrame 15 0 16 0 128 0 38 0)
-		    #label: 'Analog Clock'
+#label: 'Analog Clock'
-		    #translateLabel: true
+#translateLabel: true
-		    #adjust: #left
+#adjust: #left
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'Label2'
+#name: 'Label2'
-		    #layout: #(#LayoutFrame 142 0 16 0 270 0 38 0)
+#layout: #(#LayoutFrame 142 0 16 0 270 0 38 0)
-		    #label: 'Number Display'
+#label: 'Number Display'
-		    #translateLabel: true
+#translateLabel: true
-		    #adjust: #left
+#adjust: #left
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'Label3'
+#name: 'Label3'
-		    #layout: #(#LayoutFrame 15 0 155 0 128 0 177 0)
+#layout: #(#LayoutFrame 15 0 155 0 128 0 177 0)
-		    #label: 'Digital Clock'
+#label: 'Digital Clock'
-		    #translateLabel: true
+#translateLabel: true
-		    #adjust: #left
+#adjust: #left
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-		 #(#MeterWidgetSpec
+#(#MeterWidgetSpec
-		    #name: 'Meter Widget'
+#name: 'Meter Widget'
-		    #layout: #(#Rectangle 143 101 248 216)
+#layout: #(#Rectangle 143 101 248 216)
-		    #model: #meterValue
+#model: #meterValue
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'Label4'
+#name: 'Label4'
-		    #layout: #(#LayoutFrame 142 0 74 0 269 0 96 0)
+#layout: #(#LayoutFrame 142 0 74 0 269 0 96 0)
-		    #label: 'Meter Widget'
+#label: 'Meter Widget'
-		    #translateLabel: true
+#translateLabel: true
-		    #adjust: #left
+#adjust: #left
-		    #canUIDrag: false
+#canUIDrag: false
-		)
+)
-	      )
+#(#MeterClackCounterSpec
-	  )
+#name: 'Meter Clack Counter'
+#layout: #(#Rectangle 291 40 387 72)
+#model: #model
+)
+#(#LabelSpec
+#name: 'Label5'
+#layout: #(#LayoutFrame 290 0 16 0 417 0 38 0)
+#label: 'Meter Clack Counter'
+#translateLabel: true
+#adjust: #left
+#canUIDrag: false
+)
+)
+)
 )
 !
 listOfLabels
 ^ LabelList
 "catch queries for a userSpec"
 |sel idx|
 ((sel := aMessage selector) startsWith:'userSpec') ifTrue:[
-	idx := SelectorList indexOf:sel.
+idx := SelectorList indexOf:sel.
-	idx ~~ 0 ifTrue:[
+idx ~~ 0 ifTrue:[
-	    ^ (HolderList at:idx) value
+^ (HolderList at:idx) value
-	]
+]
 ].
 ^ super doesNotUnderstand:aMessage
 "Modified: / 5.12.1997 / 14:23:24 / cg"
 "Created: / 8.12.1997 / 18:51:50 / cg"
 "catch queries for a userSpec"
 |idx|
 (aSelector startsWith:'userSpec') ifTrue:[
-	idx := Number fromString:(aSelector copyFrom:9).
+idx := Number fromString:(aSelector copyFrom:9).
-	idx := SelectorList indexOf:aSelector.
+idx := SelectorList indexOf:aSelector.
-	idx ~~ 0 ifTrue:[^ true].
+idx ~~ 0 ifTrue:[^ true].
 ].
 ^ super respondsTo:aSelector
 "Modified: / 5.12.1997 / 14:19:55 / cg"
 "Created: / 8.12.1997 / 18:51:57 / cg"

changeset 987	1147acb8ac80
parent 985	ec4907d7cdfd
child 1044	e63478a6e668