Selectable TextGadget

[Wolfram]

Hi,

can someone explain how to build a Textgadet which allows to select the text like it is in a Messagerequester?
For example:

Code: Select all

MessageRequester("Test", "My Message")

In tis case you can select the Message text.

Thanks!

[Danilo]

Code: Select all

If OpenWindow(0, 0, 0, 270, 160, "TextGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    TextGadget(0, 10,  10, 250, 20, "TextGadget Standard (Left)")
    TextGadget(1, 10,  70, 250, 20, "TextGadget Center", #PB_Text_Center)
    TextGadget(2, 10,  40, 250, 20, "TextGadget Right", #PB_Text_Right)
    TextGadget(3, 10, 100, 250, 20, "TextGadget Border", #PB_Text_Border)
    TextGadget(4, 10, 130, 250, 20, "TextGadget Center + Border", #PB_Text_Center | #PB_Text_Border)
    
    ; TextGadget = NSTextField
    CocoaMessage(0,GadgetID(0),"setSelectable:",#YES)
    CocoaMessage(0,GadgetID(1),"setSelectable:",#YES)
    CocoaMessage(0,GadgetID(2),"setSelectable:",#YES)
    CocoaMessage(0,GadgetID(3),"setSelectable:",#YES)
    CocoaMessage(0,GadgetID(4),"setSelectable:",#YES)
    
    CocoaMessage(0,GadgetID(0),"selectText:",0)
    
    Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

[Wolfram]

Thanks!