UIPainter.st
changeset 1317 49d6dac15a57
parent 1316 d66f0b84aa6b
child 1319 6a245b972637
--- a/UIPainter.st	Sat Jan 29 13:30:36 2000 +0100
+++ b/UIPainter.st	Sat Jan 29 14:18:08 2000 +0100
@@ -689,161 +689,207 @@
 
     ^ 
      #(#FullSpec
-	#name: #windowSpec
-	#window: 
+        #name: #windowSpec
+        #window: 
        #(#WindowSpec
-	  #label: 'GUI Painter'
-	  #name: 'GUI Painter'
-	  #layout: #(#LayoutFrame 220 0 200 0 827 0 722 0)
-	  #min: #(#Point 560 460)
-	  #max: #(#Point 1160 870)
-	  #bounds: #(#Rectangle 220 200 828 723)
-	  #menu: #menu
-	)
-	#component: 
+          #label: 'GUI Painter'
+          #name: 'GUI Painter'
+          #min: #(#Point 560 460)
+          #max: #(#Point 1160 870)
+          #bounds: #(#Rectangle 12 22 620 545)
+          #menu: #menu
+        )
+        #component: 
        #(#SpecCollection
-	  #collection: #(
-	   #(#MenuPanelSpec
-	      #name: 'menuToolbarView'
-	      #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
-	      #tabable: true
-	      #menu: #menuToolbar
-	    )
-	   #(#VariableHorizontalPanelSpec
-	      #name: 'hpanel'
-	      #layout: #(#LayoutFrame 0 0.0 34 0.0 0 1.0 -26 1.0)
-	      #level: 1
-	      #handles: #(#Any 0.318868 1.0)
-	      #component: 
-	     #(#SpecCollection
-		#collection: #(
-		 #(#ArbitraryComponentSpec
-		    #name: 'treeView'
-		    #tabable: true
-		    #menu: #menuEdit
-		    #hasHorizontalScrollBar: true
-		    #hasVerticalScrollBar: true
-		    #miniScrollerHorizontal: true
-		    #miniScrollerVertical: true
-		    #hasBorder: false
-		    #component: #treeView
-		  )
-		 #(#ViewSpec
-		    #name: 'specHolderView'
-		    #borderWidth: 1
-		    #component: 
-		   #(#SpecCollection
-		      #collection: #(
-		       #(#MenuPanelSpec
-			  #name: 'menuToolbar2View'
-			  #layout: #(#LayoutFrame -1 0.0 -2 0 -1 1.0 30 0)
-			  #enableChannel: #canMoveOrAlignSelection
-			  #tabable: true
-			  #menu: #menuToolbar2
-			)
-		       #(#NoteBookViewSpec
-			  #name: 'noteBook'
-			  #layout: #(#LayoutFrame 0 0.0 34 0.0 0 1.0 -30 1.0)
-			  #enableChannel: #enableChannel
-			  #tabable: true
-			  #model: #tabModel
-			  #menu: #tabList
-			  #canvas: #noteBookView
-			)
-		       #(#HorizontalPanelViewSpec
-			  #name: 'horizontalPanelView1'
-			  #layout: #(#LayoutFrame -163 1 -1 0 -35 1.0 28 0)
-			  #horizontalLayout: #fit
-			  #verticalLayout: #fit
-			  #horizontalSpace: 0
-			  #verticalSpace: 0
-			  #component: 
-			 #(#SpecCollection
-			    #collection: #(
-			     #(#ArrowButtonSpec
-				#name: 'MoveLeftButton'
-				#activeHelpKey: #changePositionLeft
-				#tabable: true
-				#model: #moveSelectionLeft
-				#enableChannel: #canMoveOrAlignSelection
-				#isTriggerOnDown: true
-				#direction: #left
-				#useDefaultExtent: true
-			      )
-			     #(#ArrowButtonSpec
-				#name: 'MoveRightButton'
-				#activeHelpKey: #changePositionRight
-				#model: #moveSelectionRight
-				#enableChannel: #canMoveOrAlignSelection
-				#isTriggerOnDown: true
-				#direction: #right
-				#useDefaultExtent: true
-			      )
-			     #(#ArrowButtonSpec
-				#name: 'MoveDownButton'
-				#activeHelpKey: #changePositionDown
-				#model: #moveSelectionDown
-				#enableChannel: #canMoveOrAlignSelection
-				#isTriggerOnDown: true
-				#direction: #down
-				#useDefaultExtent: true
-			      )
-			     #(#ArrowButtonSpec
-				#name: 'MoveUpButton'
-				#activeHelpKey: #changePositionUp
-				#model: #moveSelectionUp
-				#enableChannel: #canMoveOrAlignSelection
-				#isTriggerOnDown: true
-				#direction: #up
-				#useDefaultExtent: true
-			      )
-			     )
+          #collection: #(
+           #(#MenuPanelSpec
+              #attributes: 
+             #(#tabable
+                true
+              )
+              #name: 'menuToolbarView'
+              #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
+              #tabable: true
+              #menu: #menuToolbar
+            )
+           #(#VariableHorizontalPanelSpec
+              #name: 'hpanel'
+              #layout: #(#LayoutFrame 0 0.0 34 0.0 0 1.0 -26 1.0)
+              #level: 1
+              #component: 
+             #(#SpecCollection
+                #collection: #(
+                 #(#ArbitraryComponentSpec
+                    #name: 'treeView'
+                    #tabable: true
+                    #menu: #menuEdit
+                    #hasHorizontalScrollBar: true
+                    #hasVerticalScrollBar: true
+                    #miniScrollerHorizontal: true
+                    #miniScrollerVertical: true
+                    #hasBorder: false
+                    #component: #treeView
+                  )
+                 #(#ViewSpec
+                    #name: 'specHolderView'
+                    #borderWidth: 1
+                    #component: 
+                   #(#SpecCollection
+                      #collection: #(
+                       #(#MenuPanelSpec
+                          #attributes: 
+                         #(#tabable
+                            true
+                          )
+                          #name: 'menuToolbar2View'
+                          #layout: #(#LayoutFrame -1 0.0 -2 0 -1 1.0 30 0)
+                          #enableChannel: #canMoveOrAlignSelection
+                          #tabable: true
+                          #menu: #menuToolbar2
+                        )
+                       #(#HorizontalPanelViewSpec
+                          #name: 'horizontalPanelView1'
+                          #layout: #(#LayoutFrame -163 1 -1 0 -35 1.0 28 0)
+                          #horizontalLayout: #fit
+                          #verticalLayout: #fit
+                          #horizontalSpace: 0
+                          #verticalSpace: 0
+                          #component: 
+                         #(#SpecCollection
+                            #collection: #(
+                             #(#ArrowButtonSpec
+                                #attributes: 
+                               #(#tabable
+                                  true
+                                )
+                                #name: 'MoveLeftButton'
+                                #activeHelpKey: #changePositionLeft
+                                #tabable: true
+                                #model: #moveSelectionLeft
+                                #enableChannel: #canMoveOrAlignSelection
+                                #isTriggerOnDown: true
+                                #direction: #left
+                                #useDefaultExtent: true
+                              )
+                             #(#ArrowButtonSpec
+                                #attributes: 
+                               #(#tabable
+                                  true
+                                )
+                                #name: 'MoveRightButton'
+                                #activeHelpKey: #changePositionRight
+                                #tabable: true
+                                #model: #moveSelectionRight
+                                #enableChannel: #canMoveOrAlignSelection
+                                #isTriggerOnDown: true
+                                #actionValue: ''
+                                #direction: #right
+                                #useDefaultExtent: true
+                              )
+                             #(#ArrowButtonSpec
+                                #attributes: 
+                               #(#tabable
+                                  true
+                                )
+                                #name: 'MoveDownButton'
+                                #activeHelpKey: #changePositionDown
+                                #tabable: true
+                                #model: #moveSelectionDown
+                                #enableChannel: #canMoveOrAlignSelection
+                                #isTriggerOnDown: true
+                                #actionValue: ''
+                                #direction: #down
+                                #useDefaultExtent: true
+                              )
+                             #(#ArrowButtonSpec
+                                #attributes: 
+                               #(#tabable
+                                  true
+                                )
+                                #name: 'MoveUpButton'
+                                #activeHelpKey: #changePositionUp
+                                #tabable: true
+                                #model: #moveSelectionUp
+                                #enableChannel: #canMoveOrAlignSelection
+                                #isTriggerOnDown: true
+                                #actionValue: ''
+                                #direction: #up
+                                #useDefaultExtent: true
+                              )
+                             )
                            
