home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / multimedia / scala / HELP / NAMEPAG1.SCA < prev    next >
Encoding:
Text File  |  1996-05-14  |  1.6 KB  |  68 lines
  1. !ScalaScript
  2. {
  3. Sequence:
  4. :"SubScript"
  5. {
  6. Group:
  7. BoxX.1=139;
  8. BoxY.1=200;
  9. BoxX.2=0;
  10. BoxY.2=0;
  11. BoxX=BoxX.1;
  12. BoxY=BoxY.1;
  13. BoxW=360;
  14. BoxH=160;
  15. Descr="Click a button to get information about it!";
  16. Display(Size(640,480),Face(RGB(170)),UserPalette(RGBPen(1,0,16777215,12632256,5592405,8553090,11184810,10066329)));
  17. Clip(0,390,"scala:\help\graphics\namepage.gif",transparent(off));
  18. pagename="Design menu OK dialog";
  19. pagedescr="Allows you to name or rename the current page.";
  20. Button(Normal(Box(620,390,19,25,Style(Norm))),Highlight(Box(620,390,19,25,Style(High))),Select(Box(620,390,19,25,Style(Sel)),Use(infobutton)));
  21. Button(Normal(Box(4,420,632,25,Style(Norm))),Highlight(Box(4,420,632,25,Style(High))),Select(Box(4,420,632,25,Style(Sel)),Use(nametext)));
  22. Button(Normal(Box(428,450,101,25,Style(Norm))),Highlight(Box(428,450,101,25,Style(High))),Select(Box(428,450,101,25,Style(Sel)),Use(okbutton)));
  23. Button(Normal(Box(534,450,101,25,Style(Norm))),Highlight(Box(534,450,101,25,Style(High))),Select(Box(534,450,101,25,Style(Sel)),Use(cancelbutton)));
  24. Wait();
  25. Sequence:
  26. Use(SetUp);
  27. Use(DrawBox);
  28. Resources:
  29. :infobutton
  30. {
  31. title="Information button";
  32. text[1]="Switches Scala into Help mode. ";
  33. descr=text[1];
  34. block=1;
  35. max=1;
  36. Use(SetPos);
  37. }
  38. :nametext
  39. {
  40. title="Name: text";
  41. text[1]="Changes the page name.";
  42. descr=text[1];
  43. block=1;
  44. max=1;
  45. Use(SetPos);
  46. }
  47. :okbutton
  48. {
  49. title="OK";
  50. text[1]="Accepts changes and proceeds to the Main menu.";
  51. descr=text[1];
  52. block=1;
  53. max=1;
  54. Use(SetPos);
  55. }
  56. :cancelbutton
  57. {
  58. title="Cancel";
  59. text[1]="Returns to the Design menu without applying changes.";
  60. descr=text[1];
  61. block=1;
  62. max=1;
  63. Use(SetPos);
  64. }
  65. }
  66. Resources:
  67. }
  68.