[Cuis-dev] [IMPROV] Accept for Workspaces

[Gerald Klix]

Hi all, Hi Juan,

I found it a bit annoying ever since I used Cuis, that I can't accept 
the contents of a workspace. (This even worked in Smalltalk/V for MS-DOS 
back in 1986).

Please find a simple three method change-set attached,
that fixes this problem.

If you don't like the "forceSaveContents" stuff you
can define TextModel>>#acceptContentsFrom: like this:

acceptContentsFrom: aTextModelMorph

	aTextModelMorph owningWindow ifNotNil: [ :ow |
		ow hasSaveAs ifTrue: [ ow saveContents ] ]

and make it use the existing saveAs logic in SystemWindow.


HTH and Best Regards,

Gerald
-------------- next part --------------
A non-text attachment was scrubbed...
Name: 5696-AcceptForWorkspaces-GeraldKlix-2023Mar16-12h32m-KLG.001.cs.st
Type: application/vnd.sailingtracker.track
Size: 1289 bytes
Desc: not available
URL: <http://lists.cuis.st/mailman/archives/cuis-dev/attachments/20230316/31086991/attachment.bin>