home *** CD-ROM | disk | FTP | other *** search
Wrap
!ScalaScript { Sequence: :"SubScript" { Group: BoxX.1=120; BoxY.1=20; BoxX.2=0; BoxY.2=0; BoxX=BoxX.1; BoxY=BoxY.1; BoxW=400; BoxH=140; Descr="Click a button to get information about it!"; Picture("Scala:\help\graphics\timingop.gif",UserPalette(RGBPen(1,0,16777215,12632256,5592405,8553090,11184810))); pagename="!Time, !Date, and !Weekday"; pagedescr="Allows you to specify the format in which the time, the date, and the weekday are displayed when the embedded variables !TIME, !DATE, and !WEEKDAY are used in a script."; descr="Click a button to get information about it!"; title=""; Button(Normal(Box(480,165,19,25,Style(Norm))),Highlight(Box(480,165,19,25,Style(High))),Select(Box(480,165,19,25,Style(Sel)),Use(infobutton))); Button(Normal(Box(143,195,352,25,Style(Norm))),Highlight(Box(143,195,352,25,Style(High))),Select(Box(143,195,352,25,Style(Sel)),Use(timeformat))); Button(Normal(Box(143,225,352,25,Style(Norm))),Highlight(Box(143,225,352,25,Style(High))),Select(Box(143,225,352,25,Style(Sel)),Use(dateformat))); Button(Normal(Box(143,255,352,25,Style(Norm))),Highlight(Box(143,255,352,25,Style(High))),Select(Box(143,255,352,25,Style(Sel)),Use(weekdayformat))); Button(Normal(Box(143,285,114,25,Style(Norm))),Highlight(Box(143,285,114,25,Style(High))),Select(Box(143,285,114,25,Style(Sel)),Use(savebutton))); Button(Normal(Box(262,285,114,25,Style(Norm))),Highlight(Box(262,285,114,25,Style(High))),Select(Box(262,285,114,25,Style(Sel)),Use(okbutton))); Button(Normal(Box(381,285,114,25,Style(Norm))),Highlight(Box(381,285,114,25,Style(High))),Select(Box(381,285,114,25,Style(Sel)),Use(cancelbutton))); Wait(); Sequence: Use(SetUp); Use(DrawBox); Resources: :infobutton { title="Information button"; text[1]="Switches Scala into Help mode. "; descr=text[1]; block=1; max=1; Use(SetPos); } :timeformat { title="Time format: selector"; text[1]="Specifies one of eight time formats."; descr=text[1]; block=1; max=1; Use(SetPos); } :dateformat { title="Date format: selector"; text[1]="Specifies one of thirteen date formats."; descr=text[1]; block=1; max=1; Use(SetPos); } :weekdayformat { title="Weekday format: selector"; text[1]="Specifies one of two weekday formats."; descr=text[1]; block=1; max=1; Use(SetPos); } :savebutton { title="Save"; text[1]="Saves the current formats as the defaults and exits the dialog."; descr=text[1]; block=1; max=1; Use(SetPos); } :okbutton { title="OK"; text[1]="Accepts the current formats for the current session and exits the dialog."; descr=text[1]; block=1; max=1; Use(SetPos); } :cancelbutton { title="Cancel"; text[1]="Exits the dialog, discarding any format changes you made."; descr=text[1]; block=1; max=1; Use(SetPos); } } Resources: }