--- 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"