'** Created by LB Workshop - 2/9/2005 6:45:50 AM
'** Chat-Type Interface

    True = 1 : False = 0


[InitColors]
    'Please use default colors when possible.
    'Use the following color statements only if necessary in the program.
    ForegroundColor$ = "white"
    BackgroundColor$ = "darkgray"
    TexteditorColor$ = "darkblue"
    TextboxColor$    = "black"
    'ComboboxColor$   = "White"
    'ListboxColor$    = "White"

[WindowSetup]
    NOMAINWIN
    WindowWidth = 510 : WindowHeight = 370
    UpperLeftX = INT((DisplayWidth-WindowWidth)/2)
    UpperLeftY = INT((DisplayHeight-WindowHeight)/2)

[ControlSetup]
statictext  #main.s1, "Type here. Hit 'ENTER.'", 10, 260, 369, 25
statictext  #main.s2, "Text is displayed here.", 10, 10, 369, 25
button      #main.default, "Okay",[okay],UL, 380, 290, 105, 34
button      #main.quit, "Quit",[quit],UL, 380, 40, 105, 34
textbox     #main.type, 10, 290, 355, 34
texteditor  #main.display, 10, 40, 355, 210

Open "Chat-Type Interface" for Dialog as #main
    #main "trapclose [quit]"
    #main "font ms_sans_serif 14 bold"
    #main.display "!disable"    'user cannot type into display box
    
[loop]
    Wait

[quit]
    close #main : END

[okay]
    #main.type "!contents? txt$"    'get text typed by user
    #main.display "You typed:"      'put message in texteditor
    #main.display txt$              'put user text into texteditor
    #main.type ""                   'clear typing box
    #main.type "!setfocus"  'set focus so typing goes into textbox
    wait