@@ -184,7 +184,7 @@ WorldState class >> pharoItemsOn: aBuilder [
184184 keyText: ' S' ;
185185 iconName: #smallSave .
186186 (aBuilder item: #' Save as...' )
187- target: self ;
187+ target: aBuilder model ;
188188 selector: #saveAs ;
189189 help: ' Save the current version of the image on disk under a new name.' ;
190190 order: 2 ;
@@ -235,15 +235,6 @@ WorldState class >> saveAndQuit [
235235 ]
236236]
237237
238- { #category : ' world menu items' }
239- WorldState class >> saveAs [
240-
241- | reference |
242- reference := self uiManager chooseForSaveFileReference: ' Save Image as?' extensions: #( 'image' ) path: Smalltalk imageFile nextVersion.
243-
244- reference ifNotNil: [ Smalltalk saveAs: reference parent / (reference basenameWithoutExtension: ' image' ) ]
245- ]
246-
247238{ #category : ' world menu items' }
248239WorldState class >> saveSession [
249240 Cursor write showWhile: [
@@ -772,6 +763,17 @@ WorldState >> runStepMethodsIn: aWorld [
772763 self runLocalStepMethodsIn: aWorld.
773764]
774765
766+ { #category : ' menu actions' }
767+ WorldState >> saveAs [
768+
769+ | reference |
770+ reference := worldRenderer world morphicUIManager
771+ chooseForSaveFileReference: ' Save Image as?'
772+ extensions: #( 'image' )
773+ path: Smalltalk imageFile nextVersion.
774+ reference ifNotNil: [ Smalltalk saveAs: reference parent / (reference basenameWithoutExtension: ' image' ) ]
775+ ]
776+
775777{ #category : ' hands' }
776778WorldState >> selectHandsToDrawForDamage: damageList [
777779 " Select the set of hands that must be redrawn because either (a) the hand itself has changed or (b) the hand intersects some damage rectangle."
0 commit comments