equal
deleted
inserted
replaced
269 ! |
269 ! |
270 |
270 |
271 menuSaveAs |
271 menuSaveAs |
272 |file| |
272 |file| |
273 |
273 |
274 (self askIfModified:'Text was modified. Save anyway ?' yesButton:'Load'). |
274 file := Dialog |
275 file := Dialog requestFileName:'Save file:'. |
275 requestFileName:'Save file:' |
|
276 default:'file.wsp'. |
276 file size > 0 ifTrue:[ |
277 file size > 0 ifTrue:[ |
277 self workspaceView saveAs:file. |
278 self workspaceView saveAs:file. |
278 ] |
279 ] |
279 ! |
280 ! |
280 |
281 |
318 ! ! |
319 ! ! |
319 |
320 |
320 !WorkspaceApplication class methodsFor:'documentation'! |
321 !WorkspaceApplication class methodsFor:'documentation'! |
321 |
322 |
322 version |
323 version |
323 ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.1 2001-09-12 07:24:25 cg Exp $' |
324 ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.2 2001-09-12 16:16:20 cg Exp $' |
324 ! ! |
325 ! ! |