preps to use UISpecs
authorClaus Gittinger <cg@exept.de>
Wed, 25 Jun 1997 14:13:40 +0200
changeset 1203 ade0bcc06188
parent 1202 190ff2307ea4
child 1204 e2f7a2409f7d
preps to use UISpecs
SBrowser.st
SystemBrowser.st
--- a/SBrowser.st	Wed Jun 25 14:00:37 1997 +0200
+++ b/SBrowser.st	Wed Jun 25 14:13:40 1997 +0200
@@ -160,6 +160,93 @@
     "
 ! !
 
+!SystemBrowser class methodsFor:'interface specs'!
+
+methodMoveDialogSpec
+    "this window spec was automatically generated by the ST/X UIPainter"
+
+    "do not manually edit this - the painter/builder may not be able to
+     handle the specification if its corrupted."
+
+    "
+     UIPainter new openOnClass:SystemBrowser andSelector:#methodMoveDialogSpec
+     SystemBrowser new openDialogInterface:#methodMoveDialogSpec
+    "
+
+    <resource: #canvas>
+
+    ^
+     
+       #(#FullSpec
+          #'window:' 
+           #(#WindowSpec
+              #'name:' 'uIPainterView'
+              #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+              #'label:' 'move method'
+              #'bounds:' #(#Rectangle 0 0 279 118)
+          )
+          #'component:' 
+           #(#SpecCollection
+              #'collection:' 
+               #(
+                 #(#HorizontalPanelViewSpec
+                    #'name:' 'horizontalPanelView'
+                    #'layout:' #(#LayoutFrame 0 0.0 -35 1.0 0 1.0 -2 1.0)
+                    #'component:' 
+                     #(#SpecCollection
+                        #'collection:' 
+                         #(
+                           #(#ActionButtonSpec
+                              #'name:' 'actionButton2'
+                              #'label:' 'cancel'
+                              #'tabable:' true
+                              #'model:' #cancel
+                              #'extent:' #(#Point 133 27)
+                          )
+                           #(#ActionButtonSpec
+                              #'name:' 'actionButton1'
+                              #'label:' 'move'
+                              #'tabable:' true
+                              #'isDefault:' true
+                              #'model:' #accept
+                              #'extent:' #(#Point 134 27)
+                          )
+                        )
+                    )
+                    #'level:' 0
+                    #'horizontalLayout:' #fitSpace
+                    #'verticalLayout:' #center
+                    #'horizontalSpace:' 4
+                    #'verticalSpace:' 4
+                )
+                 #(#LabelSpec
+                    #'name:' 'label'
+                    #'layout:' #(#LayoutFrame 2 0 2 0 -2 1.0 25 0)
+                    #'label:' 'move current method to which class:'
+                    #'style:' 
+                     #(#Font
+                        'helvetica' 'medium'
+                        'roman' 12
+                    )
+                    #'foregroundColor:' #(#Color 0.0 0.0 0.0)
+                    #'backgroundColor:' #(#Color 66.9993 66.9993 66.9993)
+                    #'adjust:' #left
+                )
+                 #(#ComboBoxSpec
+                    #'name:' 'comboBox1'
+                    #'layout:' #(#LayoutFrame 2 0 29 0 -2 1.0 51 0)
+                    #'tabable:' true
+                    #'model:' #className
+                    #'comboList:' #classList
+                )
+              )
+          )
+      )
+
+    "Created: 25.6.1997 / 13:45:20 / cg"
+    "Modified: 25.6.1997 / 13:46:44 / cg"
+! !
+
 !SystemBrowser class methodsFor:'private helpers'!
 
 showNoneFound
@@ -1780,6 +1867,6 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/SBrowser.st,v 1.79 1997-06-19 16:31:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/SBrowser.st,v 1.80 1997-06-25 12:13:40 cg Exp $'
 ! !
 SystemBrowser initialize!
--- a/SystemBrowser.st	Wed Jun 25 14:00:37 1997 +0200
+++ b/SystemBrowser.st	Wed Jun 25 14:13:40 1997 +0200
@@ -160,6 +160,93 @@
     "
 ! !
 
+!SystemBrowser class methodsFor:'interface specs'!
+
+methodMoveDialogSpec
+    "this window spec was automatically generated by the ST/X UIPainter"
+
+    "do not manually edit this - the painter/builder may not be able to
+     handle the specification if its corrupted."
+
+    "
+     UIPainter new openOnClass:SystemBrowser andSelector:#methodMoveDialogSpec
+     SystemBrowser new openDialogInterface:#methodMoveDialogSpec
+    "
+
+    <resource: #canvas>
+
+    ^
+     
+       #(#FullSpec
+          #'window:' 
+           #(#WindowSpec
+              #'name:' 'uIPainterView'
+              #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+              #'label:' 'move method'
+              #'bounds:' #(#Rectangle 0 0 279 118)
+          )
+          #'component:' 
+           #(#SpecCollection
+              #'collection:' 
+               #(
+                 #(#HorizontalPanelViewSpec
+                    #'name:' 'horizontalPanelView'
+                    #'layout:' #(#LayoutFrame 0 0.0 -35 1.0 0 1.0 -2 1.0)
+                    #'component:' 
+                     #(#SpecCollection
+                        #'collection:' 
+                         #(
+                           #(#ActionButtonSpec
+                              #'name:' 'actionButton2'
+                              #'label:' 'cancel'
+                              #'tabable:' true
+                              #'model:' #cancel
+                              #'extent:' #(#Point 133 27)
+                          )
+                           #(#ActionButtonSpec
+                              #'name:' 'actionButton1'
+                              #'label:' 'move'
+                              #'tabable:' true
+                              #'isDefault:' true
+                              #'model:' #accept
+                              #'extent:' #(#Point 134 27)
+                          )
+                        )
+                    )
+                    #'level:' 0
+                    #'horizontalLayout:' #fitSpace
+                    #'verticalLayout:' #center
+                    #'horizontalSpace:' 4
+                    #'verticalSpace:' 4
+                )
+                 #(#LabelSpec
+                    #'name:' 'label'
+                    #'layout:' #(#LayoutFrame 2 0 2 0 -2 1.0 25 0)
+                    #'label:' 'move current method to which class:'
+                    #'style:' 
+                     #(#Font
+                        'helvetica' 'medium'
+                        'roman' 12
+                    )
+                    #'foregroundColor:' #(#Color 0.0 0.0 0.0)
+                    #'backgroundColor:' #(#Color 66.9993 66.9993 66.9993)
+                    #'adjust:' #left
+                )
+                 #(#ComboBoxSpec
+                    #'name:' 'comboBox1'
+                    #'layout:' #(#LayoutFrame 2 0 29 0 -2 1.0 51 0)
+                    #'tabable:' true
+                    #'model:' #className
+                    #'comboList:' #classList
+                )
+              )
+          )
+      )
+
+    "Created: 25.6.1997 / 13:45:20 / cg"
+    "Modified: 25.6.1997 / 13:46:44 / cg"
+! !
+
 !SystemBrowser class methodsFor:'private helpers'!
 
 showNoneFound
@@ -1780,6 +1867,6 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.79 1997-06-19 16:31:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.80 1997-06-25 12:13:40 cg Exp $'
 ! !
 SystemBrowser initialize!