NB. J Solitaire
NB. This is the about script for J Solitare.
NB. This loads the about form.

NB. Creating the form
ABOUT=: 0 : 0
pc about nomax nomenu nomin nosize owner;pn "About Solitaire";
xywh 54 60 30 12;cc ok button;cn "OK";
xywh 10 7 36 48;cc aboutpic isigraph;
xywh 54 6 80 50;cc t static;
pas 6 3;pcenter;
rem form end;
)

NB. Loads the form and displays it
about_run=: 3 : 0
wd ABOUT
NB. initialize form here
wd 'psel about'
glmap MM_RAW   NB. commands to prepare the isigraph to display deck card(ace of spades)
wd 'setxywhx aboutpic 20 14 ',": cardWH
glpixels 0 0, cardWH, ,3 { CARDS NB. Display card
wd'set t *J Solitaire',LF,LF,'Version 3.0 - August 2004',LF,LF,LF,LF,'Created by: Ken Cramer'
glshowx'' NB. show the card and the background
wd 'pshow;'
)

NB. Closes the about form
about_close=: 3 : 0
wd 'psel about'
wd'pclose'
)

NB. triggers the about_close'' verb
about_ok_button=: 3 : 0
about_close''
)

