Mercurial Mercurial > hg > stx-libwidg2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
save method as with superclass #Object
authortz
Tue, 27 Jan 1998 20:28:39 +0100
changeset 693 e229810e61fb
parent 692 fbf4503f8bc5
child 694 343910836894
save method as with superclass #Object
ImageEditView.st file | annotate | diff | comparison | revisions
ImgEditV.st file | annotate | diff | comparison | revisions 
--- a/ImageEditView.st	Tue Jan 27 18:40:10 1998 +0100
+++ b/ImageEditView.st	Tue Jan 27 20:28:39 1998 +0100
@@ -542,17 +542,15 @@
 
 drawCursorAt: aPoint
 
-    self drawLabel: ''.
     image isNil ifTrue: [^Cursor stop show].
     ((0@0 extent: image extent * magnification) containsPoint: aPoint)
          ifFalse:[Cursor stop show]
-         ifTrue: [self drawLabel: (aPoint//magnification + 1).Cursor crossHair show].
+         ifTrue: [self drawLabel: (aPoint//magnification + 1) printString.Cursor crossHair show].
 
 !
 
 drawCursorAt: aPoint withLabel: aLabel
 
-    self drawLabel: aLabel.
     image isNil ifTrue: [^Cursor stop show].
     ((0@0 extent: image extent * magnification) containsPoint: aPoint)
          ifFalse:[Cursor stop show]
@@ -600,7 +598,7 @@
     [  
         masterApplication coordLabel label ~= aLabel
         ifTrue:
-        [
+        [         
             masterApplication coordLabel label: aLabel printString.
             masterApplication coordLabel redraw
         ]
@@ -947,7 +945,7 @@
     (self resourceMessage:
         (ResourceSelectionBrowser
             request: 'Save On Image Resource Selector'
-            onSuperclass: #ApplicationModel
+            onSuperclass: #Object
             andClass: self resourceClass
             andSelector: self resourceSelector
             withResourceTypes: #(image fileImage))) notNil
@@ -1008,5 +1006,5 @@
 !ImageEditView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.61 1998-01-27 17:01:35 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.62 1998-01-27 19:28:39 tz Exp $'
 ! !
--- a/ImgEditV.st	Tue Jan 27 18:40:10 1998 +0100
+++ b/ImgEditV.st	Tue Jan 27 20:28:39 1998 +0100
@@ -542,17 +542,15 @@
 
 drawCursorAt: aPoint
 
-    self drawLabel: ''.
     image isNil ifTrue: [^Cursor stop show].
     ((0@0 extent: image extent * magnification) containsPoint: aPoint)
          ifFalse:[Cursor stop show]
-         ifTrue: [self drawLabel: (aPoint//magnification + 1).Cursor crossHair show].
+         ifTrue: [self drawLabel: (aPoint//magnification + 1) printString.Cursor crossHair show].
 
 !
 
 drawCursorAt: aPoint withLabel: aLabel
 
-    self drawLabel: aLabel.
     image isNil ifTrue: [^Cursor stop show].
     ((0@0 extent: image extent * magnification) containsPoint: aPoint)
          ifFalse:[Cursor stop show]
@@ -600,7 +598,7 @@
     [  
         masterApplication coordLabel label ~= aLabel
         ifTrue:
-        [
+        [         
             masterApplication coordLabel label: aLabel printString.
             masterApplication coordLabel redraw
         ]
@@ -947,7 +945,7 @@
     (self resourceMessage:
         (ResourceSelectionBrowser
             request: 'Save On Image Resource Selector'
-            onSuperclass: #ApplicationModel
+            onSuperclass: #Object
             andClass: self resourceClass
             andSelector: self resourceSelector
             withResourceTypes: #(image fileImage))) notNil
@@ -1008,5 +1006,5 @@
 !ImageEditView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/ImgEditV.st,v 1.61 1998-01-27 17:01:35 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/ImgEditV.st,v 1.62 1998-01-27 19:28:39 tz Exp $'
 ! !
hg/stx-libwidg2