# HG changeset patch
# User tz
# Date 889642013 -3600
# Node ID 7c7fb3f3a9277b24d0a708939c805ae49f6c6f8e
# Parent  60e8ffac2f3800a3ff752bb5bb0e5dc2a509d152
docu calls added

diff -r 60e8ffac2f38 -r 7c7fb3f3a927 UIPainter.st
--- a/UIPainter.st	Wed Mar 11 19:28:34 1998 +0100
+++ b/UIPainter.st	Wed Mar 11 19:46:53 1998 +0100
@@ -98,13 +98,6 @@
 
 ! !
 
-!UIPainter class methodsFor:'accessing'!
-
-label
-
-    ^'GUI Builder'
-! !
-
 !UIPainter class methodsFor:'accessing-defaults'!
 
 defaultNameOfCanvas
@@ -195,6 +188,9 @@
 #editDimensionPasteWidth
 'Sets the width of the selected widgets to the width of the last copied layout/extent.'
 
+#editInspectSpec
+'Opens an inspector on the spec of the selected widget.'
+
 #fileBrowseAspectMethods
 'Opens a System Browser to browse the aspect methods.'
 
@@ -443,84 +439,83 @@
     <resource: #canvas>
 
     ^
-
+     
        #(#FullSpec
-          #'window:' 
+          #window: 
            #(#WindowSpec
-              #'name:' 'GUI Builder'
-              #'layout:' #(#LayoutFrame 238 0 270 0 584 0 429 0)
-              #'label:' 'GUI Builder'
-              #'min:' #(#Point 10 10)
-              #'max:' #(#Point 1152 900)
-              #'bounds:' #(#Rectangle 238 270 585 430)
-              #'usePreferredExtent:' false
+              #name: 'GUI Painter'
+              #layout: #(#LayoutFrame 296 0 349 0 642 0 508 0)
+              #label: 'GUI Painter'
+              #min: #(#Point 10 10)
+              #max: #(#Point 1152 900)
+              #bounds: #(#Rectangle 296 349 643 509)
+              #usePreferredExtent: false
           )
-          #'component:' 
+          #component: 
            #(#SpecCollection
-              #'collection:' 
+              #collection: 
                #(
                  #(#FramedBoxSpec
-                    #'name:' 'framedBox1'
-                    #'layout:' #(#LayoutFrame 0 0.0 3 0.0 0 1.0 -35 1.0)
-                    #'component:' 
+                    #name: 'framedBox1'
+                    #layout: #(#LayoutFrame 0 0.0 3 0.0 0 1.0 -35 1.0)
+                    #component: 
                      #(#SpecCollection
-                        #'collection:' 
+                        #collection: 
                          #(
                            #(#LabelSpec
-                              #'name:' 'selectorLabel'
-                              #'layout:' #(#AlignmentOrigin 77 0.11 39 0 1 0.5)
-                              #'label:' 'Selector:'
-                              #'adjust:' #right
-                              #'resizeForLabel:' true
+                              #name: 'selectorLabel'
+                              #layout: #(#AlignmentOrigin 77 0.11 39 0 1 0.5)
+                              #label: 'Selector:'
+                              #adjust: #right
+                              #resizeForLabel: true
                           )
                            #(#InputFieldSpec
-                              #'name:' 'methodNameField'
-                              #'layout:' #(#LayoutFrame 80 0.11 28 0 14 1.0 50 0)
-                              #'tabable:' true
-                              #'model:' #methodNameChannel
+                              #name: 'methodNameField'
+                              #layout: #(#LayoutFrame 80 0.11 28 0 14 1.0 50 0)
+                              #tabable: true
+                              #model: #methodNameChannel
                           )
                            #(#LabelSpec
-                              #'name:' 'classLabel'
-                              #'layout:' #(#AlignmentOrigin 77 0.11 64 0 1 0.5)
-                              #'label:' 'Class:'
-                              #'adjust:' #right
-                              #'resizeForLabel:' true
+                              #name: 'classLabel'
+                              #layout: #(#AlignmentOrigin 77 0.11 64 0 1 0.5)
+                              #label: 'Class:'
+                              #adjust: #right
+                              #resizeForLabel: true
                           )
                            #(#InputFieldSpec
-                              #'name:' 'classNameField'
-                              #'layout:' #(#LayoutFrame 80 0.11 53 0 14 1.0 75 0)
-                              #'tabable:' true
-                              #'model:' #classNameChannel
+                              #name: 'classNameField'
+                              #layout: #(#LayoutFrame 80 0.11 53 0 14 1.0 75 0)
+                              #tabable: true
+                              #model: #classNameChannel
                           )
                            #(#LabelSpec
-                              #'name:' 'superClassLabel'
-                              #'layout:' #(#AlignmentOrigin 77 0.11 89 0 1 0.5)
-                              #'label:' 'Superclass:'
-                              #'adjust:' #right
-                              #'resizeForLabel:' true
+                              #name: 'superClassLabel'
+                              #layout: #(#AlignmentOrigin 77 0.11 89 0 1 0.5)
+                              #label: 'Superclass:'
+                              #adjust: #right
+                              #resizeForLabel: true
                           )
                            #(#ComboBoxSpec
