REM setup proxy server for wget REM Barry Kauler, my first BaCon GTK program INCLUDE "/usr/share/BaCon/hug.bac" INIT mainwin = WINDOW("Proxy server setup", 400, 285) image1=IMAGE("/usr/local/lib/X11/pixmaps/www48.png",48,48) ATTACH(mainwin,image1,10,10) label_hdr1=MARK("If you connect to the Internet through a proxy",350,15) ATTACH(mainwin,label_hdr1,58,10) label_hdr2=MARK("server, tick the checkbox and fill in the fields",350,15) ATTACH(mainwin,label_hdr2,58,25) label_hdr3=MARK("(leave Username/Password blank if not needed)",350,15) ATTACH(mainwin,label_hdr3,58,40) check1 = CHECK("Enable Internet connection through proxy server",350,20) ATTACH(mainwin,check1,20,70) label_http = MARK("HTTP:",50,20) ATTACH(mainwin, label_http, 10, 100) httpproxy = ENTRY("foo.org:8080",280,20) ATTACH(mainwin, httpproxy, 100, 100) label_ftp = MARK("FTP:",50,20) ATTACH(mainwin, label_ftp, 10, 130) ftpproxy = ENTRY("foo.org:8080",280,20) ATTACH(mainwin, ftpproxy, 100, 130) label_user=MARK("Username:",80,20) ATTACH(mainwin,label_user,10,160) username = ENTRY("",280,20) ATTACH(mainwin, username, 100, 160) label_pass=MARK("Password:",80,20) ATTACH(mainwin,label_pass,10,190) password1=PASSWORD(150,20) ATTACH(mainwin,password1,100,190) label_pass=MARK("Enter password again:",170,20) ATTACH(mainwin,label_pass,10,220) password1=PASSWORD(150,20) ATTACH(mainwin,password1,180,220) ok_btn = BUTTON("OKAY", 65, 25) ATTACH(mainwin, ok_btn, 240, 250) cancel_btn = BUTTON("Cancel", 65, 25) ATTACH(mainwin, cancel_btn, 320, 250) REM Define the callbacks CALLBACK(ok_btn, QUIT) CALLBACK(cancel_btn, QUIT) REM endless gtk loop... DISPLAY