[Cuis-dev] [IMPROV] Accept for Workspaces

[Gerald Klix]

On 3/27/23 5:58 PM, Juan Vuletich via Cuis-dev wrote:
> On 3/16/2023 8:45 AM, Gerald Klix via Cuis-dev wrote:
>> 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
>
> Nice! It is now at GitHub.
>
> Cheers,
>
Thanks for accepting my change-set and sorry for bothering you again.
I forgot to reset the dirty flag, hence another change set.


Best Regards,

Gerald
-------------- next part --------------
A non-text attachment was scrubbed...
Name: 5737-FixAcceptForWorkspaces-Gerald-2023Mar31-15h22m-KLG.001.cs.st
Type: application/vnd.sailingtracker.track
Size: 423 bytes
Desc: not available
URL: <http://lists.cuis.st/mailman/archives/cuis-dev/attachments/20230331/41efae6c/attachment.bin>