Tools__ChangeSetSelectionDialog.st
branchjv
changeset 12276 415495417f39
parent 12200 807a52b94f2a
child 12431 9f0c59c742d5
--- a/Tools__ChangeSetSelectionDialog.st	Fri Aug 03 14:47:21 2012 +0100
+++ b/Tools__ChangeSetSelectionDialog.st	Fri Aug 03 16:14:04 2012 +0100
@@ -230,6 +230,37 @@
       )
 !
 
+editorSpecForExplicit
+    "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:Tools::ChangeSetSelectionDialog andSelector:#editorSpecForExplicit
+     Tools::ChangeSetSelectionDialog new openInterface:#editorSpecForExplicit
+    "
+
+    <resource: #canvas>
+
+    ^ 
+     #(FullSpec
+        name: 'editorSpecForExplicit'
+        window: 
+       (WindowSpec
+          label: 'ChangeSet Spec Editor'
+          name: 'ChangeSet Spec Editor'
+          min: (Point 10 10)
+          bounds: (Rectangle 0 0 441 310)
+        )
+        component: 
+       (SpecCollection
+          collection: ()
+        )
+      )
+!
+
 editorSpecForFile
     "This resource specification was automatically generated
      by the UIPainter of ST/X."
@@ -352,11 +383,10 @@
      (if this app is embedded in a subCanvas)."
 
     ^ #(
+        #enabledHolder
         #specHolder
-        #enabledHolder
       ).
 
-    "Modified: / 19-03-2012 / 23:22:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ChangeSetSelectionDialog methodsFor:'actions'!
@@ -477,13 +507,6 @@
 specLabelList
     <resource: #uiAspect>
 
-    "automatically generated by UIPainter ..."
-
-    "*** the code below creates a default model when invoked."
-    "*** (which may not be the one you wanted)"
-    "*** Please change as required and accept it in the browser."
-    "*** (and replace this comment by something more useful ;-)"
-
     specLabelList isNil ifTrue:[
         specLabelList := List withAll:
             (ChangeSetSpec specClasses collect:[:cls|cls label])
@@ -600,5 +623,5 @@
 !
 
 version_SVN
-    ^ '$Id: Tools__ChangeSetSelectionDialog.st 7946 2012-03-20 12:36:40Z vranyj1 $'
+    ^ '$Id: Tools__ChangeSetSelectionDialog.st 8036 2012-08-03 15:14:04Z vranyj1 $'
 ! !