home *** CD-ROM | disk | FTP | other *** search
- !ScalaScript
- {
- Sequence:
- :"SubScript"
- {
- Group:
- BoxX.1=139;
- BoxY.1=71;
- BoxX.2=0;
- BoxY.2=0;
- BoxX=BoxX.1;
- BoxY=BoxY.1;
- BoxW=360;
- BoxH=249;
- Descr="Click a button to get information about it!";
- Display(Size(640,480),Face(RGB(170)),UserPalette(RGBPen(1,0,16777215,12632256,5592405,8553090,11184810,10066329)));
- Clip(0,271,"scala:\help\graphics\control2.gif");
- pagename="Element Control menu";
- pagedescr="Lets you turn an element on or off, and allows you to change its name. ";
- descr="Click a button to get information about it!";
- title="";
- 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)));
- Button(Normal(Box(4,420,97,25,Style(Norm))),Highlight(Box(4,420,97,25,Style(High))),Select(Box(4,420,97,25,Style(Sel)),Use(activebutton)));
- Button(Normal(Box(106,420,529,25,Style(Norm))),Highlight(Box(106,420,529,25,Style(High))),Select(Box(106,420,529,25,Style(Sel)),Use(nametext)));
- 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)));
- 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)));
- Wait();
- Sequence:
- Use(SetUp);
- Use(DrawBox);
- Button(Wipe("BlindsFantasy3",Speed(7),Direction(90)),Normal(Box(BoxX+BoxW+10,BoxY,115,(BoxH/2),Style(Info))));
- Text(BoxX+BoxW+20,BoxY+10,"This screen ^nhas 2 layouts",Style(Mid),Wrap(Off,Auto(340)));
- Button(MatchSize(On),Normal(Text(BoxX+BoxW+38,BoxY+45,"Page",Style(Layout1))),Highlight(Text(BoxX+BoxW+38,BoxY+45,"Page",Style(Layout2))),Select(Text(BoxX+BoxW+38,BoxY+45,"Page",Style(Layout3)),goto(sub1)));
- Text(BoxX+BoxW+38,BoxY+60,"Element",Style(LayoutText));
- Resources:
- :infobutton
- {
- title="Information button";
- text[1]="Switches Scala into Help mode. ";
- descr=text[1];
- block=1;
- max=1;
- Use(SetPos);
- }
- :activebutton
- {
- title="Active? button";
- text[1]="Turns the element on or off.";
- descr=text[1];
- block=1;
- max=1;
- Use(SetPos);
- }
- :nametext
- {
- title="Name: text";
- text[1]="Changes the element name.";
- descr=text[1];
- block=1;
- max=1;
- Use(SetPos);
- }
- :okbutton
- {
- title="OK";
- text[1]="Accepts changes and exits the Element Control menu.";
- descr=text[1];
- block=1;
- max=1;
- Use(SetPos);
- }
- :cancelbutton
- {
- title="Cancel";
- text[1]="Returns to the Design List menu without applying changes.";
- descr=text[1];
- block=1;
- max=1;
- Use(SetPos);
- }
- }
- Resources:
- :sub1
- {
- Group:
- SubNum="1";
- Quit(1);
- }
- :sub2
- {
- Group:
- SubNum="2";
- Quit(1);
- }
- }
-