-                              #'name:' 'superclassNameComboBox'
-                              #'layout:' #(#LayoutFrame 80 0.11 78 0 14 1.0 100 0)
-                              #'tabable:' true
-                              #'model:' #superclassNameChannel
-                              #'comboList:' #superclassNameDefaults
+                              #name: 'superclassNameComboBox'
+                              #layout: #(#LayoutFrame 80 0.11 78 0 14 1.0 100 0)
+                              #tabable: true
+                              #model: #superclassNameChannel
+                              #comboList: #superclassNameDefaults
                           )
                         )
                     )
-                    #'label:' 'Define Class And Selector'
-                    #'labelPosition:' #topLeft
+                    #label: 'Define Class And Selector'
+                    #labelPosition: #topLeft
                 )
                  #(#UISubSpecification
-                    #'name:' 'uISubSpecifica1'
-                    #'layout:' #(#LayoutFrame 0 0.0 -29 1 0 1.0 -5 1)
-                    #'majorKey:' #ToolApplicationModel
-                    #'minorKey:' #windowSpecForCommitWithoutChannels
+                    #name: 'uISubSpecifica1'
+                    #layout: #(#LayoutFrame 0 0.0 -29 1 0 1.0 -5 1)
+                    #majorKey: #ToolApplicationModel
+                    #minorKey: #windowSpecForCommitWithoutChannels
                 )
               )
           )
       )
-
 !
 
 windowSpec
@@ -940,18 +935,28 @@
                     
                      #(
                        #(#MenuItem
-                          #label: 'Documentation'
+                          #label: 'Tutorial'
                           #translateLabel: true
-                          #value: #openDocumentation
+                          #value: #openHTMLDocument:
                           #activeHelpKey: #helpTutorial
-                          #enabled: #valueOfHavingDocumentation
+                          #argument: 'tools/uipainter/TOP.html'
+                      )
+                       #(#MenuItem
+                          #label: '-'
+                      )
+                       #(#MenuItem
+                          #label: 'Functions'
+                          #translateLabel: true
+                          #value: #openHTMLDocument:
+                          #activeHelpKey: #helpTutorial
+                          #argument: 'tools/uipainter/Functions.html'
                       )
                        #(#MenuItem
                           #label: 'Examples'
                           #translateLabel: true
-                          #value: #openExamples
+                          #value: #openHTMLDocument:
                           #activeHelpKey: #helpTutorial
-                          #enabled: #valueOfHavingExamples
+                          #argument: 'tools/uipainter/Examples.html'
                       )
                        #(#MenuItem
                           #label: '-'
@@ -1112,7 +1117,7 @@
             )
              #(#MenuItem
                 #label: 'Cut'
-                #value: #cutSelection
+                #value: #deleteSelection
                 #activeHelpKey: #editCut
                 #enabled: #valueOfCanCut
                 #shortcutKeyCharacter: #Cut
@@ -1133,7 +1138,8 @@
             )
              #(#MenuItem
                 #label: 'Delete'
-                #value: #deleteSelection
+                #value: #deleteTotalSelection
+                #activeHelpKey: #editDelete
                 #enabled: #valueOfCanCut
                 #shortcutKeyCharacter: #Delete
             )
@@ -1230,12 +1236,11 @@
              #(#MenuItem
                 #label: 'Inspect Spec'
                 #value: #inspectSpec
+                #activeHelpKey: #editInspectSpec
             )
           ) nil
           nil
       )
-
-    "Modified: / 10.3.1998 / 18:12:11 / stefan"
 !
 
 menuMove
@@ -1344,7 +1349,7 @@
              #(#MenuItem
                 #label: 'Cut'
                 #isButton: true
-                #value: #cutSelection
+                #value: #deleteSelection
                 #activeHelpKey: #editCut
                 #enabled: #valueOfCanCut
                 #labelImage: #(#ResourceRetriever nil #cutIcon)
@@ -1368,7 +1373,7 @@
              #(#MenuItem
                 #label: 'Delete'
                 #isButton: true
-                #value: #deleteSelection
+                #value: #deleteTotalSelection
                 #activeHelpKey: #editDelete
                 #enabled: #valueOfCanCut
                 #labelImage: #(#ResourceRetriever nil #deleteIcon)
@@ -1715,6 +1720,12 @@
 
 !UIPainter methodsFor:'aspects'!
 
+aspectFor:aKey
+    "aspect for a key
+    "
+  ^ aspects at:aKey ifAbsent:[ super aspectFor:aKey ]
+!
+
 canChangeOrderInContainer
     "returns a boolean value holder which is true if the component order can be changed within their container.
     "
@@ -1858,14 +1869,6 @@
     ^ treeView
 ! !
 
-!UIPainter methodsFor:'binding access'!
-
-aspectFor:aKey
-    "aspect for a key
-    "
-  ^ aspects at:aKey ifAbsent:[ super aspectFor:aKey ]
-! !
-
 !UIPainter methodsFor:'building editors'!
 
 openDataSetColumnEditor
@@ -2113,16 +2116,6 @@
     ^specClass printString, ' >> ', specSelector
 !
 
-openDocumentation
-
-    self openHTMLDocument: 'tools/uipainter/TOP.html'
-!
-
-openExamples
-
-    self openHTMLDocument: 'tools/uipainter/Examples.html'
-!
-
 showHelp:aHelpText for:view
     "display active help texts in my own info area."
 
@@ -2860,7 +2853,7 @@
     painter resetModification.
     (ReadStream on:code) fileIn.
 
-    self helpTool installHelpSpecInto:specClass.
+    self helpTool installHelpSpecsOnClass:specClass.
 
     self updateInfoLabel.
     self painter resetModification.