home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 19 / AACD19.BIN / AACD / Programming / AWNP / AWNP-Docs / Demos / FontToy < prev    next >
Encoding:
Text File  |  2000-03-30  |  1.8 KB  |  47 lines
  1. ; This GUI will run itself with out outside comands since it uses gadget
  2. ; interconnection
  3. ; we build a file defining the GUI to send to the pipe
  4.  
  5. ; define a window modify is on to be able to set up interconnection
  6. echo >t:fonttoytemp "*"Font Toy*" defg m v a"
  7.  
  8. ; a readonly textfield gadget used to display chosen font
  9. echo >>t:fonttoytemp "textfield ro minh 100 weih 150 gt *"     Font viewing done EASY !**n**n1234567890 ****@$#!%^&()-=+:;<>,.?/{}[]**nabcdefghijklmnopqurstuwxyz**nABCDEFGHIJKLMNOPQURSTUWXYZ*" "
  10.  
  11. ; a font gadget to choose a font  with
  12. echo >>t:fonttoytemp "getfont weih 0 minw 350 style"
  13.  
  14. ; nested layouts for the gadgets to look pretty
  15. echo >>t:fonttoytemp "layout b 0 weih 50"
  16.  
  17. ; a pallette requester for text color
  18. echo >>t:fonttoytemp "layout v gt *"Text Color*""
  19. echo >>t:fonttoytemp "palette s 1 maxn 16"
  20. echo >>t:fonttoytemp "le "
  21.  
  22. ; a pallette requester for background color
  23. echo >>t:fonttoytemp "layout v gt *"Background Color*""
  24. echo >>t:fonttoytemp "palette maxn 16"
  25. echo >>t:fonttoytemp "le "
  26. echo >>t:fonttoytemp "le "
  27.  
  28. ; a menu to add a little info, its all disabled so realy does nothing
  29. echo >>t:fonttoytemp "menu gt *"Project  |About  |$!Font Viewer using|$!  GUI by AWNPipe:|Author|$!William H.M. Parker|$! <bill@amitrix.com>*""
  30.  
  31. ; open the window and enter modify mode
  32. echo >>t:fonttoytemp "open"
  33.  
  34. ; setup the interconnections
  35. echo >>t:fonttoytemp "id 2 target 1 tags 85040001|8400000D|85040016|8400000E|0"
  36. echo >>t:fonttoytemp "id 5 target 1 tags 85004001|84000015|0"
  37. echo >>t:fonttoytemp "id 7 target 1 tags 85004001|84000014|0"
  38.  
  39. ; trun modify off this lets the GUI run from now on with outside control
  40. echo >>t:fonttoytemp "m"
  41.  
  42. ; copy the file to the pipe then delete the file
  43. copy t:fonttoytemp awnpipe:fonttoy/xc
  44. delete t:fonttoytemp >nil:
  45.  
  46. ; the GUI does its thing unattended until the user closes it
  47.