# HG changeset patch
# User tz
# Date 888350194 -3600
# Node ID 6039e1d88048a4cf41bbb4c3a63aeab3135351db
# Parent  738210a2fa065e086b4221ebc152afe29ba63da9
some unused methods found

diff -r 738210a2fa06 -r 6039e1d88048 ImageEditor.st
--- a/ImageEditor.st	Tue Feb 24 19:44:35 1998 +0100
+++ b/ImageEditor.st	Tue Feb 24 20:56:34 1998 +0100
@@ -214,10 +214,10 @@
 'Print the image on a postscript printer.'
 
 #fileSaveAs
-'Opens dialog to save the image on a file.'
+'Opens dialog to save the image to a file.'
 
 #fileSaveMaskAs
-'Opens dialog to save the mask of the image on a file.'
+'Opens dialog to save the mask of the image to a file.'
 
 #fileSaveMethod
 'Saves current image into selected class and selector.'
@@ -444,11 +444,11 @@
           #window: 
            #(#WindowSpec
               #name: 'New Image'
-              #layout: #(#LayoutFrame 197 0 172 0 497 0 276 0)
+              #layout: #(#LayoutFrame 328 0 326 0 628 0 430 0)
               #label: 'New Image'
               #min: #(#Point 10 10)
               #max: #(#Point 1152 900)
-              #bounds: #(#Rectangle 197 172 498 277)
+              #bounds: #(#Rectangle 328 326 629 431)
               #usePreferredExtent: false
           )
           #component: 
@@ -1011,15 +1011,6 @@
     ^ holder
 !
 
-valueOfCoordLabel
-
-    |holder|
-    (holder := builder bindingAt:#valueOfCoordLabel) isNil ifTrue:[
-        builder aspectAt:#valueOfCoordLabel put:(holder :=  ValueHolder new).
-    ].
-    ^ holder
-!
-
 valueOfMagnification
 
     |holder|
@@ -1030,40 +1021,6 @@
     ^ holder
 ! !
 
-!ImageEditor methodsFor:'change & update'!
-
-update:something with:aParameter from:changedObject
-
-    something == #value
-    ifTrue:
-    [   
-        (changedObject = self valueOfResourceClass)
-        ifTrue:
-        [   
-            |s what m|
-            s := self resourceClassInputField contents withoutSpaces.
-            what := Smalltalk classnameCompletion:s.
-            self resourceClassInputField contents:what first.
-            (what at:2) size ~~ 1 ifTrue:[
-                Display beep
-            ]
-        ].
-        (changedObject = self valueOfResourceClass) | (changedObject = self valueOfResourceSelector)
-        ifTrue:
-        [   
-            self loadFromMessage: self resourceClassInputField contents, ' ', self resourceSelectorInputField contents
-        ].
-        (changedObject = self valueOfFileName)
-        ifTrue:
-        [   
-            self loadFromFile: self fileNameInputField contents
-        ].
-    ].
-
-    super update:something with:aParameter from:changedObject
-
-! !
-
 !ImageEditor methodsFor:'help'!
 
 defaultInfoLabel
@@ -1196,12 +1153,6 @@
     self selectionOfColor value: (self listOfColors indexOf: self imageEditView selectedColor).
 !
 
-sortColorColumn: aColumn
-
-
-
-!
-
 updateForNoneImage
 
     self imageIsLoaded value: false.