ImageEditor.st
changeset 1715 9eebdb3802aa
parent 1713 088ff38c03a5
child 1716 5ae373f6fef0
equal deleted inserted replaced
1714:f57812a56d17 1715:9eebdb3802aa
  3217     aBuilder keyboardProcessor menuBar:nil.
  3217     aBuilder keyboardProcessor menuBar:nil.
  3218 
  3218 
  3219     "Modified: / 10.2.2000 / 23:17:43 / cg"
  3219     "Modified: / 10.2.2000 / 23:17:43 / cg"
  3220 ! !
  3220 ! !
  3221 
  3221 
  3222 !ImageEditor methodsFor:'user actions - colormap'!
  3222 !ImageEditor methodsFor:'user actions-colormap'!
  3223 
  3223 
  3224 addColorToColormap
  3224 addColorToColormap
  3225     self addColorToColormap:(Color black)
  3225     self addColorToColormap:(Color black)
  3226 !
  3226 !
  3227 
  3227 
  4018 
  4018 
  4019     "Modified: / 15.9.1998 / 17:53:32 / cg"
  4019     "Modified: / 15.9.1998 / 17:53:32 / cg"
  4020     "Created: / 30.9.1998 / 23:51:23 / cg"
  4020     "Created: / 30.9.1998 / 23:51:23 / cg"
  4021 ! !
  4021 ! !
  4022 
  4022 
  4023 !ImageEditor methodsFor:'user actions - editing'!
  4023 !ImageEditor methodsFor:'user actions-editing'!
  4024 
  4024 
  4025 doBrowseClass
  4025 doBrowseClass
  4026     "opens a System Browser on the resourceClass and the resourceSelector"
  4026     "opens a System Browser on the resourceClass and the resourceSelector"
  4027 
  4027 
  4028     |cls|
  4028     |cls|
  4376     "reverses last edit action"
  4376     "reverses last edit action"
  4377 
  4377 
  4378     imageEditView undo.
  4378     imageEditView undo.
  4379 ! !
  4379 ! !
  4380 
  4380 
  4381 !ImageEditor methodsFor:'user actions - loading'!
  4381 !ImageEditor methodsFor:'user actions-loading'!
  4382 
  4382 
  4383 doLoadFromClass
  4383 doLoadFromClass
  4384     "opens a dialog for loading an image from class and a (resource-) selector"
  4384     "opens a dialog for loading an image from class and a (resource-) selector"
  4385 
  4385 
  4386     |img|
  4386     |img|
  4556         self updateForNoImage
  4556         self updateForNoImage
  4557     ].
  4557     ].
  4558 
  4558 
  4559 ! !
  4559 ! !
  4560 
  4560 
  4561 !ImageEditor methodsFor:'user actions - saving'!
  4561 !ImageEditor methodsFor:'user actions-saving'!
  4562 
  4562 
  4563 doPrint
  4563 doPrint
  4564     "prints current image on the current printer"
  4564     "prints current image on the current printer"
  4565 
  4565 
  4566     imageEditView print
  4566     imageEditView print
  4620 
  4620 
  4621     img := imageEditView image.
  4621     img := imageEditView image.
  4622     TextBox openOn:img storeString
  4622     TextBox openOn:img storeString
  4623 ! !
  4623 ! !
  4624 
  4624 
  4625 !ImageEditor methodsFor:'user actions - settings'!
  4625 !ImageEditor methodsFor:'user actions-settings'!
  4626 
  4626 
  4627 doChangeGridMagnification
  4627 doChangeGridMagnification
  4628     "change grid magnification"
  4628     "change grid magnification"
  4629 
  4629 
  4630     |box oldGridLimit newGridLimit|
  4630     |box oldGridLimit newGridLimit|