'  filedialog.bas - a filedialog example of LBPP
'  Copyright (C) 2001 Anthony Liguori <ajl13@bellatlantic.net>
'
'  This program is free software; you can redistribute it and/or
'  modify it under the terms of the GNU Lesser General Public
'  License as published by the Free Software Foundation; either
'  version 2.1 of the License, or (at your option) any later version.
'
'  This program is distributed in the hope that it will be useful,
'  but WITHOUT ANY WARRANTY; without even the implied warranty of
'  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
'  Lesser General Public License for more details.
'
'  You should have received a copy of the GNU Lesser General Public
'  License along with this library; if not, write to the Free Software
'  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

' This is a simple test of the some FILE I/O
' It also demonstrates the ability to create a File Dialog

WindowWidth = 400
WindowHeight = 400
UpperLeftX = 50
UpperLeftY = 40
textbox #test.txt, 20, 20, 75, 25

tail$ = ""

for x = 200 to 300 step 100
 for y = 200 to 300 step 100
  tail$ = tail$ + "-"
  button #test, "Test" + tail$, [closetest], UL, x, y, 50, 75
 next y
next x

open "Test" for window as #test

print #test.txt, "This is some text";

print #test, "trapclose [closetest]"

[loop]
input #test, a$

notice "Window's closed"

end

[closetest]
print #test.txt, "!contents?";
input #test.txt, a$

notice "The UL textbox has [" + a$ + "]"

confirm "Do you want to exit?"; ans$
if ans$ = "yes" then close #test : end
goto [loop]