ImageEditor.st
changeset 1045 c387bcacdf37
parent 1033 21b3bc025e0c
child 1047 f2d55d342903
--- a/ImageEditor.st	Fri Mar 05 16:56:53 1999 +0100
+++ b/ImageEditor.st	Sat Mar 06 13:48:59 1999 +0100
@@ -216,22 +216,22 @@
 #compressColormap
 'Remove unneeded entries from the colorMap.'
 
-#crobAll
+#cropAll
 'Find and remove all borders.'
 
-#crobBottom
+#cropBottom
 'Find and remove bottom border.'
 
-#crobLeft
+#cropLeft
 'Find and remove left border.'
 
-#crobManual
+#cropManual
 'Specify border(s) to remove.'
 
-#crobRight
+#cropRight
 'Find and remove right border.'
 
-#crobTop
+#cropTop
 'Find and remove top border.'
 
 #drawModeBox
@@ -453,7 +453,7 @@
       )
 !
 
-grobDialogSpec
+gropDialogSpec
     "This resource specification was automatically generated
      by the UIPainter of ST/X."
 
@@ -472,9 +472,9 @@
        #(#FullSpec
           #window: 
            #(#WindowSpec
-              #name: 'Crob Borders'
+              #name: 'Crop Borders'
               #layout: #(#LayoutFrame 22 0 233 0 266 0 415 0)
-              #label: 'Crob Borders'
+              #label: 'Crop Borders'
               #min: #(#Point 10 10)
               #max: #(#Point 800 478)
               #bounds: #(#Rectangle 22 233 267 416)
@@ -985,7 +985,7 @@
                                     #label: 'All'
                                     #translateLabel: true
                                     #value: #doCrobAll
-                                    #activeHelpKey: #crobAll
+                                    #activeHelpKey: #cropAll
                                 )
                                  #(#MenuItem
                                     #label: '-'
@@ -994,25 +994,25 @@
                                     #label: 'Left'
                                     #translateLabel: true
                                     #value: #doCrobLeft
-                                    #activeHelpKey: #crobLeft
+                                    #activeHelpKey: #cropLeft
                                 )
                                  #(#MenuItem
                                     #label: 'Right'
                                     #translateLabel: true
                                     #value: #doCrobRight
-                                    #activeHelpKey: #crobRight
+                                    #activeHelpKey: #cropRight
                                 )
                                  #(#MenuItem
                                     #label: 'Top'
                                     #translateLabel: true
                                     #value: #doCrobTop
-                                    #activeHelpKey: #crobTop
+                                    #activeHelpKey: #cropTop
                                 )
                                  #(#MenuItem
                                     #label: 'Bottom'
                                     #translateLabel: true
                                     #value: #doCrobBottom
-                                    #activeHelpKey: #crobBottom
+                                    #activeHelpKey: #cropBottom
                                 )
                                  #(#MenuItem
                                     #label: '-'
@@ -1021,7 +1021,7 @@
                                     #label: 'Manual...'
                                     #translateLabel: true
                                     #value: #doCrobManual
-                                    #activeHelpKey: #crobManual
+                                    #activeHelpKey: #cropManual
                                 )
                               ) nil
                               nil
@@ -2285,37 +2285,37 @@
     imageEditView changeGridMagnification
 !
 
-doCrobAll
+doCropAll
     "find all borders and cut them off"
 
-    imageEditView crobLeft:true right:true top:true bottom:true.   
+    imageEditView cropLeft:true right:true top:true bottom:true.   
     self updateInfoLabel
 
     "Modified: / 7.9.1998 / 14:26:23 / cg"
     "Created: / 7.9.1998 / 16:33:43 / cg"
 !
 
-doCrobBottom
+doCropBottom
     "find a bottom border and cut it off"
 
-    imageEditView crobLeft:false right:false top:false bottom:true.   
+    imageEditView cropLeft:false right:false top:false bottom:true.   
     self updateInfoLabel
 
     "Created: / 7.9.1998 / 13:00:20 / cg"
     "Modified: / 7.9.1998 / 14:26:23 / cg"
 !
 
-doCrobLeft
+doCropLeft
     "find a left border and cut it off"
 
-    imageEditView crobLeft:true right:false top:false bottom:false.   
+    imageEditView cropLeft:true right:false top:false bottom:false.   
     self updateInfoLabel
 
     "Created: / 7.9.1998 / 13:00:14 / cg"
     "Modified: / 7.9.1998 / 14:26:34 / cg"
 !
 
-doCrobManual
+doCropManual
     "let user specify borders and cut them off"
 
     |bindings left top right bottom|
@@ -2325,7 +2325,7 @@
     bindings at:#right put:(right := 0 asValue).
     bindings at:#top put:(top := 0 asValue).
     bindings at:#bottom put:(bottom := 0 asValue).
-    (self openDialogInterface:#grobDialogSpec withBindings:bindings)
+    (self openDialogInterface:#gropDialogSpec withBindings:bindings)
     ifTrue:[
         left := left value.
         right := right value.
@@ -2342,20 +2342,20 @@
     "Modified: / 7.9.1998 / 18:20:42 / cg"
 !
 
-doCrobRight
+doCropRight
     "find a right border and cut it off"
 
-    imageEditView crobLeft:false right:true top:false bottom:false.   
+    imageEditView cropLeft:false right:true top:false bottom:false.   
     self updateInfoLabel
 
     "Created: / 7.9.1998 / 13:00:14 / cg"
     "Modified: / 7.9.1998 / 14:26:44 / cg"
 !
 
-doCrobTop
+doCropTop
     "find a top border and cut it off"
 
-    imageEditView crobLeft:false right:false top:true bottom:false.   
+    imageEditView cropLeft:false right:false top:true bottom:false.   
     self updateInfoLabel
 
     "Created: / 7.9.1998 / 13:00:19 / cg"