Mantis - Squeak
Viewing Issue Advanced Details
4832 Kernel minor always 09-09-06 17:44 09-09-06 17:46
Krivanek  
 
normal  
new 3.10  
open  
none    
none  
0004832: DisplayText composeForm
DisplayText >> composeForm

original:

composeForm
    "For the TT strings in MVC widgets in a Morphic world such as a progress bar, the form is created by Morphic machinery."
    | canvas tmpText |
    Smalltalk isMorphic
        ifTrue:
            [tmpText _ TextMorph new contentsAsIs: text deepCopy.
            foreColor ifNotNil: [tmpText text addAttribute: (TextColor color: foreColor)].
            backColor ifNotNil: [tmpText backgroundColor: backColor].
            tmpText setTextStyle: textStyle.
            canvas _ FormCanvas on: (Form extent: tmpText extent depth: 32).
            tmpText drawOn: canvas.
            form _ canvas form.
        ]
        ifFalse: [form _ self asParagraph asForm]

override:

composeForm
    
    "For the TT strings in MVC widgets in a Morphic world such as a progress bar, the form is created by Morphic machinery."
    
    form := UIManager default composeFormFor: self.
    

UI dependent code replaced with the new UIManager message

Notes
(0007027)
Krivanek   
09-09-06 17:46   
[KernelImageOverride]