# HG changeset patch
# User tz
# Date 887485432 -3600
# Node ID d2588cca5a1577dc2faf28977d9f365b8acaf311
# Parent  f472402418752f8b99c641cab1e07a8d40eece7a
some obselete texts removed

diff -r f47240241875 -r d2588cca5a15 ToolApplicationModel.st
--- a/ToolApplicationModel.st	Sat Feb 14 18:48:41 1998 +0100
+++ b/ToolApplicationModel.st	Sat Feb 14 20:43:52 1998 +0100
@@ -244,15 +244,6 @@
 !ToolApplicationModel class methodsFor:'interface specs'!
 
 windowSpecForCommit
-    "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:ToolApplicationModel andSelector:#windowSpecForCommit
-     ToolApplicationModel new openInterface:#windowSpecForCommit
-    "
 
     <resource: #canvas>
 
@@ -261,9 +252,7 @@
        #(#FullSpec
           #'window:' 
            #(#WindowSpec
-              #'name:' 'unnamed canvas'
               #'layout:' #(#LayoutFrame 343 0 328 0 642 0 387 0)
-              #'label:' 'unnamed canvas'
               #'min:' #(#Point 100 22)
               #'max:' #(#Point 1152 900)
               #'bounds:' #(#Rectangle 343 328 643 388)
@@ -297,15 +286,6 @@
 !
 
 windowSpecForCommitWithoutChannels
-    "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:ToolApplicationModel andSelector:#windowSpecForCommitWithoutChannels
-     ToolApplicationModel new openInterface:#windowSpecForCommitWithoutChannels
-    "
 
     <resource: #canvas>
 
@@ -314,9 +294,7 @@
        #(#FullSpec
           #'window:' 
            #(#WindowSpec
-              #'name:' 'unnamed canvas'
               #'layout:' #(#LayoutFrame 343 0 328 0 642 0 387 0)
-              #'label:' 'unnamed canvas'
               #'min:' #(#Point 100 22)
               #'max:' #(#Point 1152 900)
               #'bounds:' #(#Rectangle 343 328 643 388)
@@ -348,15 +326,6 @@
 !
 
 windowSpecForInfoBar
-    "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:ToolApplicationModel andSelector:#windowSpecForInfoBar
-     ToolApplicationModel new openInterface:#windowSpecForInfoBar
-    "
 
     <resource: #canvas>
 
@@ -365,9 +334,7 @@
        #(#FullSpec
           #'window:' 
            #(#WindowSpec
-              #'name:' 'Image Editor'
               #'layout:' #(#LayoutFrame 366 0 355 0 865 0 700 0)
-              #'label:' 'Image Editor'
               #'min:' #(#Point 400 320)
               #'max:' #(#Point 1152 900)
               #'bounds:' #(#Rectangle 366 355 866 701)
@@ -401,15 +368,6 @@
 !
 
 windowSpecForInfoBarWithClock
-    "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:ToolApplicationModel andSelector:#windowSpecForInfoBarWithClock
-     ToolApplicationModel new openInterface:#windowSpecForInfoBarWithClock
-    "
 
     <resource: #canvas>
 
@@ -418,9 +376,7 @@
        #(#FullSpec
           #'window:' 
            #(#WindowSpec
-              #'name:' 'Image Editor'
               #'layout:' #(#LayoutFrame 349 0 227 0 848 0 572 0)
-              #'label:' 'Image Editor'
               #'min:' #(#Point 400 320)
               #'max:' #(#Point 1152 900)
               #'bounds:' #(#Rectangle 349 227 849 573)
@@ -903,6 +859,11 @@
 
 !ToolApplicationModel methodsFor:'clipboard'!
 
+clipboard
+
+    ^self class clipboard
+!
+
 clipboard: anEditObject
 
     self class clipboard: anEditObject.
@@ -1141,5 +1102,5 @@
 !ToolApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.38 1998-02-07 15:57:39 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.39 1998-02-14 19:43:52 tz Exp $'
 ! !