Tools__TextDiff2Tool.st
branchjv
changeset 12232 4d9b62c111fc
parent 12212 1208b3e4d64b
child 12318 1dda95be3d40
--- a/Tools__TextDiff2Tool.st	Wed Apr 18 08:18:46 2012 +0100
+++ b/Tools__TextDiff2Tool.st	Wed Apr 18 21:29:40 2012 +0100
@@ -197,7 +197,7 @@
       )
 !
 
-textViewSpec
+textAViewSpec
     "This resource specification was automatically generated
      by the UIPainter of ST/X."
 
@@ -213,7 +213,7 @@
 
     ^ 
      #(FullSpec
-        name: 'textViewSpec'
+        name: 'textAViewSpec'
         window: 
        (WindowSpec
           label: 'Text Only'
@@ -239,6 +239,54 @@
          
         )
       )
+
+    "Created: / 18-04-2012 / 18:43:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+textBViewSpec
+    "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::TextDiffTool andSelector:#textViewSpec
+     Tools::TextDiffTool new openInterface:#textViewSpec
+    "
+
+    <resource: #canvas>
+
+    ^ 
+     #(FullSpec
+        name: 'textAViewSpec'
+        window: 
+       (WindowSpec
+          label: 'Text Only'
+          name: 'Text Only'
+          min: (Point 10 10)
+          bounds: (Rectangle 0 0 782 506)
+        )
+        component: 
+       (SpecCollection
+          collection: (
+           (ArbitraryComponentSpec
+              name: 'CodeView'
+              layout: (LayoutFrame 0 0 0 0 0 1 0 1)
+              model: textBHolder
+              hasHorizontalScrollBar: false
+              hasVerticalScrollBar: false
+              autoHideScrollBars: false
+              hasBorder: false
+              component: #'Tools::CodeView2'
+              postBuildCallback: postBuildCodeView:
+            )
+           )
+         
+        )
+      )
+
+    "Created: / 18-04-2012 / 18:43:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 versionAOnlySpec
@@ -276,12 +324,14 @@
            (UISubSpecification
               name: 'Text'
               layout: (LayoutFrame 0 0 30 0 0 1 0 1)
-              minorKey: textViewSpec
+              minorKey: textAViewSpec
             )
            )
          
         )
       )
+
+    "Modified: / 18-04-2012 / 18:43:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 versionBOnlySpec
@@ -319,7 +369,7 @@
           (UISubSpecification
               name: 'Text'
               layout: (LayoutFrame 0 0 30 0 0 1 0 1)
-              minorKey: textViewSpec
+              minorKey: textBViewSpec
             )
            )
          
@@ -543,7 +593,7 @@
 !TextDiff2Tool class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Tools__TextDiff2Tool.st 7959 2012-03-29 17:51:50Z vranyj1 $'
+    ^ '$Id: Tools__TextDiff2Tool.st 7981 2012-04-18 20:29:40Z vranyj1 $'
 !
 
 version_CVS
@@ -551,5 +601,5 @@
 !
 
 version_SVN
-    ^ '$Id: Tools__TextDiff2Tool.st 7959 2012-03-29 17:51:50Z vranyj1 $'
+    ^ '$Id: Tools__TextDiff2Tool.st 7981 2012-04-18 20:29:40Z vranyj1 $'
 ! !