UIHelpTool.st
changeset 1302 f13d0e144c82
parent 1243 03c4a3e4ddd2
child 1329 a38c2e29d1fb
--- a/UIHelpTool.st	Sat Jan 22 15:19:50 2000 +0100
+++ b/UIHelpTool.st	Sat Jan 22 15:22:22 2000 +0100
@@ -177,141 +177,154 @@
 
     <resource: #canvas>
 
-    ^
-     
-       #(#FullSpec
-          #window: 
-           #(#WindowSpec
-              #name: 'Help Tool'
-              #layout: #(#LayoutFrame 29 0 447 0 314 0 717 0)
-              #label: 'Help Tool'
-              #min: #(#Point 10 10)
-              #max: #(#Point 1160 870)
-              #bounds: #(#Rectangle 29 447 315 718)
-              #usePreferredExtent: false
-          )
-          #component: 
-           #(#SpecCollection
-              #collection: 
-               #(
-                 #(#VariableVerticalPanelSpec
-                    #name: 'VariableVerticalPanel'
-                    #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+    ^ 
+     #(#FullSpec
+        #name: #windowSpec
+        #window: 
+       #(#WindowSpec
+          #label: 'Help Tool'
+          #name: 'Help Tool'
+          #min: #(#Point 10 10)
+          #max: #(#Point 1160 870)
+          #bounds: #(#Rectangle 93 147 379 418)
+        )
+        #component: 
+       #(#SpecCollection
+          #collection: #(
+           #(#VariableVerticalPanelSpec
+              #name: 'VariableVerticalPanel'
+              #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+              #component: 
+             #(#SpecCollection
+                #collection: #(
+                 #(#VariableHorizontalPanelSpec
+                    #name: 'VariableHorizontalPanel'
                     #component: 
-                     #(#SpecCollection
-                        #collection: 
-                         #(
-                           #(#VariableHorizontalPanelSpec
-                              #name: 'VariableHorizontalPanel'
-                              #component: 
+                   #(#SpecCollection
+                      #collection: #(
+                       #(#SequenceViewSpec
+                          #name: 'listOfHelpKeysView'
+                          #activeHelpKey: #listOfHelpTexts
+                          #tabable: true
+                          #model: #listModel
+                          #hasHorizontalScrollBar: true
+                          #hasVerticalScrollBar: true
+                          #miniScrollerHorizontal: true
+                          #useIndex: false
+                          #sequenceList: #listChannel
+                        )
+                       #(#ViewSpec
+                          #name: 'Box'
+                          #component: 
+                         #(#SpecCollection
+                            #collection: #(
+                             #(#HorizontalPanelViewSpec
+                                #name: 'HorizontalPanel1'
+                                #layout: #(#LayoutFrame 0 0.0 2 0 0 1.0 26 0)
+                                #horizontalLayout: #fit
+                                #verticalLayout: #fit
+                                #horizontalSpace: 3
+                                #verticalSpace: 3
+                                #component: 
                                #(#SpecCollection
-                                  #collection: 
-                                   #(
-                                     #(#SequenceViewSpec
-                                        #name: 'listOfHelpKeysView'
-                                        #activeHelpKey: #listOfHelpTexts
-                                        #tabable: true
-                                        #model: #listModel
-                                        #hasHorizontalScrollBar: true
-                                        #hasVerticalScrollBar: true
-                                        #miniScrollerHorizontal: true
-                                        #useIndex: false
-                                        #sequenceList: #listChannel
+                                  #collection: #(
+                                   #(#ActionButtonSpec
+                                      #attributes: 
+                                     #(#tabable
+                                        true
+                                      )
+                                      #label: 'Add'
+                                      #name: 'AddButton'
+                                      #activeHelpKey: #addHelpTextKey
+                                      #translateLabel: true
+                                      #tabable: true
+                                      #model: #doAdd
+                                      #extent: #(#Point 44 24)
                                     )
