Open Ducasse opened 4 days ago
Right now this is a morphic appl.
openLabel: aString | window m | window := (SystemWindow labelled: aString) model: self. m := RubPluggableTextMorph new getTextSelector: #contents; setTextSelector: #clear; on: self; beForSmalltalkScripting. m onAnnouncement: MorphDeleted do: [ self announcer unsubscribe: m ]. window addMorph: m frame: (0 @ 0 corner: 1 @ 1). ^ window openInWorld
We should probably keep ThreadSafeTranscript as model and build a UI in Spec and remove openLabel and any UI stuff from ThreadSafeTranscript
Right now this is a morphic appl.
We should probably keep ThreadSafeTranscript as model and build a UI in Spec and remove openLabel and any UI stuff from ThreadSafeTranscript