-			  )
-			)
-		       #(#ActionButtonSpec
-			  #label: 'helpIcon'
-			  #name: 'openWidgetDocumentationButton'
-			  #layout: #(#LayoutFrame -28 1 -1 0 0 1 28 0)
-			  #activeHelpKey: #editOpenSpecDocumentation
-			  #hasCharacterOrientedLabel: false
-			  #model: #doOpenWidgetDocumentation
-			)
-		       #(#ActionButtonSpec
-			  #label: 'Cancel'
-			  #name: 'cancelButton'
-			  #layout: #(#LayoutFrame 2 0 -26 1 -1 0.5 -2 1)
-			  #activeHelpKey: #commitCancel
-			  #tabable: true
-			  #model: #cancel
-			  #enableChannel: #modifiedChannel
-			)
-		       #(#ActionButtonSpec
-			  #label: 'OK'
-			  #name: 'acceptButton'
-			  #layout: #(#LayoutFrame 1 0.5 -26 1 -2 1 -2 1)
-			  #activeHelpKey: #commitOK
-			  #tabable: true
-			  #model: #accept
-			  #enableChannel: #modifiedChannel
-			)
-		       )
+                          )
+                        )
+                       #(#ActionButtonSpec
+                          #attributes: 
+                         #(#tabable
+                            true
+                          )
+                          #label: 'helpIcon'
+                          #name: 'openWidgetDocumentationButton'
+                          #layout: #(#LayoutFrame -28 1 -1 0 0 1 28 0)
+                          #activeHelpKey: #editOpenSpecDocumentation
+                          #hasCharacterOrientedLabel: false
+                          #tabable: true
+                          #model: #doOpenWidgetDocumentation
+                        )
+                       #(#NoteBookViewSpec
+                          #attributes: 
+                         #(#tabable
+                            true
+                          )
+                          #name: 'noteBook'
+                          #layout: #(#LayoutFrame 0 0.0 34 0.0 0 1.0 -30 1.0)
+                          #enableChannel: #enableChannel
+                          #tabable: true
+                          #model: #tabModel
+                          #menu: #tabList
+                          #canvas: #noteBookView
+                        )
+                       #(#ActionButtonSpec
+                          #attributes: 
+                         #(#tabable
+                            true
+                          )
+                          #label: 'Cancel'
+                          #name: 'cancelButton'
+                          #layout: #(#LayoutFrame 2 0 -26 1 -1 0.5 -2 1)
+                          #activeHelpKey: #commitCancel
+                          #tabable: true
+                          #model: #cancel
+                          #enableChannel: #modifiedChannel
+                        )
+                       #(#ActionButtonSpec
+                          #attributes: 
+                         #(#tabable
+                            true
+                          )
+                          #label: 'OK'
+                          #name: 'acceptButton'
+                          #layout: #(#LayoutFrame 1 0.5 -26 1 -2 1 -2 1)
+                          #activeHelpKey: #commitOK
+                          #tabable: true
+                          #model: #accept
+                          #enableChannel: #modifiedChannel
+                        )
+                       )
                      
-		    )
-		  )
-		 )
+                    )
+                  )
+                 )
                
-	      )
-	    )
-	   #(#UISubSpecification
-	      #name: 'infoBarSubSpec'
-	      #layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
-	      #majorKey: #ToolApplicationModel
-	      #minorKey: #windowSpecForInfoBar
-	    )
-	   )
+              )
+              #handles: #(#Any 0.318868 1.0)
+            )
+           #(#UISubSpecification
+              #name: 'infoBarSubSpec'
+              #layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
+              #majorKey: #ToolApplicationModel
+              #minorKey: #windowSpecForInfoBar
+            )
+           )
          
-	)
+        )
       )
 ! !