-                                     #(#ViewSpec
-                                        #name: 'Box'
-                                        #component: 
-                                         #(#SpecCollection
-                                            #collection: 
-                                             #(
-                                               #(#InputFieldSpec
-                                                  #name: 'helpKeyInputField'
-                                                  #layout: #(#LayoutFrame 0 0.0 29 0 0 1.0 51 0)
-                                                  #activeHelpKey: #currentHelpTexts
-                                                  #tabable: true
-                                                  #model: #listModel
-                                                  #immediateAccept: false
-                                              )
-                                               #(#SequenceViewSpec
-                                                  #name: 'listOfHelpSpecClassesView'
-                                                  #layout: #(#LayoutFrame 0 0.0 54 0 0 1.0 0 1.0)
-                                                  #activeHelpKey: #listOfHelpSpecClasses
-                                                  #tabable: true
-                                                  #model: #selectionOfHelpSpecClass
-                                                  #hasHorizontalScrollBar: true
-                                                  #hasVerticalScrollBar: true
-                                                  #miniScrollerHorizontal: true
-                                                  #miniScrollerVertical: true
-                                                  #valueChangeSelector: #helpSpecClassSelected
-                                                  #useIndex: false
-                                                  #sequenceList: #listOfHelpSpecClasses
-                                              )
-                                               #(#HorizontalPanelViewSpec
-                                                  #name: 'HorizontalPanel1'
-                                                  #layout: #(#LayoutFrame 0 0.0 2 0 0 1.0 26 0)
-                                                  #component: 
-                                                   #(#SpecCollection
-                                                      #collection: 
-                                                       #(
-                                                         #(#ActionButtonSpec
-                                                            #name: 'AddButton'
-                                                            #activeHelpKey: #addHelpTextKey
-                                                            #label: 'Add'
-                                                            #translateLabel: true
-                                                            #tabable: true
-                                                            #model: #doAdd
-                                                            #extent: #(#Point 44 24)
-                                                        )
-                                                         #(#ActionButtonSpec
-                                                            #name: 'RemoveButton'
-                                                            #activeHelpKey: #removeHelpTextKey
-                                                            #label: 'Remove'
-                                                            #translateLabel: true
-                                                            #tabable: true
-                                                            #model: #doRemove
-                                                            #extent: #(#Point 44 24)
-                                                        )
-                                                         #(#ActionButtonSpec
-                                                            #name: 'DeleteButton'
-                                                            #activeHelpKey: #deleteHelpTextKey
-                                                            #label: 'Delete'
-                                                            #translateLabel: true
-                                                            #tabable: true
-                                                            #model: #doDelete
-                                                            #extent: #(#Point 45 24)
-                                                        )
-                                                      )
-                                                  )
-                                                  #horizontalLayout: #fit
-                                                  #verticalLayout: #fit
-                                                  #horizontalSpace: 3
-                                                  #verticalSpace: 3
-                                              )
-                                            )
-                                        )
+                                   #(#ActionButtonSpec
+                                      #attributes: 
+                                     #(#tabable
+                                        true
+                                      )
+                                      #label: 'Remove'
+                                      #name: 'RemoveButton'
+                                      #activeHelpKey: #removeHelpTextKey
+                                      #translateLabel: true
+                                      #tabable: true
+                                      #model: #doRemove
+                                      #extent: #(#Point 44 24)
+                                    )
+                                   #(#ActionButtonSpec
+                                      #attributes: 
+                                     #(#tabable
+                                        true
+                                      )
+                                      #label: 'Delete'
+                                      #name: 'DeleteButton'
+                                      #activeHelpKey: #deleteHelpTextKey
+                                      #translateLabel: true
+                                      #tabable: true
+                                      #model: #doDelete
+                                      #extent: #(#Point 44 24)
                                     )
-                                  )
+                                   )
+                                 
+                                )
+                              )
+                             #(#InputFieldSpec
+                                #attributes: 
+                               #(#tabable
+                                  true
+                                )
+                                #name: 'helpKeyInputField'
+                                #layout: #(#LayoutFrame 0 0.0 29 0 0 1.0 51 0)
+                                #activeHelpKey: #currentHelpTexts
+                                #tabable: true
+                                #model: #listModel
+                                #immediateAccept: false
+                                #acceptOnPointerLeave: false
                               )
-                              #handles: #(#Any 0.5 1.0)
-                          )
-                           #(#TextEditorSpec
-                              #name: 'helpTextView'
-                              #activeHelpKey: #helpTextView
-                              #tabable: true
-                              #hasHorizontalScrollBar: true
-                              #hasVerticalScrollBar: true
-                              #miniScrollerHorizontal: true
-                              #miniScrollerVertical: true
+                             #(#SequenceViewSpec
+                                #name: 'listOfHelpSpecClassesView'
+                                #layout: #(#LayoutFrame 0 0.0 54 0 0 1.0 0 1.0)
+                                #activeHelpKey: #listOfHelpSpecClasses
+                                #tabable: true
+                                #model: #selectionOfHelpSpecClass
+                                #hasHorizontalScrollBar: true
+                                #hasVerticalScrollBar: true
+                                #miniScrollerHorizontal: true
+                                #miniScrollerVertical: true
+                                #valueChangeSelector: #helpSpecClassSelected
+                                #useIndex: false
+                                #sequenceList: #listOfHelpSpecClasses
+                              )
+                             )
+                           
                           )
                         )
+                       )
+                     
                     )
                     #handles: #(#Any 0.5 1.0)
-                )
+                  )
+                 #(#TextEditorSpec
+                    #name: 'helpTextView'
+                    #activeHelpKey: #helpTextView
+                    #tabable: true
+                    #hasHorizontalScrollBar: true
+                    #hasVerticalScrollBar: true
+                    #miniScrollerHorizontal: true
+                    #miniScrollerVertical: true
+                  )
+                 )
+               
               )
-          )
+              #handles: #(#Any 0.5 1.0)
+            )
+           )
+         
+        )
       )
-
-    "Modified: / 20.5.1998 / 01:08:59 / cg"
 !
 
 windowSpecForStandAlone