MODULE DialogBundle;
Generated by m3bundle; see its manpage.
IMPORT Bundle, BundleRep, Text;
IMPORT Thread, Wr, TextWr;
TYPE T = Bundle.T OBJECT OVERRIDES
get := LookUp;
getNames := GetNames;
END;
TYPE Texts = REF ARRAY OF TEXT;
VAR
bundle: T := NIL;
names : Texts := NIL;
PROCEDURE Get(): Bundle.T =
BEGIN
IF (bundle = NIL) THEN bundle := NEW (T) END;
RETURN bundle;
END Get;
PROCEDURE GetNames (<*UNUSED*> self: T): Texts =
BEGIN
IF names = NIL THEN
names := NEW (Texts, NUMBER (Names));
names^ := Names;
END;
RETURN names;
END GetNames;
PROCEDURE LookUp (<*UNUSED*> self: T; element: TEXT): TEXT =
BEGIN
FOR i := 0 TO LAST (Names)-1 DO
IF Text.Equal (Names[i], element) THEN
IF Elements[i] = NIL THEN Elements[i] := GetElt (i) END;
RETURN Elements[i];
END;
END;
RETURN NIL;
END LookUp;
CONST Names = ARRAY [0..47] OF TEXT {
"defnTEMPLATE.obl",
"testTEMPLATE.fv",
"buttonTEMPLATE.fv",
"vos-internal.obl",
"numericATT.fv",
"videoTEMPLATE.fv",
"browserATT.fv",
"callbackTEMPLATE.obl",
"hscrollTEMPLATE.fv",
"videoATT.fv",
"formATT.fv",
"vosnotice.fv",
"texteditTEMPLATE.fv",
"dialog.fv",
"filebrowserTEMPLATE.fv",
"textATT.fv",
"vocheckpt.obl",
"buttonATT.fv",
"declarationTEMPLATE.obl",
"numericTEMPLATE.fv",
"browserTEMPLATE.fv",
"menuATT.fv",
"templates.obl",
"vscrollTEMPLATE.fv",
"booleanATT.fv",
"frameTEMPLATE.fv",
"typeinATT.fv",
"sessionConstructor.help",
"filebrowserATT.fv",
"sessionTEMPLATE.obl",
"textTEMPLATE.fv",
"choiceTEMPLATE.fv",
"scrollerATT.fv",
"netobjexec.obl",
"buildpopup.fv",
"menuTEMPLATE.fv",
"constructorTEMPLATE.obl",
"FlipPage.pbm",
"booleanTEMPLATE.fv",
"frameATT.fv",
"volib.obl",
"typeinTEMPLATE.fv",
"attributes.fv",
"formTEMPLATE.fv",
"texteditATT.fv",
"vowidgets.obl",
"choiceATT.fv",
NIL
};
VAR Elements := ARRAY [0..47] OF TEXT {
E0,
E1,
E2,
E3,
E4,
E5,
NIL (* E6 .. E6_0 *),
E7,
E8,
E9,
NIL (* E10 .. E10_1 *),
E11,
E12,
NIL (* E13 .. E13_6 *),
E14,
E15,
NIL (* E16 .. E16_1 *),
E17,
E18,
E19,
E20,
NIL (* E21 .. E21_0 *),
NIL (* E22 .. E22_3 *),
E23,
E24,
E25,
E26,
E27,
NIL (* E28 .. E28_0 *),
NIL (* E29 .. E29_1 *),
E30,
E31,
E32,
E33,
NIL (* E34 .. E34_0 *),
E35,
E36,
E37,
E38,
E39,
NIL (* E40 .. E40_14 *),
E41,
NIL (* E42 .. E42_4 *),
E43,
E44,
NIL (* E45 .. E45_5 *),
E46,
NIL
};
PROCEDURE GetElt (n: INTEGER): TEXT =
<*FATAL Thread.Alerted, Wr.Failure *>
VAR wr := TextWr.New ();
BEGIN
CASE n OF
| 6 =>
Wr.PutText (wr, E6);
Wr.PutText (wr, E6_0);
| 10 =>
Wr.PutText (wr, E10);
Wr.PutText (wr, E10_0);
Wr.PutText (wr, E10_1);
| 13 =>
Wr.PutText (wr, E13);
Wr.PutText (wr, E13_0);
Wr.PutText (wr, E13_1);
Wr.PutText (wr, E13_2);
Wr.PutText (wr, E13_3);
Wr.PutText (wr, E13_4);
Wr.PutText (wr, E13_5);
Wr.PutText (wr, E13_6);
| 16 =>
Wr.PutText (wr, E16);
Wr.PutText (wr, E16_0);
Wr.PutText (wr, E16_1);
| 21 =>
Wr.PutText (wr, E21);
Wr.PutText (wr, E21_0);
| 22 =>
Wr.PutText (wr, E22);
Wr.PutText (wr, E22_0);
Wr.PutText (wr, E22_1);
Wr.PutText (wr, E22_2);
Wr.PutText (wr, E22_3);
| 28 =>
Wr.PutText (wr, E28);
Wr.PutText (wr, E28_0);
| 29 =>
Wr.PutText (wr, E29);
Wr.PutText (wr, E29_0);
Wr.PutText (wr, E29_1);
| 34 =>
Wr.PutText (wr, E34);
Wr.PutText (wr, E34_0);
| 40 =>
Wr.PutText (wr, E40);
Wr.PutText (wr, E40_0);
Wr.PutText (wr, E40_1);
Wr.PutText (wr, E40_2);
Wr.PutText (wr, E40_3);
Wr.PutText (wr, E40_4);
Wr.PutText (wr, E40_5);
Wr.PutText (wr, E40_6);
Wr.PutText (wr, E40_7);
Wr.PutText (wr, E40_8);
Wr.PutText (wr, E40_9);
Wr.PutText (wr, E40_10);
Wr.PutText (wr, E40_11);
Wr.PutText (wr, E40_12);
Wr.PutText (wr, E40_13);
Wr.PutText (wr, E40_14);
| 42 =>
Wr.PutText (wr, E42);
Wr.PutText (wr, E42_0);
Wr.PutText (wr, E42_1);
Wr.PutText (wr, E42_2);
Wr.PutText (wr, E42_3);
Wr.PutText (wr, E42_4);
| 45 =>
Wr.PutText (wr, E45);
Wr.PutText (wr, E45_0);
Wr.PutText (wr, E45_1);
Wr.PutText (wr, E45_2);
Wr.PutText (wr, E45_3);
Wr.PutText (wr, E45_4);
Wr.PutText (wr, E45_5);
ELSE (*skip*)
END;
RETURN TextWr.ToText (wr);
END GetElt;
CONST E0 =
"(* This file was automatically generated by the\t*)\n(* \t\t\t\t\t\t"
& "\t*)\n(*\t\t VisualObliq Dialog Editor \t \t*)\n(*\t \t VERSI"
& "ON 1.0 \t \t*)\n(* Krishna Bharat/Marc H Brown/Luca Cardel"
& "li \t*)\n(* \t\tModify at your own peril\t\t*)\n\n(* Copyright (C) 199"
& "3, Digital Equipment Corporation \t*)\n(* All rights reserved. \t\t\t\t"
& "*)\n(* See the file COPYRIGHT for a full description. \t*)\n(* \t\t\t\t"
& "\t\t\t*)\n\n\n$declarations$\n\n$GlobalCode$\n\n$constructors$\n\n\t\t "
& " \n\n\n\n\n\n\n";
CONST E1 =
"(Filter %@filter $FilterState$\n \n (Shape %@shape (Width $XSpan$ + In"
& "f - 20) (Height $YSpan$ + Inf - 20)\n \n (BgColor \"$BgColor$\") (C"
& "olor \"$FgColor$\")\n (LabelFont \"$Font$\") \n \n (Frame "
& "$FrameStyle$ \n (Rim %@rim (Pen $RimPen$) (ShadowSize 1.5)\n "
& " (Border %@border (Pen $BorderPen$)\n\n (Text $Alignment$ %@tex"
& "t \"$Initial$\")\n \n )\n \n )\n )"
& "\n )\n )\n \n\n";
CONST E2 =
"(Filter %@filter $FilterState$\n \n (Shape %@shape (Width $XSpan$ + In"
& "f - Inf) (Height $YSpan$ + Inf - Inf)\n \n (BgColor \"$BgColor$\") "
& "(Color \"$FgColor$\")\n (LabelFont \"$Font$\") \n \n (Fram"
& "e $FrameStyle$ \n (Rim %@rim (Pen $RimPen$) (ShadowSize 1.5)\n "
& " (Border %@border (Pen $BorderPen$)\n $GuardHeader$\n "
& " ($Trill$Button %@\n ($ButtonContents$)\n )\n "
& " $GuardFooter$\n )\n \n )\n )\n )\n )\n"
& " \n\n";
CONST E3 =
"(* Copyright (C) 1995, Digital Equipment Corporation. *)\n(* All "
& "rights reserved. *)\n(* See the fil"
& "e COPYRIGHT for a full description. *)\n(* "
& " *)\n(* Last modified on Tue Jan "
& "10 11:47:21 PST 1995 by mhb *)\n\nvar reinstall = true;\n\ntry \n "
& "net_import(\"vos\", \"\").ping();\n reinstall := false;\nexcept else\n"
& "end;\n\nif reinstall then\n let fv = \n \"(Shape (Width 600) (Heigh"
& "t 300) (Font\" &\n \"\\\"-\\*-helvetica-bold-\\*R-\\*240-\\*\\\") (L"
& "abelFont\" &\n \"\\\"-\\*-helvetica-bold-\\*R-\\*240-\\*\\\") (VBox "
& "(Text (BgColor\" &\n \"\\\"DarkBrown\\\") (Color \\\"White\\\") \\\""
& "Session Request\\\") (Text (Color\" &\n \"\\\"DarkBrown\\\") \\\"You"
& " are invited to join a session of\\\") (Text (Color\" &\n \"\\\"Red\\"
& "\") (Name name) \\\"foo\\\") Fill (HBox Fill (Button (Name accept)\" &\n"
& " \"(BgColor \\\"PaleGreen\\\") (Rim (Pen 5) \\\"Accept\\\")) Fill (B"
& "utton (Name \" &\n \"reject) (BgColor \\\"LightRed\\\") (Rim (Pen 5)"
& " \\\"Reject\\\")) Fill) Fill))\";\n\n let vos = {\n Install => meth"
& "(s, constructor, name)\n let noticeform = form_new(fv);\n for"
& "m_putText(noticeform, \"name\", \"\", name, false);\n form_attach("
& "noticeform, \"accept\", \n proc(fv) \n form_hide(fv);\n"
& " (constructor)(volibLocal);\n end);\n form_attac"
& "h(noticeform, \"reject\", \n proc(fv) \n form_hide(fv);"
& " \n ok \n end);\n form_show(noticeform);\n "
& "ok\n end,\n ping => meth(s)\n true\n end\n };\n "
& " net_export(\"vos\", \"\", vos);\nend;\n\n\n\n\n\n\n\n\n\n\n";
CONST E4 =
" (Shape %numericatt (Height 200)\n (VBox \n (Glue 10)\n (Titl"
& "e \"Numeric\")\n (Glue 10)\n (HBox\n (Glue 10)\n "
& " (VBox (Field \"Min :\" 150 (Numeric (TabTo numVal) %numMin ))\n"
& " (Glue 3)\n (Field \"Value :\" 150 (Num"
& "eric (TabTo numMax) %numVal ))\n (Glue 3)\n "
& " (Field \"Max :\" 150 (Numeric (TabTo name) %numMax ))\n "
& " )\n (Glue 50) Fill\n (VBox \n "
& " (Boolean %numAllowEmpty \"Allow Empty\")\n Fill\n "
& " (Boolean %numHideButtons \"Hide Buttons\")\n "
& " )\n (Glue 10)\n )\n Fill\n )\n )\n";
CONST E5 =
"(Filter %@filter $FilterState$\n \n (Shape %@shape (Width $XSpan$ + In"
& "f - Inf) (Height $YSpan$ + Inf - Inf)\n \n (BgColor \"$BgColor$\") "
& "(Color \"$FgColor$\")\n (Font \"$Font$\") \n \n (Frame $Fr"
& "ameStyle$ \n (Rim %@rim (Pen $RimPen$) (ShadowSize 1.5)\n ("
& "Border %@border (Pen $BorderPen$)\n (TSplit %@toggle =$PlayVideo$"
& "\n (Audio %@audio =\"$AudioSource$\" (Volume $Volume$)\n\t\t$Mut"
& "e$ $IgnoreMapping$\n (Video %@ \n\t\t(Quality $Quality$)\n\t"
& "\t(Width $Width$) (Height $Height$)\n\t\t(Colors $Colours$) (MSecs $MSe"
& "cs$)\n\t\t$Synchronous$ $FixedSize$ $Paused$\n\t\t\"$VideoSource$\"\n\t"
& "\t)\n )\n\t(Text \"\")\n )\n \n )\n "
& " \n )\n )\n )\n )\n \n\n";
CONST E6 =
" (Shape %browseratt (Height 200)\n (VBox \n (Glue 10)\n (Titl"
& "e \"Browser\")\n (Glue 5)\n (HBox (Boolean %brQuick \"Quick\") "
& "Fill \n (PageButton (For brNestedTS) (ShadowSize 0.01) \n "
& " (Boolean (ShadowSize 1) %brMultiplicity \"Allow Mult"
& "iple Selection\")))\n (Glue 5)\n (HBox (Radio %brModes (Value b"
& "rEditMode)\n (Shape (Width 100)\n (VBox "
& " Fill\n (LinkButton (For brEdit) (ShadowSize 0.01"
& ")\n (LinkButton (For page1) \n "
& " (Choice (ShadowSize 1) %brEditMode Inverting \"Edit Mode\"))"
& ")\n (LinkButton (For brNestedTS) (ShadowSize 0.01"
& ") \n (LinkButton (For page2) \n "
& " (Choice (ShadowSize 1) %brSelectMode Inverting \"Select Mod"
& "e\")))\n Fill\n )\n "
& " )\n )\n (Glue 10) \n (TSplit %brSelec"
& "tionMode\n (Border %page1 (Pen 1) (Color \"VeryDarkBlue\""
& ")\n (VBox (Glue 5)\n (HBox (Glu"
& "e 5) \n (Button %brAddFirst \"Add First\""
& ") Fill\n (Filter %brFilter Dormant\n "
& " (HBox\n "
& " (Button %brAddAfter \"Add After\") Fill\n "
& " (Button %brDelete \"Delete\")))\n "
& " Fill\n )\n (Glue 5)\n"
& " (LField \"Item to Insert :\" 300 (TypeIn ExpandOn"
& "Demand (BgColor \"White\") %brItem ))\n )\n "
& " )\n (Text %page2 \" \")\n )\n )\n (G"
& "lue 5)\n (TSplit %brBrowsers\n (VBox %brEdit\n (Fram"
& "e Lowered (Shape (BgColor \"VeryLightPink\") (Color \"VeryDarkBlue\") ("
& "Height 15)\n (Text \"Initial Contents\")))\n "
& " (Border (Pen 1)\n (Rim (Pen 1) (Browser (BgColor \"VeryLi"
& "ghtPink\") %brIniti";
CONST E6_0 =
"al))\n ) \n )\n (TSplit %brNestedTS Circular\n "
& " (VBox %brUni\n (Frame Lowered (Shape (BgColor \"VeryLigh"
& "tPink\") (Color \"VeryDarkBlue\") (Height 15)\n (Tex"
& "t \"Initial Selection\")))\n (Border (Pen 1)\n (Ri"
& "m (Pen 1) (Browser (BgColor \"VeryLightPink\") %brSingle))\n )"
& " \n )\n\n (VBox %brMulti\n (Frame Lowered (Shap"
& "e (BgColor \"VeryLightPink\") (Color \"VeryDarkBlue\") (Height 15)\n "
& " (Text \"Initial Selections\")))\n (Border (P"
& "en 1)\n (Rim (Pen 1) (MultiBrowser (BgColor \"VeryLightPink\""
& ") %brMultiple))\n ) \n )\n )\n \n )\n "
& ")\n )\n";
CONST E7 =
"(* Copyright (C) 1995, Digital Equipment Corporation. *)\n(* All "
& "rights reserved. *)\n(* See the fil"
& "e COPYRIGHT for a full description. *)\n(* "
& " *)\n(* Last modified on Tue Jan "
& "10 11:46:20 PST 1995 by mhb *)\n\n$objname$Proc => proc(VOForm)\n$b"
& "gHeader$\n$remoteHeader$\n(*-------------------------------------------"
& "------------------*)\t\n$usercode$\n(*---------------------------------"
& "----------------------------*)\nok\n$remoteFooter$\n$bgFooter$\nend,\n\n"
;
CONST E8 =
"(Filter %@filter $FilterState$\n \n (Shape %@shape (Width $XSpan$ + In"
& "f - Inf) (Height $YSpan$ + Inf - Inf)\n \n (BgColor \"$BgColor$\") "
& "(Color \"$FgColor$\")\n (LabelFont \"$Font$\") \n \n (Fram"
& "e $FrameStyle$ \n (Rim %@rim (Pen $RimPen$) (ShadowSize 1.5)\n "
& " (Border %@border (Pen $BorderPen$)\n\n (Scroller %@\n "
& " (Value $Value$) (Min $Min$)\n (Max $Max$) (Thumb $Thumb"
& "$)\n (Step $Step$)\n ) \n \n \n "
& " )\n \n )\n )\n )\n )\n \n\n";
CONST E9 =
" (Shape %videoatt (Height 200)\n (VBox \n (Glue 10)\n (Title "
& "\"Audio Visual Widget\")\n (Glue 10)\t\t\n (LField \"Video Sour"
& "ce :\" 150 (TypeIn (TabTo vidQuality) %vidSource (BgColor \"White\") (V"
& "alue \"oreo\")))\n \n (Glue 10)\n (Border (Pen 1) \n (VBox\n"
& " (HBox \n (Field \"Quality :\" 150 (Numeric (TabTo vidWidt"
& "h) %vidQuality))\n Fill\n (Field \"Width :\" 150 (Numeric"
& " (TabTo vidColours) %vidWidth )))\n \n (HBox \n (Field"
& " \"Colours :\" 150 (Numeric (TabTo vidHeight) %vidColours))\n F"
& "ill\n (Field \"Height :\" 150 (Numeric (TabTo vidMSecs) %vidHei"
& "ght )))\n \n (HBox \n (Field \"MSecs :\" 150 (Numeri"
& "c (TabTo auVolume) %vidMSecs))\n Fill\n (Field \"Volume :\""
& " 150 (Numeric (TabTo auValue) %auVolume)))\n ))\n (Glue 10)\n "
& " (LField \"Audio Source :\" 150 (TypeIn (TabTo vidSource) %auValue ("
& "BgColor \"White\") (Value \"oreo\")))\n\n (Glue 10)\n(Border (Pen 1"
& ")\n (VBox\n (Glue 5)\n (HBox Fill (Boolean %vidSynchronous \"Synch"
& "ronous\") Fill (Boolean %vidFixedSize \"FixedSize\") \n\t Fill (Bool"
& "ean %vidPaused \"Paused\") Fill)\n\n (Glue 10)\n\n (HBox Fill "
& "(Boolean %auMute \"Mute\")\n\t Fill\n\t (Boolean %auIgnoreMapping"
& " \"Ignore Mapping\")\n\t Fill)\n (Glue 5)\n ))\n Fill\n "
& " \n )\n )\n";
CONST E10 =
"(ZSplit %formatt\n (ZBackground (Shape (Height 305) (Width 350) (VBox"
& " \n (Glue 10)\n (Title "
& "\"Form Attributes\")\n (Glue 10)\n "
& " (HBox\n (Border (Pen 1) \n "
& " (HBox (Glue 20) (Boolean %anchored \"Anchored ?\""
& ") (Glue 20) \n (Shape (Color \"VeryDark"
& "Blue\") (Width 200)\n (Filter %a"
& "nchorfilter Dormant\n (Field \""
& "Parent :\" 150 \n (HBox (T"
& "Split %com Circular\n "
& " (ShadowSize 0.5)\n "
& " (PageButton %opencombo (For com) (PopButton (For combo) \n "
& " (Pixmap \"arrowDown.pbm\""
& ")))\n (PageButton "
& "%closecombo (For com) (CloseButton (For combo) \n "
& " (Pixmap \"arrowUp.pbm\"))))\n "
& " (Frame Raised (Shape (Width 100)"
& " (BgColor \"White\") (TypeIn %parent )))\n "
& " )\n )\n "
& " ) \n "
& " ) Fill ))\n \n "
& " ) \n \n "
& " (Glue 10)\n (Border (Pen 1)\n "
& " (HBox\n Fill\n "
& " (VBox (Shape (Height 15) (Text \"Vertical\")) (G"
& "lue 5)\n (Field \"Stretch :\" 150 (N"
& "umeric %vstretch (TabTo vshrink) (Min 0))) (Glue 5) \n "
& " (Field \"Shrink :\" 150 (Numeric %vshrink (TabTo hst"
& "retch) (Min 0))))\n Fill Ridge Fill\n ";
CONST E10_0 =
" \n (VBox "
& "(Shape (Height 15)(Text \"Horizontal\")) (Glue 5)\n "
& " (Field \"Stretch :\" 150 (Numeric %hstretch (TabTo hshr"
& "ink) (Min 0))) (Glue 5) \n (Field \"S"
& "hrink :\" 150 (Numeric %hshrink (TabTo vstretch) (Min 0)))) \n "
& " Fill \n \n "
& " ))\n (Glue 10)\n "
& " (HBox\n (Shape (Height 30) (Border (Pen "
& "1) \n (HBox Fill (Boolean %menuBoolean \"Menu"
& " ?\") Fill \n (Shape (Color \"VeryDarkB"
& "lue\") (Height 20)\n (Filter %tome"
& "nuFilter\n (VBox Fill (LinkButt"
& "on %tomenu (For menuatt) \"Menu Design\") Fill)\n "
& " )\n ) Fill )))\n "
& " (Glue 10)\n (Shape (Wid"
& "th 90)\n \n (LinkBut"
& "ton (For SupportCode)(BgColor \"PalePink\") \n "
& " (VBox \"Form\" \"Support Code\")))\n )\n "
& " (Glue 10)\n \n "
& " (BoxAround 90\n (VBox Fill\n "
& " (Field \"Title Bg Color :\" 280 (ColorField tbg"
& "ctypein tbgc))\n (Field \"Title Fg Color :\" "
& "280 (ColorField tfgctypein tfgc))\n (LField \""
& "Title Label :\" 280 (TypeIn (TabTo formtexture) %ttyp (BgColor \"White\""
& ") (Value \"Title\")))\n Fill) \n "
& " )\n (LField \"Texture :\" 150 ("
& "TypeIn (TabTo name) %formtexture (BgColor \"White\") (Value \"Blank\"))"
& ")\n Fill\n )))\n "
& " (ZChild %combo (At 200 56 NW Absolute) \n (Border"
& " (Pen 1)";
CONST E10_1 =
" (Frame (Shape (BgColor \"White\") (Height 80) (Width 113) (Browser Qu"
& "ick %parentlist )))))\n )\n\n\n \n"
;
CONST E11 =
"(Shape (Width 600) (Height 300)\n (Font \"-*-helvetica-bold-*R-*2"
& "40-*\")\n (LabelFont \"-*-helvetica-bold-*R-*240-*\")\n (VBox \n "
& " (Text (BgColor \"DarkBrown\") (Color \"White\") \"Session Request\")\n"
& " (Text (Color \"DarkBrown\") \"You are invited to join a session of\""
& ")\n (Text (Color \"Red\") (Name name) \"foo\")\n Fill\n (HBox \n "
& " Fill \n (Button (Name accept) (BgColor \"PaleGreen\") (Rim (Pen"
& " 5) \"Accept\"))\n Fill \n (Button (Name reject) (BgColor \"Lig"
& "htRed\") (Rim (Pen 5) \"Reject\")) \n Fill)\n Fill))\n";
CONST E12 =
"(Filter %@filter $FilterState$\n \n (Shape %@shape (Width $XSpan$ + In"
& "f - Inf) (Height $YSpan$ + Inf - Inf)\n \n (BgColor \"$BgColor$\") "
& "(Color \"$FgColor$\")\n (Font \"$Font$\") \n \n (Frame $Fr"
& "ameStyle$ \n (Rim %@rim (Pen $RimPen$) (ShadowSize 1.5)\n ("
& "Border %@border (Pen $BorderPen$)\n\n (TextEdit %@ $ReadOnly$ $C"
& "lip$ $NoScrollbar$\n ($Initial$)\n )\n \n "
& " )\n \n )\n )\n )\n )\n \n\n";
CONST E13 =
"(Shape\n %base\n (Width + Inf)\n (Height + Inf)\n (Font \"-*-courie"
& "r-bold-*R-*120-*\")\n (Macro\n TYPEIN\n BOA\n (name tabto ini"
& "t)\n `(Frame\n Lowered\n (TypeIn %,name (TabTo ,tabto) E"
& "xpandOnDemand (BgColor \"White\") =,init)))\n (Macro LT BOA (t) `(Rim "
& "(Pen 2) (Text LeftAlign ,t)))\n (Macro MT BOA (t) ` (Rim (Pen 2) (Text"
& " Center ,t)))\n (Macro\n StdFileDialog\n (Name\n Title\n "
& " fbName\n OKName\n OKLabel\n helperName\n cancelN"
& "ame\n (cancelLabel \"Cancel\")\n (Suffixes \"\")\n (Read"
& "Only FALSE)\n (other ()))\n `(ZChassis\n %,Name\n ("
& "Title ,Title)\n (Rim\n (Pen 10)\n (VBox\n "
& " (HBox\n (Shape\n (Width 150 + Inf)\n "
& " (Height 150 + Inf)\n (VBox\n (La"
& "belFont \"fixed\")\n (DirMenu (For ,fbName))\n "
& " (Glue 6)\n (Frame\n Lowered\n"
& " (FileBrowser\n (ReadOnly ,ReadOn"
& "ly)\n (Suffixes ,Suffixes)\n %,"
& "fbName))))\n (Glue 10)\n (VBox\n "
& "Fill\n (Button %,OKName (Rim (Pen 2) ,OKLabel))\n "
& " (Glue 10)\n (CloseButton %,cancelName (Rim (Pen 2)"
& " ,cancelLabel))))\n (Glue 5)\n (HBox\n "
& "(Shape (Width + 0) \"File: \")\n (Frame\n Low"
& "ered\n (Helper %,helperName ExpandOnDemand FirstFocus (Fo"
& "r ,fbName))))\n ,@other))))\n (Macro\n FileMenu\n ()\n"
& " `(Menu\n (ShadowSize 0)\n (MT \"File\")\n (Border"
& "\n (VBox\n (PopMButton (For openDialog) (LT \"Open..\""
& "))\n Bar\n (MButton %addscreen (LT \"Add Screen \""
& "))\n (PopMButton %showsettings (For settings) (LT \"Settings."
& ".\"))\n Bar\n (Filter Dormant (Button (LT \"Save\")"
& "))\n (PopMButton (For saveAsDialog) (LT \"Save As..\"))\n "
& " Bar\n (MButton %clearwo";
CONST E13_0 =
"rkspace (LT \"Clear Workspace\"))\n Bar\n (MButton "
& "%quit (LT \"Quit\"))))))\n (Macro\n EditMenu\n ()\n `(Menu\n "
& " (ShadowSize 0)\n (MT \"Edit\")\n (Border\n (V"
& "Box\n (MButton %cut (Filter %cutFilter (LT \"Cut\")))\n "
& " (MButton %copy (Filter Dormant %copyFilter (LT \"Copy\")))\n "
& " (MButton %paste (Filter %pasteButton (LT \"Paste\")))\n "
& "Bar\n (MButton %delete (Filter %deleteButton (LT \"Delete\"))"
& ")))))\n\n\n\n(Macro \n AlignPopup\n ()\n` (ZChassis (Title \"Align\") "
& "(BgColor \"SlightlyYellowishGrey72\")\n\t %alpopup (At 65 0 NW Absol"
& "ute)\n \n \n\t(VBox (BgColor \"SlightlyYellowishGrey92\")\n\t"
& "(Border \n\t (Button (ShadowSize 0)\n\t\t (BgColor \"SlightlyYel"
& "lowishGrey82\")\n\t (VBox (ShadowSize 1.5)\n (MButton %Alig"
& "nNorth (Filter %anFilter (LT \"Top Edges\")))\n (MButton %Ali"
& "gnSouth (Filter %asFilter (LT \"Bottom Edges\")))\n (MButton "
& "%AlignWest (Filter %awFilter (LT \"Left Edges\")))\n (MButton"
& " %AlignEast (Filter %aeFilter (LT \"Right Edges\")))\n\t Bar\n\t (M"
& "Button %AlignHoriz (Filter %ahFilter (LT \"Top & Bottom Edges\")))\n "
& " (MButton %AlignVert (Filter %avFilter (LT \"Left & Right Edges\""
& ")))\n\t Bar\n\t (MButton %AlignCenHoriz (Filter %achFilter (LT \"Ce"
& "nters Horizontally\")))\n (MButton %AlignCenVert (Filter %acv"
& "Filter (LT \"Centers Vertically\")))\n\t )))\n\t(Glue 2)\n\t (Border\n"
& "\t (Radio %alignMode =alignAvg\n\t (VBox\n\t (Choice MenuStyle Check"
& "Mark %alignFirst (LT \"With First Selection\'s\"))\t\n\t (Choice Menu"
& "Style CheckMark %alignAvg (LT \"Use Average\"))\n\t (Choice MenuStyle"
& " CheckMark %alignMin (LT \"Use Minimum\"))\n\t (Choice MenuStyle Chec"
& "kMark %alignMax (LT \"Use Maximum\"))\n\t Ridge\n\t (Boolean %stret"
& "chAlign \"Stretch While Aligning\")\n\t )))\n\n\t)))\n\n(Macro \n Shap"
& "ePopup\n ()\n` (ZChassis (Title \"Shape\") (BgColor \"SlightlyYellowis"
& "hGrey72\")\n\t %shpopup (At 65 15 NW Absolute)\n \n\t(VBox (BgCo"
& "lor \"SlightlyYellowishGrey92\")\n\t(Border \n\t (Button (ShadowSize "
& "0)\n\t\t (BgC";
CONST E13_1 =
"olor \"SlightlyYellowishGrey82\")\n\t (VBox (ShadowSize 1.5)\n\t\t (M"
& "Button %EqualWidth (Filter %ewFilter (LT \"Make Widths Equal\")))\t\n\t"
& "\t (MButton %EqualHt (Filter %ehFilter (LT \"Make Heights Equal\"))) \t"
& "\n\t\t (MButton %EqualDim (Filter %edFilter (LT \"Make Dimensions Equal"
& "\"))) \t\n \n\t )))\n\t(Glue 2)\n\t (Border\n\t (Radio %shap"
& "eMode =useFirst\n\t\t(VBox\n\t\t (Choice MenuStyle CheckMark %useFirst "
& "(LT \"As in First Selection\"))\t\n\t\t (Choice MenuStyle CheckMark %us"
& "eAvg (LT \"Use Average\"))\n\t\t (Choice MenuStyle CheckMark %useMin (L"
& "T \"Use Minimum\"))\n\t\t (Choice MenuStyle CheckMark %useMax (LT \"Use"
& " Maximum\"))\n\t\t )))\n\n\t )))\n\n\n(Macro \n DistPopup\n ()\n` (ZCha"
& "ssis (Title \"Distribute...\") (BgColor \"SlightlyYellowishGrey72\")\n"
& "\t %dispopup (At 65 30 NW Absolute)\n\n\t (Button (ShadowSize 0)\n\t"
& "\t (BgColor \"SlightlyYellowishGrey82\")\n\t (VBox (ShadowSize "
& "1.5)\n\t\t (Glue 5)\n\t\t (MButton %DistHoriz (Filter %dhFilter (LT \"D"
& "istribute Horizontally\")))\n\t\t (MButton %DistVert (Filter %dvFilter "
& "(LT \"Distribute Vertically\"))) \n\t\t (MButton %DistBoth (Filter %db"
& "Filter (LT \"Distribute Both Ways\"))) \t\n\t\t (Glue 5)\n\t ))\n\n\t"
& " ))\n\n (Macro\n LayoutMenu\n ()\n `(Menu\n (ShadowSize"
& " 0)\n (MT \"Layout\")\n (Border\n (VBox\n\t (PopM"
& "Button (For alpopup) %alpm (Filter %alpmFilter (LT \"Align...\")))\n\t "
& " (PopMButton (For shpopup) %shpm (Filter %shpmFilter (LT \"Shape...\")"
& "))\t\n\t (PopMButton (For dispopup) %dispm (Filter %dispmFilter (LT \""
& "Distribute...\")))\t\n\t \t\t \n ))))\n\n (Macro\n CodeMe"
& "nu\n ()\n `(Menu\n (ShadowSize 0)\n (MT \"Code\")\n "
& " (Border\n (Radio\n %testbild\n =bildmo"
& "de\n (VBox\n (MButton %gensx (LT \"Generate S-exp"
& "ression..\"))\n (PopMButton %gencode (For buildDialog) (LT "
& "\"Generate Code..\"))\t\n (PopMButton %viewlastsx (For sxvi"
& "ewer) (LT \"View Last S-expression..\"))\n\t Bar\n (Pop"
& "MButton %editsc (For codeviewer) (LT \"Edit Session Constructor..\"))\n"
& "\t (PopMButton %editgc (For codev";
CONST E13_2 =
"iewer) (LT \"Edit Global Code..\"))\n\t (PopMButton %editsvr (For c"
& "odeviewer) (LT \"Edit Server Side Code..\"))\n Bar\n "
& " (Choice MenuStyle CheckMark %testmode (LT \"Test Mode\"))\n "
& " (Choice MenuStyle CheckMark %bildmode (LT \"Build Mode\"))\n "
& " (Shape\n (Height 0)\n (Width 0)\n "
& " (Text %currentobject (Color \"Black\") \"\")))))))\n (Ma"
& "cro\n MenuBar\n ()\n `(HBox\n (BgColor \"SlightlyYellowi"
& "shGrey74\")\n (Color \"Black\")\n (FileMenu)\n (EditM"
& "enu)\n (LayoutMenu)\n (CodeMenu) \n\t(Glue 10)\n (Rim"
& "\n (Pen 2)\n (Border (PopButton (For codeviewer) (BgCol"
& "or \"SlightlyYellowishGrey90\") \n\t\t%viewmethods \"HELP\")))\n "
& "(Glue 5)\n (Rim\n (Pen 2)\n (Border (Button (BgCo"
& "lor \"SlightlyYellowishGrey90\") %run \"RUN\")))\n\t\n (Glue 10)\n"
& " (VBox\n (Glue 2)\n (Frame\n Lowered\n "
& " (Rim\n (Pen 0)\n (ShadowSize 1.5)\n "
& " (Border\n (Pen 1)\n\t (HBox\n\t\t(Border "
& "(Button (BgColor \"SlightlyYellowishGrey90\") %invite1 \"INVITE:\"))\n "
& " (Shape\n (Width 200)\n (T"
& "ypeIn (BgColor \"SlightlyYellowishGrey92\") %invite2))\n\t\n\t\t))))\n "
& " (Glue 2))\n (Glue 6)))\n (Macro\n Key\n BOA\n ("
& "keyname wid contents)\n `(Rim\n (Pen 3)\n (BgColor \"Pal"
& "eGrey\")\n (Shape\n (Width ,wid)\n (Button\n "
& " %,keyname\n (Filter\n %,(Intern (Cat \"BLOC"
& "KING_\" (SymbolName keyname)))\n (Frame Raised ,contents)))"
& ")))\n (Macro\n Box\n BOA\n (outer inner rest)\n `(Rim (Pen"
& " ,outer) (Border (Pen ,inner) ,rest)))\n (Macro\n FormDef\n ()\n"
& " `(Key\n form\n 50\n (Border\n (BgColor \""
& "White\")\n (Pen 1)\n (VBox (Frame (BgColor \"PaleYellow"
& "\") \"Form\") Fill \"\"))))\n (Macro\n TexteditDef\n ()\n `(K"
& "ey\n textedit\n 70\n (Box 2 1 (TextEdit (Font \"Bold\""
& ") (BgC";
CONST E13_3 =
"olor \"White\") =\"Editor\"))))\n (Macro\n TypeinDef\n ()\n `"
& "(Key\n typein\n 65\n (VBox Fill (Box 2 1 (TypeIn (BgC"
& "olor \"White\") =\"Typein\")) Fill)))\n (Macro\n NumericDef\n ()"
& "\n `(Key\n numeric\n 80\n (VBox \"Numeric\" (Box 2"
& " 1 (Numeric (BgColor \"RatherPaleYellow\"))))))\n (Macro TextDef () `("
& "Key text 60 (Box 2 1 (Text (BgColor \"White\") \"Text\"))))\n (Macro\n"
& " ChoiceDef\n ()\n `(Key\n choice\n 85\n (Box"
& "\n 2\n 1\n (Radio\n (VBox\n "
& " (BgColor \"White\")\n \"Choice\"\n (HBox Fil"
& "l (Choice =TRUE \" A \") Fill (Choice \" B \") Fill))))))\n (Macro\n "
& " MenuDef\n ()\n `(Key\n menu\n 50\n (VBox\n "
& " (Frame Lowered (BgColor \"PaleYellow\") \"Menu\")\n (Box "
& "1 1 (VBox (BgColor \"VeryLightYellow\") \"...\" Fill)))))\n (Macro\n "
& " BooleanDef\n ()\n `(Key boolean 70 (Box 2 1 (Boolean (BgColor \""
& "White\") \"Boolean\"))))\n (Macro\n FrameDef\n ()\n `(Key\n "
& " frame\n 50\n (Shape (Height 40) (Box 2 1 (Text (BgColo"
& "r \"VeryPaleYellow\") \"Frame\")))))\n (Macro\n ButtonDef\n ()\n"
& " `(Key\n button\n 65\n (Rim (Pen 5) (Border (BgCol"
& "or \"RatherPaleYellow\") (Button \"Button\")))))\n (Macro\n VScroll"
& "Def\n ()\n `(Key vscroll 30 (HBox Fill (Box 2 1 (Scroller Vertica"
& "l)) Fill)))\n (Macro HScrollDef () `(Key hscroll 45 (VBox Fill (Box 2 "
& "1 (Scroller)) Fill)))\n (Macro\n BrowserDef\n ()\n `(Key\n "
& " browser\n 60\n (VBox\n \"Browser\"\n (B"
& "order\n (BgColor \"White\")\n (Browser =1 (Items \""
& "one\" \"two\" \"three\" \"four\" \"five\" \"six\"))))))\n (Macro\n "
& "FileBrowserDef\n ()\n `(Key\n filebrowser\n 85\n "
& " (VBox \"File Browser\" (Border (BgColor \"White\") (FileBrowser)))))\n"
& " (Macro VideoDef () `(Key video 60 (Video (MSecs 1000) \"castle\")))\n"
& " (Macro\n WidgetBar\n ()\n `(VBox\n (HBox\n (Fo"
& "rmDef)\n (TexteditDef)\n (TypeinDef)\n (TextDef"
& ")\n (NumericDef)";
CONST E13_4 =
"\n (ChoiceDef)\n (VideoDef)\n Fill)\n (HB"
& "ox\n (FrameDef)\n (BooleanDef)\n (ButtonDef)\n "
& " (BrowserDef)\n (VScrollDef)\n (HScrollDef)\n "
& " (FileBrowserDef)\n Fill)))\n (ZSplit\n (VBox\n ("
& "MenuBar)\n Bar\n (WidgetBar)\n Bar\n (TSplit\n "
& " =0\n Circular\n %testAndbild\n (ZSplit\n "
& " %topZSplit\n (ZBackground\n (Shape\n "
& " (Height 400 - 200 + Inf)\n (Filter (BgColor \"White\") \""
& "Dialog Composition Area\"))))\n (ZSplit %testZSplit (ZBackground"
& " (BgColor \"LightGrey\") \"Test Mode\"))))\n (AlignPopup)\n (Shap"
& "ePopup)\n (DistPopup)\n (ZChild\n %msgbox\n (At 0.5 0.5"
& ")\n FixedHV\n (Border\n (Pen 2)\n (Shape\n "
& " (Width 400)\n (Height 100)\n (VBox\n "
& "Fill\n (Text %msg \"Message\")\n (HBox\n "
& " Fill\n (Shape\n (Width 50)\n "
& " (BgColor \"PaleGreen\")\n (CloseButton (For msgbox"
& ") (Rim (Pen 2) \"OK\")))\n Fill)\n Fill))))\n "
& " (StdFileDialog \n %openDialog\n (Title \"Select File to Ope"
& "n\")\n (ReadOnly TRUE)\n (Suffixes \"vo\")\n (fbName ope"
& "n)\n (OKName openbtn)\n (OKLabel \"Open\")\n (cancelName"
& " cancelopen)\n (helperName lfbh)\n (other\n \n ("
& "(Glue 5)\n (HBox (Boolean %openSuffixes =TRUE \"Display only ."
& "vo files\") Fill)\n (HBox (Boolean %useSSX =FALSE \"Use save"
& "d widget templates\") Fill)\n )))\n\n (StdFileDialog\n "
& " %saveAsDialog\n (Title \"Specify Name to Save Application As\")\n"
& " (fbName saveas)\n (OKName saveasbtn)\n (OKLabel \"Save\""
& ")\n (cancelName cancelsaveas)\n (helperName sfbh))\n\n ("
& "StdFileDialog\n %buildDialog\n (Title \"Specify File to Build"
& " to\")\n (fbName build)\n (OKName buildbtn)\n (OKLabel \""
& "Build\")\n (cancelName cancelbuild)\n (helperN";
CONST E13_5 =
"ame bfbh)\n (other\n ((Glue 5)\n (HBox (Boolean %s"
& "ingleFile =TRUE \"Bundle Code into a Single Executable\") Fill))))\n\n "
& " (ZChassis \n %settings\n (Title \"Settings\")\n NoClo"
& "se\n (Macro LeftText BOA (text) `(Shape (Width + 0) (Text LeftAli"
& "gn ,text)))\n (Shape (Width 300 + Inf)\t\n (Rim\n ("
& "Pen 10)\n (VBox\n (HBox\n (LeftText \"Grid S"
& "ize: \")\n (Numeric (TabTo bgcolor) %grid (Min 5) =5)\n "
& " Fill)\n (Glue 5)\n (HBox (LeftText \"Bg Color:"
& " \") (TYPEIN bgcolor fgcolor \"White\"))\n (Glue 5)\n "
& " (HBox (LeftText \"Fg Color: \") (TYPEIN fgcolor font \"Black\"))\n "
& " (Glue 5)\n (HBox (LeftText \"Font: \") (TYPEIN font defn"
& "ame \"Fixed\"))\n (Glue 5)\n (HBox (LeftText \"Defaul"
& "t Name: \") (TYPEIN defname grid \"Unnamed\"))\n\t (Glue 8)\n\t (HBox"
& " (LeftText \"Large Font for Editors: \")\n\t\t (Boolean %blowFont =FAL"
& "SE \"\"))\n\t \n (Glue 20)\n (HBox\n Fi"
& "ll\n (CloseButton %oksettings (Shape (Width 50) \"OK\"))\n "
& " (Glue 50)\n (CloseButton %cancelsettings (Shape (W"
& "idth 50) \"Cancel\"))\n Fill)))))\n (ZChassis\n (BgC"
& "olor \"SlightlyYellowishGrey72\")\n %sxviewer\n (Title \"SX V"
& "iewer\")\n (VBox\n (BgColor \"SlightlyYellowishGrey82\")\n "
& " (Shape\n (Height 10)\n (Text (Color \"VeryDark"
& "Blue\") %sxtitle \"Last S-Expression Generated\"))\n (Glue 3)\n "
& " (Border\n (Pen 1)\n (Shape\n (Width"
& " 400 + Inf - 100)\n (Height 250 + Inf - 100)\n (T"
& "extEdit (BgColor \"White\") ReadOnly %sxview)))\n (Glue 10)\n "
& " (HBox\n Fill\n (Rim\n (Pen 2)\n "
& " (Border\n (Button\n (BgColor \"Slight"
& "lyYellowishGrey92\")\n %sxbutton\n \"Save"
& " As : \")))\n (TYPEIN sxtypein sxtypein \"\")\n Fill)"
& "\n (Glue 10)))\n\n (ZChild \n %codeviewer\n (";
CONST E13_6 =
"Border\n (VBox\n (Shape (Height 20) (Width 500 + Inf - 200"
& ")\n (ShadowSize 1.5)\n (HBox (CloseButton \"C\") \n"
& " (Shape (Width 365 + Inf - 200) (ZMove (Text %cvtitle \"Ed"
& "it Session Constructor\")))\n (ZGrow \"G\")))\n "
& "(Border\n (Pen 1)\n (Shape\n (VTile\n "
& " (Shape (Height 180 + Inf - 100)\n (TextEdit (BgColo"
& "r \"VeryPalePink\") ReadOnly %cvinstns))\n \n (Sh"
& "ape (Height 300 + Inf - 100)\n\t (TextEdit (BgColor \"White\") %co"
& "deview)))))\n\t (Shape (Width + Inf) (Button %codeapply (Text %codeT"
& "itle \" Apply \"))))\n )\n)\n \n))\n\n";
CONST E14 =
"(Filter %@filter $FilterState$\n \n (Shape %@shape (Width $XSpan$ + In"
& "f - Inf) (Height $YSpan$ + Inf - Inf)\n \n (BgColor \"$BgColor$\") "
& "(Color \"$FgColor$\")\n (LabelFont \"$LabelFont$\") (Font \"$Font$"
& "\") \n\n (Frame $FrameStyle$ \n (Rim %@rim (Pen $RimPen$) (S"
& "hadowSize 1.5)\n (Border %@border (Pen $BorderPen$)\n \n "
& " (VBox\n (Glue 5)\n (HBox (Glue 5)\n (S"
& "hape\n (Width 150 + Inf - 100)\n (Height 150 "
& "+ Inf - 100)\n (VBox\n (LabelFont \"fixed\""
& ")\n (DirMenu (For $fbName1$))\n (Glue 6)\n"
& " (Frame Lowered (BgColor \"White\")\n "
& " (FileBrowser %@ $ReadOnly$ \n (Value \"$Initi"
& "al$\")\n (Suffixes $Suffixes$)\n "
& " )\n )))\n (Glue 5)\n (Shape"
& "\n (Width 50 + Inf)\n (VBox\n "
& "(Fill)\n (Button %@action \"$ActionLabel$\")\n "
& " (Glue 10)\n ))\n (Glue 5))\n (G"
& "lue 5)\n (HBox\n (Glue 5)\n (Shape (Widt"
& "h 30 + Inf) (Height 16) \"File :\")\n (Frame Lowered (BgColo"
& "r \"White\") (Helper %@typein (For $fbName2$) (Font \"fixed\")))\n "
& " (Glue 5))\n (Glue 5))\n )\n \n "
& ")\n )\n )\n )\n \n";
CONST E15 =
" (Shape %textatt (Height 200)\n (VBox \n (Glue 10)\n (Title \""
& "Text\")\n (Glue 10)\n (RField tOrientation \"Orientation : \" "
& "(HBox (Choice %LeftAlign Inverting \"Left Align\")\n "
& " (Choice %Center Inverting \"Center\")\n "
& " (Choice %RightAlign Inverting \"Ri"
& "ghtAlign\")\n ) 20 Center 10"
& "0)\n \n (Glue 10)\n (LField \"Value :\" 500 (TypeIn ExpandOn"
& "Demand (TabTo name) %tVal\n "
& " (BgColor \"White\") (Value \"Text\") ) )\n Fill\n )\n )\n";
CONST E16 =
"(* Copyright (C) 1995, Digital Equipment Corporation. *)\n(* All "
& "rights reserved. *)\n(* See the fil"
& "e COPYRIGHT for a full description. *)\n(* "
& " *)\n(* Last modified on Tue Jan "
& "10 11:47:13 PST 1995 by mhb *)\n\nmodule vocheckpt;\n(* used by mod"
& "ule \"volib\" *)\nsys_pushSilence();\n\n(* Stuff to checkpoint\n\n\t== "
& "all other attributes are set by method calls ==\n\n\tboolean ::= initi"
& "alValue := b.getValue();\n\tbrowser ::= Selections/Selection\n\tchoice "
& "::= initialValue := c.getValue();\n\tfilebrowser ::= Value := fb.getF"
& "ilename();\n\tform => (checkpoint open/close state of anchored forms)\n"
& "\thscroll ::= Val := h.getValue();\n\tnumeric ::= Val := n.getValue();\n"
& "\ttextedit ::= teContents := text_encode(t.getText());\n\ttypein ::="
& " tyInit := text_encode(t.getText());\n\tvscroll ::= Val := v.getValu"
& "e();\n\t\n*)\n(* generic routine - forward declaration *)\nvar checkptS"
& "X = 0;\nlet childOffRed = 20;\n\nlet genericCP = proc(nv)\n\tlet width "
& "= form_getInt(nv.form, nv.name & \"filter\", \"EastEdge\") -\n\t\t\t "
& " form_getInt(nv.form, nv.name & \"filter\", \"WestEdge\");\n\tlet heigh"
& "t = form_getInt(nv.form, nv.name & \"filter\", \"SouthEdge\") -\n\t\t\t"
& " form_getInt(nv.form, nv.name & \"filter\", \"NorthEdge\");\n\n\tif "
& "(width isnot 0) and (height isnot 0) then\n\t(* true when the widget is"
& " mapped *)\n\t\tnv.height := height; nv.width := width;\n\t\tif nv.clas"
& "s is \"form\" then nv.InitialState := \"Active\"; end;\n\t\tlet p = nv."
& "parent;\n\t\tif p isnot 0 then\n\t\t\tnv.x := form_getInt(nv.form, nv.n"
& "ame & \"filter\", \"WestEdge\") -\n\t\t\t\t form_getInt(p.form, p.n"
& "ame & \"filter\", \"WestEdge\");\n\t\t\tnv.y := form_getInt(nv.form, nv"
& ".name & \"filter\", \"NorthEdge\") -\n\t\t\t\t form_getInt(p.form, "
& "p.name & \"filter\", \"NorthEdge\");\n\t\t\tif p.class is \"form\" then"
& "\n\t\t\t\tif p.ParentForm is 0 then\n\t\t\t\t\tnv.y := nv.y + childOffR"
& "ed;\n\t\t\t\tend;\n\t\t\tend;\n\t\telse\t\n\t\t\tnv.x := form_getInt(nv"
& ".form, nv.name & \"filter\", \"WestEdge\");\n\t\t\tnv.y := form_getInt("
& "nv.form, nv.name & \"filter\", \"NorthEdg";
CONST E16_0 =
"e\");\n\t\tend;\n\telsif nv.class is \"form\" then\n\t\tnv.InitialState"
& " := \"Vanish\";\n\t\t(* otherwise this widget may be unmapped because a"
& " parent is unmapped *)\n\tend;\nend;\n\nlet splitCP = proc(nv)\n\tgener"
& "icCP(nv);\n\tforeach child in nv.children do\n\t\tcheckptSX(child);\t\t"
& "\n\tend;\n\nend;\n\nlet formCP = proc(nv)\n\n\n\tlet oldwidth = nv.widt"
& "h;\n\tlet oldheight = nv.height;\n\n\tsplitCP(nv); (* will also do gene"
& "ric *)\n\n\n\tlet incwidth = nv.width - oldwidth;\n\tlet incheight = nv"
& ".height - oldheight;\n\t\n\tnv.ShrinkX := nv.ShrinkX + incwidth;\n\tnv."
& "StretchX := nv.StretchX - incwidth;\n\tnv.ShrinkY := nv.ShrinkY + inche"
& "ight;\n\tnv.StretchY := nv.StretchY - incheight;\n\n\tif nv.ShrinkX < 0"
& " then nv.ShrinkX := 0 end;\n\tif nv.ShrinkY < 0 then nv.ShrinkY := 0 en"
& "d;\n\tif nv.StretchX < 0 then nv.StretchX := 0 end;\n\tif nv.StretchY <"
& " 0 then nv.StretchY := 0 end;\n\t\n\n\tforeach child in nv.ChildForms d"
& "o\n\t\tcheckptSX(child);\t\t\n\tend;\n\t(* if this is an anchored form "
& "... *)\n\tlet pf = nv.ParentForm;\n\tif pf isnot 0 then\n\t\tnv.x := fo"
& "rm_getInt(nv.form, nv.name & \"filter\", \"WestEdge\") -\n\t\t\t fo"
& "rm_getInt(pf.form, pf.name & \"filter\", \"WestEdge\");\n\t\tnv.y := fo"
& "rm_getInt(nv.form, nv.name & \"filter\", \"NorthEdge\") -\n\t\t\t f"
& "orm_getInt(pf.form, pf.name & \"filter\", \"NorthEdge\");\t\t\n\telse\n"
& "\t\t(* Need to compensate for absence of title in top level form.\n\t\t"
& " The s-expression is computed after reducing the given height\n\t\t "
& " by childOffRed, so when we are computing the height from the\n\t\t "
& " vbt we need to add this amount *)\n\t\n\t\tnv.height := nv.height +"
& " childOffRed;\n end;\n\tnv.CheckpointedXY := true;\nend;\n\n(* p"
& "rocedure dispatching kludge *)\ncheckptSX := proc(wid)\n\tvar dogeneric"
& " = true;\n\tif wid.class is \"form\" then\n\t\tformCP(wid);\n\t\tdogene"
& "ric := false;\n \telsif wid.class is \"frame\" then\n\t\tsplitCP(wid"
& ");\n\t\tdogeneric := false;\n\telsif wid.class is \"boolean\" then\n\t"
& "\twid.initialValue := wid.getValue();\n\telsif wid.class is \"browser\""
& " then\n\t\t\t(* getSelection automatically does the checkpointing! *)\n"
& "\t\t\twid.getSelection();\n\t\t\tok\n\telsif wid.class is \"choi";
CONST E16_1 =
"ce\" then\n\t\twid.initialValue := wid.getValue();\n\telsif wid.class i"
& "s \"filebrowser\" then \n\t\twid.Value := text_encode(wid.getFilename("
& "));\n\telsif wid.class is \"hscroll\" then\n\t\t wid.Val := wid.getValu"
& "e();\n\telsif wid.class is \"numeric\" then\n\t\twid.Val := wid.getValu"
& "e();\n\telsif wid.class is \"textedit\" then\n\t\twid.teContents := te"
& "xt_encode(wid.getText());\n\telsif wid.class is \"typein\" then\n\t\twi"
& "d.tyInit := text_encode(wid.getText());\n\telsif wid.class is \"vscroll"
& "\" then \n\t\twid.Val := wid.getValue();\n\tend;\n\tif dogeneric then\n"
& "\t\tgenericCP(wid);\n\tend;\n\tok;\t\nend;\n\n\nlet rebuildWidget = pro"
& "c(wid)\n\t(* not applicable to forms *)\n\t(* assume already checkpoint"
& "ed *)\n\tlet f = wid.form;\n\tlet widpar = wid.parent;\n\n\tvar offsetR"
& "ed = 0;\n\tif widpar.class is \"form\" then\n\t\tif widpar.ParentForm i"
& "s 0 then\n\t\t\toffsetRed := 20;\n\t\tend\n\tend;\n\tlet name = wid.nam"
& "e & \"top\";\n\tlet zname = widpar.name & \"zsplit\";\n\tlet lev = form"
& "_childIndex(f, zname, name);\n\n let nsx = computeSX(wid); (* th"
& "is mutates the name *)\n\tvar visibility = \"\";\n\t\tif wid.InitialSta"
& "te isnot \"Vanish\" then\n\t\t\tvisibility := \"Open\";\n\t\tend;\n\tle"
& "t newsx = \"(ZChild %\" & wid.name & \"top (At \" & fmt_int(wid.x) & \""
& " \"\n & fmt_int(wid.y - offsetRed) & \" NW Absol"
& "ute) \" & visibility & \"\\n \" &\n ResizeString("
& "wid) & nsx & \")\";\n\n\tform_delete(f, \tzname, name);\n\tform_insert("
& "f, zname, newsx, lev);\n\twid.SELF.VOAttachCBacks(); (* all callbacks *"
& ")\nend;\n\nlet refreshWidget = proc(wid) \n\tcheckptSX(wid);\n\trebuild"
& "Widget(wid);\nend;\n\nsys_popSilence();\n";
CONST E17 =
" (Shape %buttonatt (Height 200)\n (Radio %buRadio (Value buTChoice)\n "
& " \n (VBox \n (Glue 10)\n (Title \"Button\")\n (Glue 10)\n"
& " (BoxAround 95\n (VBox\n (HBox (Text \"Label\") (Glue"
& " 250))\n (Glue 10)\n (Choice (Color \"VeryDarkBlue\") %bu"
& "TChoice (LField \"Text :\" 250 (TypeIn (TabTo name) %buText (BgCo"
& "lor \"White\") ExpandOnDemand (Value \"Text\"))))\n (Glue 10)\n "
& " (Choice %buPChoice (Color \"VeryDarkBlue\") (LField \"Pixmap :\""
& " 250 (TypeIn (TabTo name) %buPix ExpandOnDemand (BgColor \"White\") (Va"
& "lue \"\"))))\n (Glue 10)\n ))\n \n (Glue 10)\n "
& " (HBox Fill (Boolean %buGuard \"Guard\") Fill (Boolean %buTrill \"Tri"
& "ll\") Fill ) \n Fill\n ))\n )\n";
CONST E18 =
"(* Copyright (C) 1995, Digital Equipment Corporation. *)\n(* All "
& "rights reserved. *)\n(* See the fil"
& "e COPYRIGHT for a full description. *)\n(* "
& " *)\n(* Last modified on Tue Jan "
& "10 11:46:40 PST 1995 by mhb *)\n\nvar $form$ = ok;\nvar $form$Alive"
& " = ok;\nvar $form$Instances = 0;\nvar $form$Constructor = ok;\nvar $for"
& "m$New = proc(Local) \n\t($form$Constructor.VONew)(Local);\n\t\tend;\n\n"
;
CONST E19 =
"(Filter %@filter $FilterState$\n \n (Shape %@shape (Width $XSpan$ + In"
& "f - Inf) (Height $YSpan$ + Inf - Inf)\n \n (BgColor \"$BgColor$\") "
& "(Color \"$FgColor$\")\n (Font \"$Font$\") \n \n (Frame $Fr"
& "ameStyle$ \n (Rim %@rim (Pen $RimPen$) (ShadowSize 1.5)\n ("
& "Border %@border (Pen $BorderPen$)\n\n (Numeric $HideButtons$ $Al"
& "lowEmpty$ %@\n (Value $Value$) (Min $Min$)\n (Max"
& " $Max$) \n ) \n \n \n )\n \n "
& " )\n )\n )\n )\n \n\n";
CONST E20 =
"(Filter %@filter $FilterState$\n \n (Shape %@shape (Width $XSpan$ + In"
& "f - Inf) (Height $YSpan$ + Inf - Inf)\n \n (BgColor \"$BgColor$\") "
& "(Color \"$FgColor$\")\n (Font \"$Font$\") \n \n (Frame $Fr"
& "ameStyle$ \n (Rim %@rim (Pen $RimPen$) (ShadowSize 1.5)\n ("
& "Border %@border (Pen $BorderPen$)\n \n ($typeOfBrowser$ %"
& "@ \n $quick$\n (Items $Ite"
& "ms$)\n $ValueList$ \n )\n\n )\n \n "
& " )\n )\n )\n )\n \n\n";
CONST E21 =
" (Shape %menuatt (Height 200 + Inf)\n (VBox \n (Glue 5)\n "
& " (Title \"Menu Design\")\n (Glue 5)\n\n \n (BoxAround 7"
& "5\n (VBox Fill\n (Field \"Bg Color :\" 230 (ColorField "
& "mbgctypein mbgc))\n (Field \"Fg Color :\" 230 (ColorField mfgc"
& "typein mfgc)) \n (Field \"Font :\" 230 (FontField mfonttypein"
& " mfont)) \n Fill ))\n (Glue 5)\n \n (HBox (Button ("
& "BgColor \"PalePink\") %mapply \"Apply\") Fill\n (Shape (Width"
& " 50) (LinkButton (BgColor \"VeryPaleYellow\") (For attrmain) \"Form\""
& ")))\n \n (Glue 5)\n (Title \"Menu Items\")\n (Glue 5)\n "
& "\n (HBox (LField \"Label :\" 120 (TypeIn (TabTo mname) %mlabel (BgC"
& "olor \"White\"))) (Glue 10) \n (LField \"Name :\" 150 (T"
& "ypeIn (TabTo mlabel) %mname (BgColor \"White\"))))\n (Glue 5)\n "
& " \n (Border (Pen 1)\n (Shape ("
& "Width 300 + Inf) (Height + Inf)\n (BgColor \"Whit"
& "e\")\n (Frame Lowered (Browser (Font \"-*-couri"
& "er-bold-*R-*120-*\") %menubrowser))))\n (Glue 5)\n (HBox \n "
& " (Button %maddfirst \"Add First\") Fill\n (Filter %mI"
& "temFilter Dormant \n (HBox\n (Button %mad"
& "dafter \"Add After\") Fill\n (Button %maddunder \"Add Un"
& "der\") Fill\n (Button %mdelete \"Delete\") Fill\n "
& " (Button %mreplace \"Replace\"))))\n (Glue 5)\n (HBox"
& " (RField mInitialState \"Initial State :\" (HBox (Choice %mActive Inver"
& "ting \"Active\")\n (Choice %"
& "mPassive Inverting \"Passive\")\n "
& " (Choice %mDormant Inverting \"Dormant\")\n "
& " (Choice %mVanish Inverting \"Invisible\")) 20 mAct"
& "ive 5) \n (Button %mridge \"Ridge\") Fill)\n (Glue 5)\n "
& " (Title \"Menu Item Callback\") \n (Glue 5) "
& " \n (Border (Pen 1)\n (Shape (Width 300 +"
& " Inf) (Height + Inf)\n (BgC";
CONST E21_0 =
"olor \"White\")\n (Frame Lowered (TextEdit \n "
& " (Font \"menucallback\") \n "
& " %menucallback))))\n\n (Glue 5)\n (HBox (Text \"Execute in :\""
& ") \n (RField mexechow \"\" (HBox (Choice (Color \""
& "VeryDarkBlue\") %mForeground Inverting \"Foreground\")\n "
& " (Choice (Color \"VeryDarkBlue\") %mBackgroun"
& "d Inverting \"Background\")) 20 mForeground 25)\n Fill )\n "
& " (Glue 5)\n (RField mexecwhere \"\" (HBox (Choice %mLocal (Colo"
& "r \"VeryDarkBlue\") \"Local\") (Glue 5)\n "
& " (Choice (Color \"VeryDarkBlue\") %mRemote\n "
& " (LField \"Remote :\" 500 (Filter %mremFilter "
& "Dormant (TypeIn ExpandOnDemand \n "
& " (TabTo type) %mLocation\n "
& " (BgColor \"White\")) ))\n )) 2"
& "0 Local 5)\n \n \n (Glue 5)\n))\n \n "
& " ";
CONST E22 =
"(* Copyright (C) 1995, Digital Equipment Corporation. *)\n(* All "
& "rights reserved. *)\n(* See the fil"
& "e COPYRIGHT for a full description. *)\n(* "
& " *)\n(* Last modified on Tue Jan "
& "10 11:47:02 PST 1995 by mhb *)\n\nmodule templates;\nlet Templates "
& "= {\nboolean => \"\n(Filter %@filter $FilterState$\n \n (Shape %@shape"
& " (Width $XSpan$ + Inf - Inf) (Height $YSpan$ + Inf - Inf)\n \n (BgC"
& "olor \\\"$BgColor$\\\") (Color \\\"$FgColor$\\\")\n (LabelFont \\\""
& "$Font$\\\") \n \n (Frame $FrameStyle$ \n (Rim %@rim (Pen"
& " $RimPen$) (ShadowSize 1.5)\n (Border %@border (Pen $BorderPen$)\n"
& "\n (Boolean =$initValue$ %@ $fbstyle$ \n ( $Boo"
& "leanContents$ )\n )\n \n )\n \n "
& " )\n )\n )\n )\n \n\n\",\nbrowser => \"\n(Filter %@filter $Fil"
& "terState$\n \n (Shape %@shape (Width $XSpan$ + Inf - Inf) (Height $YSp"
& "an$ + Inf - Inf)\n \n (BgColor \\\"$BgColor$\\\") (Color \\\"$FgCol"
& "or$\\\")\n (Font \\\"$Font$\\\") \n \n (Frame $FrameStyle$"
& " \n (Rim %@rim (Pen $RimPen$) (ShadowSize 1.5)\n (Border %@"
& "border (Pen $BorderPen$)\n \n ($typeOfBrowser$ %@ "
& " \n $quick$\n (Items $Items$)\n "
& " $ValueList$ \n )\n\n )\n \n )\n"
& " )\n )\n )\n \n\n\",\nbutton => \"\n(Filter %@filter $FilterSt"
& "ate$\n \n (Shape %@shape (Width $XSpan$ + Inf - Inf) (Height $YSpan$ +"
& " Inf - Inf)\n \n (BgColor \\\"$BgColor$\\\") (Color \\\"$FgColor$\\"
& "\")\n (LabelFont \\\"$Font$\\\") \n \n (Frame $FrameStyle$"
& " \n (Rim %@rim (Pen $RimPen$) (ShadowSize 1.5)\n (Border %@"
& "border (Pen $BorderPen$)\n $GuardHeader$\n ($Trill$Butt"
& "on %@\n ($ButtonContents$)\n )\n $GuardFooter$"
& "\n )\n \n )\n )\n )\n )\n \n\n\",\ncho"
& "ice => \"\n(Filter %@filter $FilterState$\n \n (Shape %@shape (Width $"
& "XSpan$ + Inf - Inf) (Height $YSpan$ + Inf - Inf)\n \n (BgColor \\\""
& "$BgC";
CONST E22_0 =
"olor$\\\") (Color \\\"$FgColor$\\\")\n (LabelFont \\\"$Font$\\\") "
& "\n \n (Frame $FrameStyle$ \n (Rim %@rim (Pen $RimPen$) (S"
& "hadowSize 1.5)\n (Border %@border (Pen $BorderPen$)\n\n ("
& "Choice =$initValue$ %@ $fbstyle$ \n ( $ChoiceContents$ "
& ")\n )\n \n )\n \n )\n )\n "
& " )\n )\n \n\n\",\nfilebrowser => \"\n(Filter %@filter $FilterState$\n"
& " \n (Shape %@shape (Width $XSpan$ + Inf - Inf) (Height $YSpan$ + Inf -"
& " Inf)\n \n (BgColor \\\"$BgColor$\\\") (Color \\\"$FgColor$\\\")\n "
& " (LabelFont \\\"$LabelFont$\\\") (Font \\\"$Font$\\\") \n\n (F"
& "rame $FrameStyle$ \n (Rim %@rim (Pen $RimPen$) (ShadowSize 1.5)\n"
& " (Border %@border (Pen $BorderPen$)\n \n (VBox\n "
& " (Glue 5)\n (HBox (Glue 5)\n (Shape\n "
& " (Width 150 + Inf - 100)\n (Height 150 + Inf - 100)\n "
& " (VBox\n (LabelFont \\\"fixed\\\")\n "
& " (DirMenu (For $fbName1$))\n (Glue 6)\n "
& " (Frame Lowered (BgColor \\\"White\\\")\n (File"
& "Browser %@ $ReadOnly$ \n (Value \\\"$Initial$\\"
& "\")\n (Suffixes $Suffixes$)\n "
& " )\n )))\n (Glue 5)\n (Shape\n "
& " (Width 50 + Inf)\n (VBox\n (Fi"
& "ll)\n (Button %@action \\\"$ActionLabel$\\\")\n "
& " (Glue 10)\n ))\n (Glue 5))\n ("
& "Glue 5)\n (HBox\n (Glue 5)\n (Shape (Wid"
& "th 30 + Inf) (Height 16) \\\"File :\\\")\n (Frame Lowered (B"
& "gColor \\\"White\\\") (Helper %@typein (For $fbName2$) (Font \\\"fixed\\"
& "\")))\n (Glue 5))\n (Glue 5))\n )\n "
& " \n )\n )\n )\n )\n \n\",\nform => \"\n(ZChild $ZChild"
& "State$ %@ \n (Filter %@filter $FilterState$ \n (Radio %@radio\n "
& " $ZSplitHeader$\n (Shape %@shape \n (Width $XSpan$ + $XStr"
& "etch$ - $XShrink$) \n (Height $YSpan$ + $YStretch$ - $YShrink$)\n"
& " ";
CONST E22_1 =
" (BgColor \\\"$BgColor$\\\") \n (Color \\\"$FgColor$\\\")\n "
& " (LabelFont \\\"$Font$\\\")\n (Rim %@rim (Pen $RimPen$) \n "
& " (Border %@border (Pen $BorderPen$)\n (VBox\n\t ("
& "Macro $TitleBar$ ()\n \'(Shape %@title (Height 20)\n "
& " (Frame $FrameStyle$ \n (BgColor \\\"$TitleBg"
& "Color$\\\") \n (Color \\\"$TitleFgColor$\\\")\n "
& " (HBox \n (Shape (Width 15) \n "
& " (CloseButton (ShadowSize 0) (Pixmap \\\"close.pbm\\\"))) \n "
& " Chisel\n (Shape (Width + 1000) \n"
& " (ZMove (ShadowSize 0) (Text %@titlestring \\\"$T"
& "itleString$\\\"))) \n Chisel \n "
& " (Shape (Width 15) \n (ZGrow (ShadowSize 0) (Pixm"
& "ap \\\"grow.pbm\\\"))))))\n\t )\n\t $IncludeTitleBar$\t\t\n "
& " $MenuStructure$\n (Text %@background \\\"\\\""
& " )))))\n $ZSplitFooter$\n))) \n\",\nframe => \"\n(Filter %"
& "@filter $FilterState$\n (Radio %@radio\n $ZSplitHeader$\n (Shape %@sha"
& "pe (Width $XSpan$ + Inf - Inf) (Height $YSpan$ + Inf - Inf)\n \n (B"
& "gColor \\\"$BgColor$\\\") (Color \\\"$FgColor$\\\")\n \n (Frame "
& "$FrameStyle$ \n (Rim %@rim (Pen $RimPen$) \n (Border %@bord"
& "er (Pen $BorderPen$)\n \n (Texture %@ \\\"$TextureFile$\\\""
& " )\n \n )\n )\n )\n )\n $ZSplitFooter$ "
& " \n )\n)\n\",\nhscroll => \"\n(Filter %@filter $FilterState$\n \n (Sh"
& "ape %@shape (Width $XSpan$ + Inf - Inf) (Height $YSpan$ + Inf - Inf)\n "
& " \n (BgColor \\\"$BgColor$\\\") (Color \\\"$FgColor$\\\")\n (Lab"
& "elFont \\\"$Font$\\\") \n \n (Frame $FrameStyle$ \n (Rim"
& " %@rim (Pen $RimPen$) (ShadowSize 1.5)\n (Border %@border (Pen $B"
& "orderPen$)\n\n (Scroller %@\n (Value $Value$) (Min $M"
& "in$)\n (Max $Max$) (Thumb $Thumb$)\n (Step $Step$"
& ")\n ) \n \n \n )\n \n )"
& "\n )\n )\n )\n \n\n\",\nmenu => \"\n(Filter %@Menu\n (Macro \n"
& " MenuItem\n BOA\n";
CONST E22_2 =
" (xFilter initState x xLabel xLabelValue)\n `(Filter %,xFilter ,i"
& "nitState\n (Menu %,x (Text %,xLabel ,xLabelValue))\n )\n ) "
& "\n (Macro \n PullDownMenuItem\n BOA\n (xFilter initState x xL"
& "abel xLabelValue pulldown)\n `(Filter %,xFilter ,initState\n "
& "(Menu %,x (Text %,xLabel ,xLabelValue)\n (Border (Pen 1)\n "
& " ,pulldown\n )\n )\n )\n ) \n\n"
& " (Macro\n MenuButton\n BOA\n (xFilter initState x xLabel xLabelVa"
& "lue )\n `(Filter %,xFilter ,initState\n (MButton %,x\n "
& "(Text %,xLabel ,xLabelValue) \n )\n )\n )\n (BgColor \\\"$"
& "MenuBgColor$\\\") (Color \\\"$MenuFgColor$\\\")\n (LabelFont \\\"$Me"
& "nuFont$\\\")\n (ShadowSize 0)\n (Border (Pen 1)\n (HBox \n"
& " $MenuItems$\n (Glue 1000)\n ) \n ) \n)\n"
& "\",\nnumeric => \"\n(Filter %@filter $FilterState$\n \n (Shape %@shape"
& " (Width $XSpan$ + Inf - Inf) (Height $YSpan$ + Inf - Inf)\n \n (BgC"
& "olor \\\"$BgColor$\\\") (Color \\\"$FgColor$\\\")\n (Font \\\"$Font"
& "$\\\") \n \n (Frame $FrameStyle$ \n (Rim %@rim (Pen $Rim"
& "Pen$) (ShadowSize 1.5)\n (Border %@border (Pen $BorderPen$)\n\n "
& " (Numeric $HideButtons$ $AllowEmpty$ %@\n (Value $Value"
& "$) (Min $Min$)\n (Max $Max$) \n ) \n \n "
& " \n )\n \n )\n )\n )\n )\n \n\n\",\n"
& "text => \"\n(Filter %@filter $FilterState$\n \n (Shape %@shape (Width "
& "$XSpan$ + Inf - Inf) (Height $YSpan$ + Inf - Inf)\n \n (BgColor \\\""
& "$BgColor$\\\") (Color \\\"$FgColor$\\\")\n (LabelFont \\\"$Font$\\\""
& ") \n \n (Frame $FrameStyle$ \n (Rim %@rim (Pen $RimPen$)"
& " (ShadowSize 1.5)\n (Border %@border (Pen $BorderPen$)\n\n "
& " (Text $Alignment$ %@ \\\"$Initial$\\\")\n \n )\n "
& " \n )\n )\n )\n )\n \n\n\",\ntextedit => \"\n(Filter"
& " %@filter $FilterState$\n \n (Shape %@shape (Width $XSpan$ + Inf - Inf"
& ") (Height $YSpan$ + Inf - Inf)\n \n (BgColor \\\"$BgColor$\\\") (Co"
& "lor \\\"$FgColor$\\\")\n (Font \\\"$Font$\\\") \n \n (Fram"
& "e $FrameStyle$ \n ";
CONST E22_3 =
" (Rim %@rim (Pen $RimPen$) (ShadowSize 1.5)\n (Border %@border "
& "(Pen $BorderPen$)\n\n (TextEdit %@ $ReadOnly$ $Clip$ $NoScrollba"
& "r$\n ($Initial$)\n )\n \n )\n "
& " \n )\n )\n )\n )\n \n\n\",\ntypein => \"\n(Filter %@"
& "filter $FilterState$\n \n (Shape %@shape (Width $XSpan$ + Inf - Inf) ("
& "Height $YSpan$ + Inf - Inf)\n \n (BgColor \\\"$BgColor$\\\") (Color"
& " \\\"$FgColor$\\\")\n (Font \\\"$Font$\\\") \n \n (Frame $"
& "FrameStyle$ \n (Rim %@rim (Pen $RimPen$) (ShadowSize 1.5)\n "
& " (Border %@border (Pen $BorderPen$)\n\n (TypeIn %@ $ReadOnly$ $E"
& "xpandOnDemand$\n (Value \\\"$Initial$\\\")\n )\n "
& " \n )\n \n )\n )\n )\n )\n \n\n\","
& "\nvideo => \"\n(Filter %@filter $FilterState$\n \n (Shape %@shape (Wid"
& "th $XSpan$ + Inf - Inf) (Height $YSpan$ + Inf - Inf)\n \n (BgColor "
& "\\\"$BgColor$\\\") (Color \\\"$FgColor$\\\")\n (Font \\\"$Font$\\\""
& ") \n \n (Frame $FrameStyle$ \n (Rim %@rim (Pen $RimPen$)"
& " (ShadowSize 1.5)\n (Border %@border (Pen $BorderPen$)\n (TSp"
& "lit %@toggle =$PlayVideo$\n (Audio %@audio =\\\"$AudioSource$\\"
& "\" (Volume $Volume$)\n\t\t$Mute$ $IgnoreMapping$\n (Video %@"
& " \n\t\t(Quality $Quality$)\n\t\t(Width $Width$) (Height $Height$)\n\t\t"
& "(Colors $Colours$) (MSecs $MSecs$)\n\t\t$Synchronous$ $FixedSize$ $Paus"
& "ed$\n\t\t\\\"$VideoSource$\\\"\n\t\t)\n )\n\t(Text \\\"\\\")\n "
& " )\n \n )\n \n )\n )\n )\n "
& ")\n \n\n\",\nvscroll => \"\n(Filter %@filter $FilterState$\n \n (Shap"
& "e %@shape (Width $XSpan$ + Inf - Inf) (Height $YSpan$ + Inf - Inf)\n \n"
& " (BgColor \\\"$BgColor$\\\") (Color \\\"$FgColor$\\\")\n (LabelF"
& "ont \\\"$Font$\\\") \n \n (Frame $FrameStyle$ \n (Rim %@"
& "rim (Pen $RimPen$) (ShadowSize 1.5)\n (Border %@border (Pen $Bord"
& "erPen$)\n\n (Scroller Vertical %@ \n (Value $Value$) "
& "(Min $Min$)\n (Max $Max$) (Thumb $Thumb$)\n (Step"
& " $Step$)\n ) \n \n \n )\n \n "
& " )\n )\n )\n )\n \n\n\",\n};\n";
CONST E23 =
"(Filter %@filter $FilterState$\n \n (Shape %@shape (Width $XSpan$ + In"
& "f - Inf) (Height $YSpan$ + Inf - Inf)\n \n (BgColor \"$BgColor$\") "
& "(Color \"$FgColor$\")\n (LabelFont \"$Font$\") \n \n (Fram"
& "e $FrameStyle$ \n (Rim %@rim (Pen $RimPen$) (ShadowSize 1.5)\n "
& " (Border %@border (Pen $BorderPen$)\n\n (Scroller Vertical %@"
& " \n (Value $Value$) (Min $Min$)\n (Max $Max$) (Th"
& "umb $Thumb$)\n (Step $Step$)\n ) \n \n "
& " \n )\n \n )\n )\n )\n )\n \n\n";
CONST E24 =
" (Shape %booleanatt (Height 200)\n \n (VBox \n (Glue 10)\n "
& "(Title \"Boolean\")\n (Glue 10)\n (HBox Fill (Shape (Width 10"
& "0) (Boolean %boInitial \"Initial Value\")) Fill)\n (Glue 10)\n "
& " (BoxAround 50\n (HBox (RField Booleanfbs \"Feedback Style :\" \n "
& " (VBox (Glue 5) (Choice %BCheckBox CheckBox \"Check Box\")\n "
& " (Choice %BCheckMark CheckMark \"Check Mark\")\n "
& " (Choice %BInverting Inverting \"Inverting\")\n "
& " (Glue 5)\n ) 45 Active 5) Fill))\n (Glue 10)\n "
& " (Radio %boRadio\n (BoxAround 95\n (VBox\n (HBox (T"
& "ext \"Label\") (Glue 250))\n (Glue 10)\n (Choice (Color "
& "\"VeryDarkBlue\") %boTChoice (LField \"Text :\" 250 (TypeIn (TabT"
& "o boPix) %boText (BgColor \"White\") ExpandOnDemand (Value \"Choice\"))"
& "))\n (Glue 10)\n (Choice %boPChoice (Color \"VeryDarkBlue"
& "\") (LField \"Pixmap :\" 250 (TypeIn (TabTo name) %boPix ExpandOnDemand"
& " (BgColor \"White\") (Value \"\"))))\n (Glue 10)\n )))\n "
& " Fill\n \n )\n )\n";
CONST E25 =
"(Filter %@filter $FilterState$\n (Radio %@radio\n $ZSplitHeader$\n (Sh"
& "ape %@shape (Width $XSpan$ + Inf - Inf) (Height $YSpan$ + Inf - Inf)\n "
& " \n (BgColor \"$BgColor$\") (Color \"$FgColor$\")\n \n (Frame"
& " $FrameStyle$ \n (Rim %@rim (Pen $RimPen$) \n (Border %@bor"
& "der (Pen $BorderPen$)\n \n (Texture %@ \"$TextureFile$\" )"
& "\n \n )\n )\n )\n )\n $ZSplitFooter$ "
& "\n )\n)\n";
CONST E26 =
" (Shape %typeinatt (Height 200)\n (VBox \n (Glue 10)\n (Title"
& " \"Type In\")\n (Glue 10)\n (HBox (Boolean %tyReadOnly \"Read O"
& "nly\") Fill (Boolean %tyExpand \"Expand On Demand\"))\n (Glue 10)\n"
& " (LField \"Initial Value :\" 150 (TypeIn (TabTo name) %tyInit (BgCo"
& "lor \"White\") (Value \"Text\")))\n Fill\n \n )\n )\n";
CONST E27 =
"\tEditing the Session Constructor\n\t*******************************\n\n"
& "What is the Session Constructor ?\n---------------------------------\n\n"
& "The Session Constructor is a procedure that causes a host to join a ses"
& "sion. It creates the forms needed by the host to be part of the session"
& ". Think of it as a ticket that allows a host to join the session. A hos"
& "t wishing to join a session can either import the session constructor f"
& "rom a known repository or be handed the session constructor by a peer h"
& "ost.\n\nConfiguring the Session Constructor\n--------------------------"
& "---------\n\nThe Session Constructor gets executed at all hosts includi"
& "ng the server. Shown below is the session constructor for your program."
& " You may edit this to configure the start-up process. You can use HOSTN"
& "AME, SERVERSITE and SERVERNAME to create forms conditionally.\n\nSERVER"
& "SITE is a flag that is set only at the\n server site \n\nHOS"
& "TNAME is the name of the host that will be\n \t executing this proc"
& "edure.\n\nSERVERNAME is the HOSTNAME of the server.\n\nLOCAL is bo"
& "und to the local Visual Obliq\n library, which contains usefu"
& "l methods\n that get executed at the local host.\n\nCreation "
& "of forms :-\n\nTo create one instance of a form named \'foo\' use \n\t\n"
& "\tfooNew(LOCAL);\t\n\nCreating one instance of each form :-\n\nTo creat"
& "e one instance of each form defined by you use\n\n\tCreateEachFormOnce("
& "LOCAL);\n\nThe default session constructor creates one instance of each"
& " form defined at each site.\n\n\n";
CONST E28 =
" (Shape %filebrowseratt (Height 200)\n (VBox \n (Glue 8)\t\n "
& " (Title \"File Browser\")\n (Glue 8)\n (Field \"Label Font :\" 20"
& "0 (FontField fbLFtypein fbLF)) \t\n \n (Glue 8)\n (HBox (Sh"
& "ape (Width 90) (Boolean %fbReadOnly \"Read Only\")) (Glue 5)\n "
& " (LField \"Action Label :\" 200\n (TypeIn ExpandOnDeman"
& "d (TabTo fbVal) %fbActionLabel (BgColor \"White\"))) )\n (Glue 5)"
& " \n (LField \"Value :\" 250\n (TypeIn ExpandOnDemand (Ta"
& "bTo fbVal) %fbVal (BgColor \"White\"))) \n (Glue 5)\n\n (HBox "
& "(Radio %fbModes (Value fbNoSuffixes)\n (Shape (Width 100)"
& "\n (VBox Fill\n (LinkButton (For"
& " fbBlank) (ShadowSize 0.01)\n (LinkButton (For f"
& "bPage2) \n (Choice (ShadowSize 1) %fbNoSuf"
& "fixes Inverting \"No Suffixes\")))\n (LinkButton "
& "(For fbEdit) (ShadowSize 0.01) \n (LinkButton"
& " (For fbPage1) \n (Choice (ShadowSize 1) %fbAdd"
& "Suffixes Inverting \"Use Suffixes\")))\n Fill\n "
& " )\n )\n )\n (Glue "
& "10) \n (TSplit %fbSuffixesToolkit (Which fbPage2)\n "
& " (Border %fbPage1 (Pen 1) (Color \"VeryDarkBlue\")\n "
& " (VBox (Glue 5)\n (HBox (Glue 5) \n "
& " (Button %fbAddFirst \"Add First\") Fill\n "
& " (Filter %fbFilter\n "
& " (HBox\n (Button %fbAddAfter \"Add Af"
& "ter\") Fill\n (Button %fbDelete \"Delete"
& "\"))) Fill\n )\n (Glue 5)"
& "\n (LField \"Item to Insert :\" 300 (TypeIn Expand"
& "OnDemand (BgColor \"White\") %fbItem ))\n )\n "
& " )\n (Text %fbPage2 \" \")\n )\n )\n\n"
& "\n (Glue 10)\n (TSplit %fbEditSuffixes (Which fbBlank)\n (V"
& "Box %fbEdit\n (Fr";
CONST E28_0 =
"ame Lowered (Shape (BgColor \"VeryLightPink\") (Color \"VeryDarkBlue\")"
& " (Height 15)\n (Text \"Suffixes\")))\n (Bor"
& "der (Pen 1)\n (Rim (Pen 1) (Browser (BgColor \"VeryLightPin"
& "k\") %fbSuffixes))\n ) \n ) \n (Text %fbBlank \""
& " \")\n )\n \n \n )\n )\n";
CONST E29 =
"(* This file was automatically generated by the\t*)\n(* \t\t\t\t\t\t"
& "\t*)\n(*\t\t VisualObliq Dialog Editor \t \t*)\n(*\t \t VERSI"
& "ON 3.0 \t \t*)\n(* Krishna Bharat/Marc H Brown/Luca Cardel"
& "li \t*)\n\n(* You may edit the $name$.New procedure to configure *)\n"
& "(* the start up process *)\n\n\n(* Copy"
& "right (C) 1993, Digital Equipment Corporation \t*)\n(* All rights reser"
& "ved. \t\t\t\t\t\t\t*)\n(* See the file COPYRIGHT for a full description"
& ". \t *)\n(* \t\t\t\t\t\t\t\t\t\t\t *)\n(* You should not have to"
& " edit this file manually *)\n\nmodule $name$;\n\nvar allForms"
& " = [];\nvar migrateTo = 0;\n(* to allow you to migrate to a remote rece"
& "iver *)\n\nvar installAt = 0;\n(* to allow you to create remote client"
& "s *)\n\n$Definition$ (* if not bundled this goes to \'load \"$name$DEFN"
& ".obl\";\' \n\t\t\t else the definitions are inlined *)\n\t\t \nlet SE"
& "RVERNAME = sys_address; \n(* So that everyone knows the server name *)\n"
& "\nlet CreateEachFormOnce = proc(LOCAL)\n\t$initForms$\nend;\n\n\n\nlet "
& "$name$ = \n { New => proc(LOCAL)\t\n\n\t let HOSTNAME = LOCAL.HOSTN"
& "AME;\n\t let SERVERSITE = text_equal(SERVERNAME, HOSTNAME);\n\t "
& " \n\t (* This procedure is the Global Session Constructor, and will"
& " *)\n \t (* be executed by all sites including the ser"
& "ver site, at *)\n\t (* start up\t\t\t\t\t\t"
& "\t *)\n\n\t (* You"
& " may edit this section to configure the start-up process "
& "*)\n\t (* You can use HOSTNAME, SERVERSITE and SERVERNAME to "
& " *)\n\t (* create forms conditionally.\t\t\t\t\t \t \t \t "
& " *)\n\n\t (* SERVERSITE is a flag that is set only at the server site"
& " \t\t *)\n\t (* HOSTNAME is the name of the host that will b"
& "e executing this \t *)\n \t (* procedure\t\t\t\t\t\t\t \t\t\t\t"
& "\t\t *)\n\t (* SERVERNAME is the HOSTNAME of the server "
& " \t\t *)\n\t (* \t\t\t\t\t\t\t\t \t\t\t\t\t\t *)"
& "\n\t (* Creation of forms : "
& "\t\t\t\t\t *)\n\t (* To create ";
CONST E29_0 =
"1 instance of the form named \'foo\' use \t\t\t *)\n\t (*"
& " \tfooNew(LOCAL);\t\t\t\t\t\t \t \t \t\t\t *)\n\t (* To create"
& " 1 instance of each form use CreateEachFormOnce(LOCAL) *)\n\t (* e.g. "
& "to create one instance of $egform$ you will use \t\t\t*)\n\t "
& "(* $egform$New(LOCAL); \t\t\t\t \t\t\t\t\t*)\n \t \t\n\t "
& " (* -----------------------START------------------------- *)\n\n\n\t "
& " $SessionConstCode$\n\n\n\n\n\n\n\n\t (* ------------------------END--"
& "----------------------- *)\n\t end\t\n };\n\n\n(* LOCAL is a hand"
& "le to the local context, which includes the support *)\n(* procedures"
& " used to implement operations on widgets. This mechanism *)\n(* ensur"
& "es that operations that may be done locally are done so *)\n(* "
& "You will not need to use this handle except while creating forms as *)"
& "\n(* described earlier\t\t\t\t\t\t\t*)\n\nnet_export(\"$name$\", \"\", "
& "$name$);\n\ninstallAt := proc(site)\n try\n\t\tlet vos = ne"
& "t_import(\"vos\", site);\n\t vos.Install($name$.New, \"$name$\")"
& ";\n\t\ttrue\n\t except else\n\t \tfalse\n end\n "
& " end;\n\n(* Now you can say installAt(\"somemachine.pa.dec.com\""
& ") *)\n\n($name$.New)(volibLocal);\n(* This executes the constructor at "
& "the server site *)\n\n(* Any code that is to be executed at the server "
& "site only\n may be placed after this *"
& ")\n\n$ServerSideCode$\n\nmodule migrate;\n\nlet packFormList = proc(fli"
& "st)\n try\n\tif flist isnot 0 then\n\t\tforeach frm in flist do\n\t\t"
& "\tif (frm isnot ok) and (frm isnot 0) then\n\t\t\t(* is a valid form ho"
& "pefully *)\n\t\t\t\tfrm.VOPackUp();\n\t\t\tend;\n\t\tend;\n\tend;\n "
& "except\n else\n end;\nend;\n\nlet unpackFormList = proc(flist)\n "
& " try\n\tif flist isnot 0 then\n\t\tforeach frm in flist do\n\t\t\tif "
& "(frm isnot ok) and (frm isnot 0) then\n\t\t\t(* is a valid form hopeful"
& "ly *)\n\t\t\t\tfrm.VOUnpack();\n\t\t\tend;\n\t\tend;\n\tend;\n excep"
& "t\n else\n end;\nend;\n\n\n\nlet agent = proc(contin, local) "
& " \n contin(local);\nend;\n\nvar continuation = 0;\n\nmigrateTo "
& ":= proc(dest)\n\ttry\n\t\tlet atsite = net_importEngine(\"VOReceiver";
CONST E29_1 =
"\", dest);\n\t\tforeach formlist in allForms do\n\t\t\tpackFormList(for"
& "mlist());\n\t\tend;\n \tatsite(proc(arg) agent(copy(continuation"
& "), arg) end);\n\t\ttrue\n\texcept else\n\t\tfalse\n\tend \nend;\n\n\nco"
& "ntinuation := proc (local)\n\tforeach formlist in allForms do\n\t\tunpa"
& "ckFormList(formlist());\n\tend;\t\t\t\nend;\n\n";
CONST E30 =
"(Filter %@filter $FilterState$\n \n (Shape %@shape (Width $XSpan$ + In"
& "f - Inf) (Height $YSpan$ + Inf - Inf)\n \n (BgColor \"$BgColor$\") "
& "(Color \"$FgColor$\")\n (LabelFont \"$Font$\") \n \n (Fram"
& "e $FrameStyle$ \n (Rim %@rim (Pen $RimPen$) (ShadowSize 1.5)\n "
& " (Border %@border (Pen $BorderPen$)\n\n (Text $Alignment$ %@ "
& "\"$Initial$\")\n \n )\n \n )\n )\n"
& " )\n )\n \n\n";
CONST E31 =
"(Filter %@filter $FilterState$\n \n (Shape %@shape (Width $XSpan$ + In"
& "f - Inf) (Height $YSpan$ + Inf - Inf)\n \n (BgColor \"$BgColor$\") "
& "(Color \"$FgColor$\")\n (LabelFont \"$Font$\") \n \n (Fram"
& "e $FrameStyle$ \n (Rim %@rim (Pen $RimPen$) (ShadowSize 1.5)\n "
& " (Border %@border (Pen $BorderPen$)\n\n (Choice =$initValue$"
& " %@ $fbstyle$ \n ( $ChoiceContents$ )\n )\n "
& " \n )\n \n )\n )\n )\n )\n \n\n";
CONST E32 =
" (Shape %scrolleratt (Height 200)\n (VBox \n (Glue 10)\n (Tit"
& "le \"Scroller\")\n (Glue 5)\n (BoxAround 90\n (VBox \n "
& " (Glue 5)\n (HBox (Field \"Min :\" 150 (Numeric (TabTo scrM"
& "ax) %scrMin ))\n Fill\n (Field \"Max :\""
& " 150 (Numeric (TabTo scrThu) %scrMax )))\n (Glue 5)\n (H"
& "Box (Field \"Thumb :\" 150 (Numeric (TabTo scrStep) %scrThu ))\n "
& " Fill\n (Field \"Step :\" 150 (Numeric (TabT"
& "o scrVal) %scrStep )))\n (Glue 5)\n ( HBox Fill (Field \""
& "Value :\" 150 (Numeric (TabTo scrStep) %scrVal ))\n Fi"
& "ll Fill)\n (Glue 5)\n ))\n Fill\n )\n )\n";
CONST E33 =
"(* Copyright (C) 1995, Digital Equipment Corporation. *)\n(* All "
& "rights reserved. *)\n(* See the fil"
& "e COPYRIGHT for a full description. *)\n(* "
& " *)\n(* Last modified on Tue Jan "
& "10 11:46:53 PST 1995 by mhb *)\n\n(\nprocess_new(processor, [\"/pro"
& "j/mips/bin/netobjd\"], true);\nprocess_new(processor, [\"/proj/alpha/bi"
& "n/netobjd\"], true);\n);";
CONST E34 =
"(ZChild %buildpopup FixedHV\n\n (ZSplit %buildformzsplit\n (ZBackground"
& " %buildformzback\n \n (Shape %buildformshape (Width 324 + 0 - 0) (Hei"
& "ght 168 + 0 - 0)\n \n (BgColor \"Grey81\") (Color \" Black\")\n "
& " (LabelFont \"-*-helvetica-bold-*R-*120-*\")\n \n \n \n (R"
& "im %buildformrim (Pen 1) \n (Border %buildformborder (Pen 1)\n "
& " \n (VBox\n \n (Shape %buildformtitle (Height"
& " 20)\n (Frame Raised \n (BgColor \"VerySlight"
& "lyReddishGrey74\") (Color \"Black\")\n\n\n\n (HBox (Shape"
& " (Width 15) (CloseButton (ShadowSize 0) \n (Pixmap \"close.pbm\")))"
& " Chisel\n (Shape (Width + 1000) (ZMove (ShadowSize"
& " 0) (Text %buildformtitlestring \"Specify Program Name and Destination\""
& "))) \n Chisel (Shape (Width 15) (ZGrow (ShadowSize 0) "
& "(Pixmap \"grow.pbm\"))) )\n \n \n "
& " ))\n \n (Texture %buildformbackground "
& "\"blank.pbm\" )\n \n \n )\n ))\n"
& " )\n \n )\n(ZChild (At 12 34 NW Absolute) Open\n \n \n (Shape %"
& "text1shape (Width 100 + Inf - 20) (Height 22 + Inf - 20)\n \n (BgCo"
& "lor \"SlightlyYellowishGrey74\") (Color \"Black\")\n (LabelFont \"-"
& "*-helvetica-medium-*R-*120-*\") \n \n (Frame Chiseled \n "
& " (Rim %text1rim (Pen 0) (ShadowSize 1.5)\n (Border %text1border ("
& "Pen 0)\n\n (Text Center %text1 \"Program Name\")\n \n "
& " )\n \n )\n )\n \n )\n \n\n\n )\n(ZChil"
& "d (At 120 34 NW Absolute) Open\n \n \n (Shape %prognameshape (Width "
& "185 + Inf - 20) (Height 22 + Inf - 20)\n \n (BgColor \"SlightlyYell"
& "owishGrey92\") (Color \"Black\")\n (Font \"-*-courier-bold-*R-*120-"
& "*\") \n \n (Frame Lowered \n (Rim %prognamerim (Pen 0) ("
& "ShadowSize 1.5)\n (Border %prognameborder (Pen 1)\n\n (Typ"
& "eIn %progname (TabTo destdir) ExpandOnDemand\n (Value \"\")\n"
& " )\n \n )\n \n )\n )\n "
& "\n )\n \n\n\n )\n(ZChild (At 12 71 NW Absolute) Open\n \n";
CONST E34_0 =
" \n (Shape %text2shape (Width 293 + Inf - 20) (Height 22 + Inf - 20)\n"
& " \n (BgColor \"SlightlyYellowishGrey74\") (Color \"Black\")\n ("
& "LabelFont \"-*-helvetica-medium-*R-*120-*\") \n \n (Frame Chis"
& "eled \n (Rim %text2rim (Pen 0) (ShadowSize 1.5)\n (Border %"
& "text2border (Pen 0)\n\n (Text Center %text2 \"Directory To Build"
& " In\")\n \n )\n \n )\n )\n \n )\n"
& " \n\n\n )\n(ZChild (At 8 112 NW Absolute) Open\n \n \n (Shape %d"
& "estdirshape (Width 297 + Inf - 20) (Height 22 + Inf - 20)\n \n (BgC"
& "olor \"SlightlyYellowishGrey92\") (Color \"Black\")\n (Font \"-*-co"
& "urier-bold-*R-*120-*\") \n \n (Frame Lowered \n (Rim %de"
& "stdirrim (Pen 0) (ShadowSize 1.5)\n (Border %destdirborder (Pen 1"
& ")\n\n (TypeIn %destdir (TabTo progname) ExpandOnDemand\n "
& " (Value \"\")\n )\n \n )\n \n "
& " )\n )\n \n )\n \n\n\n )\n(ZChild (At 131 142 NW Absolut"
& "e) Open\n \n \n (Shape %buildbtnshape (Width 50 + Inf - 20) (Height 1"
& "9 + Inf - 20)\n \n (BgColor \"RatherYellowishGrey92\") (Color \"Bla"
& "ck\")\n (LabelFont \"-*-helvetica-bold-*R-*120-*\") \n \n "
& "(Frame (ShadowSize 0) \n (Rim %buildbtnrim (Pen 0) (ShadowSize 1."
& "5)\n (Border %buildbtnborder (Pen 1)\n \n (CloseB"
& "utton (For buildpopup) %buildbtn\n (Text %buildbtntext \"Buil"
& "d\")\n )\n \n )\n \n )\n )"
& "\n \n )\n \n\n\n )\n)\n \n \n)\n";
CONST E35 =
"(Filter %@Menu\n (Macro \n MenuItem\n BOA\n (xFilter initState"
& " x xLabel xLabelValue)\n `(Filter %,xFilter ,initState\n (Men"
& "u %,x (Text %,xLabel ,xLabelValue))\n )\n ) \n (Macro \n PullD"
& "ownMenuItem\n BOA\n (xFilter initState x xLabel xLabelValue pulld"
& "own)\n `(Filter %,xFilter ,initState\n (Menu %,x (Text %,xLab"
& "el ,xLabelValue)\n (Border (Pen 1)\n ,pul"
& "ldown\n )\n )\n )\n ) \n\n (Macro\n MenuButton"
& "\n BOA\n (xFilter initState x xLabel xLabelValue )\n `(Filter %,x"
& "Filter ,initState\n (MButton %,x\n (Text %,xLabel ,xLabel"
& "Value) \n )\n )\n )\n (BgColor \"$MenuBgColor$\") (Color \""
& "$MenuFgColor$\")\n (LabelFont \"$MenuFont$\")\n (ShadowSize 0)\n "
& " (Border (Pen 1)\n (HBox \n $MenuItems$\n "
& " (Glue 1000)\n ) \n ) \n)\n";
CONST E36 =
"(* Copyright (C) 1995, Digital Equipment Corporation. *)\n(* All "
& "rights reserved. *)\n(* See the fil"
& "e COPYRIGHT for a full description. *)\n(* "
& " *)\n(* Last modified on Tue Jan "
& "10 11:46:34 PST 1995 by mhb *)\n\nallForms := allForms @ [proc() $f"
& "orm$ end];\n\n$form$Constructor := \n(* one instance of this exists and"
& " only at the server site *)\n(* this is a synchronized object "
& " *)\n{serialized,\n VORegister => meth(s, newinstance)"
& "\n\t\t (* this is a critical section *)\n\t\t if $form$Instances is"
& " 0 then\n\t\t\t$form$ := [newinstance];\n\t\t\t$form$Alive := [true];\n"
& "\t\t\t$form$Instances := 1;\n\t\t\t0\n\t\t else\n\t\t let indx = $f"
& "orm$Instances;\n \t\t newinstance.INDEX := indx;\n\t\t $form$Alive"
& " := $form$Alive @ [true];\n\t $form$ := $form$ @ [newinstance"
& "]; \t\n\t\t $form$Instances := indx + 1;\n\t\t (* now the new ob"
& "ject is globally visible *)\n\t\t indx\n end\n\t\ten"
& "d,\n\n\n VONew => proc(LOCAL)\n\t\t\n(* this has to be a procedure be"
& "cause it needs to be done at the client site *)\n\n\n var SELF = 0;\n"
& " var VOInstance = 0;\n VOInstance := \n{ \t \nFORM => 0,\nINDEX "
& "=> 0, (* set in Register *)\n \n(* Support Code *)\t\n$Suppo"
& "rtCode$ \n\n(* Object Definitions *)\n$object-definitions$\n\n(* Callba"
& "cks *)\n$callbacks$\n\n(* Attachments *)\nVOAttachCBacks => meth(SELF)\n"
& "$Attachments$\nok\nend,\n\nVOCompute => meth(s, procedure)\n "
& " procedure(SELF);\n\t\tok\n\t end,\n\nVOPackUp => meth(s)\n\t"
& "s.$form$.hide();\n\t(* checkpt and hide form *)\nend,\n\nVOUnpack => me"
& "th(s)\n\ts.$form$.show();\nend,\n };\n\nSELF := VOInstance;\n\n(* Creat"
& "e the UI *)\nSELF.FORM := form_new(computeSX(SELF.$form$));\n\n\n(* Att"
& "ach callbacks for the first time *)\nSELF.VOAttachCBacks();\n\n(* Initi"
& "alization Code *)\n$InitializationCode$\n\n\t form_show(SELF.FORM);\n\n"
& "\t $form$Constructor.VORegister(VOInstance);\n end\n };\n\n";
CONST E37 =
"P1\n# CREATOR: XV Version 3.00 Rev: 3/30/93\n19 16\n0 0 0 0 0 0 0 0 0 "
& "0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 0 \n0 0 0 0 0 0 0 0 1"
& " 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 \n0 1 0 0 0 0 0 0 "
& "0 0 1 1 1 1 0 1 0 1 1 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 \n0 0 0 0 1 0 0 0"
& " 0 0 0 0 0 1 0 1 0 1 1 1 0 1 0 1 0 0 0 0 0 0 0 0 1 0 0 \n0 0 0 0 0 0 0 "
& "1 0 0 0 0 0 0 0 0 1 0 1 1 0 1 1 1 1 0 1 0 0 0 0 0 0 0 0 \n1 0 0 0 0 0 0"
& " 0 0 0 1 0 0 0 0 0 0 0 0 1 0 1 1 1 1 0 1 1 0 1 0 0 0 0 0 \n0 0 0 1 0 0 "
& "0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 \n0 0 0 0 0 0"
& " 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 \n0 0 0 0 0 "
& "0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ";
CONST E38 =
"(Filter %@filter $FilterState$\n \n (Shape %@shape (Width $XSpan$ + In"
& "f - Inf) (Height $YSpan$ + Inf - Inf)\n \n (BgColor \"$BgColor$\") "
& "(Color \"$FgColor$\")\n (LabelFont \"$Font$\") \n \n (Fram"
& "e $FrameStyle$ \n (Rim %@rim (Pen $RimPen$) (ShadowSize 1.5)\n "
& " (Border %@border (Pen $BorderPen$)\n\n (Boolean =$initValue"
& "$ %@ $fbstyle$ \n ( $BooleanContents$ )\n )\n "
& " \n )\n \n )\n )\n )\n )\n \n\n";
CONST E39 =
" (Shape %frameatt (Height 200)\n (VBox \n (Glue 10)\n (Title "
& "\"Frame\")\n (Glue 10)\n (LField \"Texture :\" 150 (TypeIn (T"
& "abTo name) %frametexture (BgColor \"White\") (Value \"Blank\")))\n "
& " Fill\n )\n )\n";
CONST E40 =
"(* Copyright (C) 1995, Digital Equipment Corporation. *)\n(* All "
& "rights reserved. *)\n(* See the fil"
& "e COPYRIGHT for a full description. *)\n(* "
& " *)\n(* Last modified on Tue Jan "
& "10 11:47:17 PST 1995 by mhb *)\n\n(* Mandatory Include for all Visu"
& "al Obliq Programs *)\n\n(* Naming Convention for Online Listing within "
& "the VO Editor : \n\n A comment that begins/ends with \":\" contains t"
& "he signature of an additional volib proc.\n A comment that begins/e"
& "nds with \"=\" contains the name of a widget-class\n and may be follo"
& "wed by one or more method signatures.\n A comment that begins/ends wi"
& "th \"-\" contains the signature of a method\n and is associated with t"
& "he last widget-class name seen.\n Null method signatures are ignored."
& "\n*)\n\nmodule volib;\n\nsys_pushSilence();\n(* assert - must begin wit"
& "h a \\n\' *)\nlet unpkList = proc(s)\n\tlet ar = text_explode(\"\\n\", "
& "s);\n\tlet n = #(ar) -1; \n\tarray_sub(ar, 1, n);\nend;\n\nlet pkList ="
& " proc(ar)\n\tlet n = text_implode(\'\\n\', ar);\n\tn;\nend;\n\nlet voli"
& "bLocal = {\n\n HOSTNAME => sys_address,\n \n Join => ok,\n\n"
& " (*: LoadFile(filename:text) returns text :*)\n LoadFile => meth(s, f"
& "ilename)\n let r = rd_open(fileSys, filename);\n let contents = r"
& "d_getText(r, rd_length(r));\n rd_close(r);\n contents\n end,\n"
& "\n (*: SaveFile(t:text, f:filename) returns boolean :*)\n SaveFile =>"
& " meth(s, t, filename)\n try\n let w = wr_open(fileSys, filena"
& "me);\n wr_putText(w, t);\n wr_close(w);\n true;\n "
& " except else\n false;\n end\n end,\n\n(*= boolean "
& " =*)\n booleanNew => meth(s, n)\n {\n SELF => 0,\n form ="
& "> 0, \n name => n,\n class => \"boolean\",\n\n (* Generic Attr"
& "ibutes *)\n parent => 0,\n\n x => 0, y => 0, width =>0, height =>"
& "0, BgColor =>\"\", FgColor => \"\",\n Font => \"\", Rim => 0, Border"
& " => 0, Embellishment => \"\",\n InitialState => \"\", ResizeModel =>"
& " \"\", \t\n\n (* Widget Attributes *)\n tex";
CONST E40_0 =
"tLabel => true, textString=>\"\", \n pixmap => \"\", initialValue ="
& "> false, feedbackStyle => \"\",\n\n (*- getValue() returns boolean -"
& "*)\n getValue => meth(s) \n form_getBoolean(s.form, s.name) end,"
& "\n (*- setValue(booleanval) -*)\n setValue => meth(s, val) \n "
& " \ts.textLabel := val; \n\tform_putBoolean(s.form, s.name, val); ok "
& "end,\t\n (*- setLabel(tx:text) -*)\n setLabel => meth(s, val) \t\n"
& "\ts.textString := val;\n \tform_putText(s.form, s.name & \"text\","
& " \"\", val, false); ok end,\n (*- makeDormant() -*)\n makeDormant"
& " => meth(s) \n s.InitialState := \"Dormant\";\n form_putReacti"
& "vity(s.form, s.name & \"filter\", \"dormant\"); ok end,\n (*- makePa"
& "ssive() -*)\n makePassive => meth(s) \n s.InitialState := \"Pass"
& "ive\";\n form_putReactivity(s.form, s.name & \"filter\", \"passive"
& "\"); ok end,\n (*- makeActive() -*)\n makeActive => meth(s) \n "
& " s.InitialState := \"Active\";\t\n form_putReactivity(s.form, s."
& "name & \"filter\", \"active\"); \n form_popUp(s.form, s.name & \"t"
& "op\");\n ok end,\n (*- makeInvisible() -*)\n makeInvisible ="
& "> meth(s) \n s.InitialState := \"Vanish\";\n refreshWidget( s"
& ");\n \tok end, \n (*- -*)\n } \n end,\n\n(*= browser "
& " =*)\n browserNew => meth(s, n)\n { \n SELF => 0,\n form => 0,"
& " \n name => n,\n class => \"browser\",\n\n (* Generic Attributes "
& "*)\t\n parent => 0,\n\n x => 0, y => 0, width =>0, height =>0, Bg"
& "Color =>\"\", FgColor => \"\",\n Font => \"\", Rim => 0, Border => 0"
& ", Embellishment => \"\",\n InitialState => \"\", ResizeModel => \"\""
& ", \n \n (* Widget Attributes *)\n Quick => false, Multiplicity => fa"
& "lse, Contents => [],\n Selections => [], Selection => -1, (* not guar"
& "anteed to be up to date *)\n\n (*- numElements() returns integer -*)"
& "\n numElements => meth(s)\n\t#(s.getElements());\n end,\n \n "
& " (*- getElements() returns [text] -*)\n getElements => meth(s)\n\tco"
& "py(s.Contents);\n end,\n \n (*- putElements(elems:[text]) -*)\n "
& " putElements => meth(s, ar)\n\ts.Contents := copy(ar);\n\ts.Select";
CONST E40_1 =
"ions := [];\n\ts.Selection := -1;\n\tform_putText(s.form, s.name, \"Ite"
& "ms\", pkList(s.Contents), false);\n\tok\n end,\n\n (*- getElement(a"
& "tPosition:integer) returns text -*)\n getElement => meth(s, n)\n\ts.C"
& "ontents[n];\n end,\n (*- isQuick() returns boolean -*)\n isQuick "
& "=> meth(s)\n\ts.Quick;\n end,\n (*- setQuickness(q:boolean) -*)\n "
& " setQuickness => meth(s, q)\n\ts.Quick := q;\n\trefreshWidget(s);\n e"
& "nd,\n (*- putElement(atPosition:integer, elem:text) -*)\n putElemen"
& "t => meth(s, n, el)\n\ts.Contents[n] := el;\n\t(* update array *)\n\tfo"
& "rm_putText(s.form, s.name, \"Items\", pkList(s.Contents), false);\n\ts"
& ".getSelection(); (* to checkpoint selected items *)\n\tif s.Multiplicit"
& "y then\n\t\tforeach i in s.Selections do\n\t\t\tform_putText(s.form, s."
& "name, \"SelectAlso\", s.Contents[i], false);\n\t\tend;\n\telse\n\t\tif "
& "s.Selection isnot -1 then\n\t\t\tform_putText(s.form, s.name, \"Select\""
& ", s.Contents[s.Selection], false);\n\t\tend;\n\tend;\n\tok\n end,\n\n"
& " (*- appendElement(elem:text) -*)\n appendElement => meth(s, el)\n\t"
& "s.Contents := s.Contents @ [el];\n\ts.putElement(#(s.Contents) - 1, el)"
& ";\n\tok\n end,\n\n (*- prependElement(elem:text) -*)\n prependElemen"
& "t => meth(s, el)\t\n\ts.insertElement(0, el);\n\tok\n end,\t\n\n (*- "
& "deleteElement(atPosition:integer) returns boolean -*)\n deleteElement "
& "=> meth(s, n)\n\ttry\n\t\tlet ar = s.getElements();\n\t\tlet sz = #(ar)"
& ";\n\t\tlet newar = array_sub(ar, 0, n) @ array_sub(ar, n+1, (sz-n)-1);\n"
& "\t\ts.putElements(newar);\t\t\t\t\n\t\ttrue;\n\texcept\t\n\telse\n\t\tf"
& "alse;\n\tend; \n end,\n\n (*- insertElement(atPosition:integer, elem:t"
& "ext) returns boolean -*)\n insertElement =>meth(s, n, el)\n\ttry\n\t\t"
& "let ar = s.Contents;\n\t\tlet sz = #(ar);\n\t\ts.Contents := array_sub("
& "ar, 0, n) @ [el] @ array_sub(ar, n, (sz-n));\n\t\t(* update selections"
& " *)\n\t\ts.getSelection(); (* to checkpoint selected items *)\n\t\tif s"
& ".Multiplicity then\n\t\t\tfor i = 0 to #(s.Selections) do\n\t\t\t\tif s"
& ".Selections[i] >= n then\n\t\t\t\t\ts.Selections[i] := s.Selections[i]+"
& "1;\n\t\t\t\tend \n\t\t\tend;\n\t\telse\n\t\t\tif s.Selection >= n then\n"
& "\t\t\t\ts.Selection := s.Selection + 1;\n\t\t\tend;\n\t\tend";
CONST E40_2 =
";\t\t\t\t\n\t\ts.putElements(n, el);\n\t\ttrue;\n\texcept\n\telse\t\n\t"
& "\tfalse;\n\tend; \n end,\n\n (*- selectString(st:text) -*)\n (*-\t in"
& "crementalif not present turns off all -*)\n selectString =>meth(s, st)"
& "\n\tvar op = \"Select\";\n\tif s.Multiplicity then\n\t\tforeach i in s."
& "Contents do \n\t\t\tif i is st then\t\n\t\t\t\top := \"SelectAlso\";\n\t"
& "\t\tend;\n\t\tend;\n\tend;\n\tform_putText(s.form, s.name, op, st, fals"
& "e);\n\tok;\n end,\n\n\n(*- getSelection() returns selection(s) as text"
& " -*)\n(*- \t with \'\\n\' seperators -*)\n getSelection =>meth(wid)\t"
& "\n\tlet sel = form_getText(wid.form, wid.name, \"Select\");\n\t(* check"
& "point selections - side effect *)\n\tif wid.Multiplicity then\t\n\t\t\t"
& "\twid.Selections :=[];\n\t\t\t\tforeach item in wid.getSelItems() do\n\t"
& "\t\t\t\tfor i = 0 to #(wid.Contents) - 1 do\n\t\t\t\t\t\tif item is wid"
& ".Contents[i] then\n\t\t\t\t\t\t\twid.Selections := wid.Selections @ [i]"
& ";\n\t\t\t\t\t\tend;\n\t\t\t\t\tend;\n\t\t\t\tend;\n\t\t\telse\n\t\t\t\t"
& "wid.Selection := -1;\n\t\t\t\tif sel isnot \"\" then\n\t\t\t\t\tfor i "
& "= 0 to #(wid.Contents) - 1 do\n\t\t\t\t\t\tif sel is wid.Contents[i] th"
& "en\n\t\t\t\t\t\t\twid.Selection := i\n\t\t\t\t\t\tend;\n\t\t\t\t\tend;\n"
& "\t\t\t\tend;\n\t\t\tend;\n\tsel\n end,\n\n (*- getSelItems() returns "
& "array of text -*)\n getSelItems =>meth(s)\t\n\tlet sel = form_getText"
& "(s.form, s.name, \"Select\");\n\tif sel is \"\" then\n\t\t[]\n\telse\n\t"
& "\tunpkList(\"\\n\" & sel);\n\tend;\n end,\t\n\n (*- toggleMultiplic"
& "ity() switches between Uni/Multi browser-*)\n toggleMultiplicity =>me"
& "th(s)\t\n\tcheckptSX(s);\n\ts.Multiplicity := not(s.Multiplicity);\n\tr"
& "ebuildWidget( s);\n\tok\n end,\t\n (*- makeDormant() -*)\n makeD"
& "ormant => meth(s) \n s.InitialState := \"Dormant\";\n form_put"
& "Reactivity(s.form, s.name & \"filter\", \"dormant\"); ok end,\n (*- "
& "makePassive() -*)\n makePassive => meth(s) \n s.InitialState := "
& "\"Passive\";\n form_putReactivity(s.form, s.name & \"filter\", \"p"
& "assive\"); ok end,\n (*- makeActive() -*)\n makeActive => meth(s)"
& " \n s.InitialState := \"Active\";\t\n form_putReactivity(s.fo"
& "rm, s.name & \"filter\", \"active\"); \n form_popUp(s.form, s.name"
& " & \"top\");\n ok end,\n (*- makeInvisible() -*)\n m";
CONST E40_3 =
"akeInvisible => meth(s) \n s.InitialState := \"Vanish\";\n re"
& "freshWidget( s);\n \tok end,\n (*- -*)\n } \n end,\n\n (*= button"
& " =*)\n buttonNew => meth(s, n)\n { \n SELF => 0,\n form => 0, \n"
& " name => n,\n class => \"button\",\n\n (* Generic Attributes *"
& ")\n parent => 0,\n\n x => 0, y => 0, width =>0, height =>0, BgCol"
& "or =>\"\", FgColor => \"\",\n Font => \"\", Rim => 0, Border => 0, E"
& "mbellishment => \"\",\n InitialState => \"\", ResizeModel => \"\", \n"
& "\n (* Widget Attributes *)\n textLabel => true, textString => \"\","
& " pixmap => \"\",\n Guard => false, Trill => false,\n\n (*- makeDor"
& "mant() -*)\n makeDormant => meth(s) \n s.InitialState := \"Dorma"
& "nt\";\n form_putReactivity(s.form, s.name & \"filter\", \"dormant\""
& "); ok end,\n (*- makePassive() -*)\n makePassive => meth(s) \n "
& " s.InitialState := \"Passive\";\n form_putReactivity(s.form, s.na"
& "me & \"filter\", \"passive\"); ok end,\n (*- makeActive() -*)\n m"
& "akeActive => meth(s) \n s.InitialState := \"Active\";\t\n for"
& "m_putReactivity(s.form, s.name & \"filter\", \"active\"); \n form_"
& "popUp(s.form, s.name & \"top\");\n ok end,\n (*- makeInvisible("
& ") -*)\n makeInvisible => meth(s) \n s.InitialState := \"Vanish\""
& ";\n refreshWidget( s);\n \tok end,\n \n (*- putText(tx:te"
& "xt) -*)\n putText => meth(s, val) \t\n s.textString := val;\t\n"
& " if not (s.textLabel) then\n\ts.textLabel := true;\n\trefreshWidge"
& "t( s);\n else\n\tform_putText(s.form, s.name & \"text\", \"\", val"
& ", false); \n end;\n ok end,\n (*- putBgColor(clr:text) -*)\n "
& " putBgColor => meth(s, val) \t\n s.BgColor := val;\n form_p"
& "utText(s.form, s.name & \"text\", \"BgColor\", val, false); ok end,\n "
& " (*- getText() returns text -*)\n getText => meth(s) \n\ts.textStri"
& "ng\n end,\n (*- putPixmap(filename:text) -*)\n putPixmap => met"
& "h(s, val) \t\n s.pixmap := val;\n if s.textLabel then\n\ts.te"
& "xtLabel := false;\n\trefreshWidget( s);\n else\n\tform_putText(s.f"
& "orm, s.name & \"pixmap\", \"\", val, false); \n end;\n ok end,"
& "\n (*- ";
CONST E40_4 =
"-*)\n } \n end,\n\n (*= choice =*)\n choiceNew => meth(s, n)\n { "
& "\n SELF => 0,\n form => 0, \n name => n,\n class => \"choic"
& "e\",\n\n (* Generic Attributes *)\n parent => 0,\n\n x => 0, y "
& "=> 0, width =>0, height =>0, BgColor =>\"\", FgColor => \"\",\n Font"
& " => \"\", Rim => 0, Border => 0, Embellishment => \"\",\n InitialSta"
& "te => \"\", ResizeModel => \"\", \n\n (* Widget Attributes *)\n "
& "textLabel => true, textString => \"\", pixmap => \"\", \n initialVal"
& "ue => false, feedbackStyle => \"CheckBox\", \n \n \n (*- getValue()"
& " returns boolean -*)\n getValue => meth(s) \n form_getBoolean(s"
& ".form, s.name) end,\n (*- setValue(booleanval) -*)\n setValue => "
& "meth(s, val) \n form_putBoolean(s.form, s.name, val); ok end,\n "
& " (*- setLabel(tx:text) -*)\n setLabel => meth(s, val) \n s.text"
& "String := val;\t\n form_putText(s.form, s.name & \"text\", \"\", v"
& "al, false); ok end,\n (*- makeDormant() -*)\n makeDormant => met"
& "h(s) \n s.InitialState := \"Dormant\";\n form_putReactivity(s."
& "form, s.name & \"filter\", \"dormant\"); ok end,\n (*- makePassive()"
& " -*)\n makePassive => meth(s) \n s.InitialState := \"Passive\";\n"
& " form_putReactivity(s.form, s.name & \"filter\", \"passive\"); ok "
& "end,\n (*- makeActive() -*)\n makeActive => meth(s) \n s.Ini"
& "tialState := \"Active\";\t\n form_putReactivity(s.form, s.name & \""
& "filter\", \"active\"); \n form_popUp(s.form, s.name & \"top\");\n "
& " ok end,\n (*- makeInvisible() -*)\n makeInvisible => meth(s)"
& " \n s.InitialState := \"Vanish\";\n refreshWidget( s);\n \t"
& "ok end, \n (*- -*)\n } \n end,\n\n (*= filebrowser =*)\n filebro"
& "wserNew => meth(s, n)\n { \n SELF => 0,\n form => 0, \n nam"
& "e => n,\n class => \"filebrowser\",\n\n (* Generic Attributes *)\n"
& " parent => 0,\n\n x => 0, y => 0, width =>0, height =>0, BgColor "
& "=>\"\", FgColor => \"\",\n Font => \"\", Rim => 0, Border => 0, Embe"
& "llishment => \"\",\n InitialState => \"\", ResizeModel => \"\", \n\n"
& " (* Widget Attributes *)\n LabelFont => \"\", ReadOnly => false,\n"
& " V";
CONST E40_5 =
"alue => \".\", Suffixes => [], ActionLabel => \"\",\n\n (*- getFilen"
& "ame() returns text -*)\n getFilename => meth(s) \n form_getText"
& "(s.form, s.name, \"\") end, \n\n (*- setFilename(fnm:text) -*)\n "
& " setFilename => meth(s, fnm) \n form_putText(s.form, s.name, \"\""
& ",fnm, false ); ok end, \n\n (*- setActionLabel(lab:text) -*)\n "
& " setActionLabel => meth(s, lab)\n\ts.ActionLabel := lab;\n\trefreshWi"
& "dget( s);\n\tok end,\n (*- makeDormant() -*)\n makeDormant => m"
& "eth(s) \n s.InitialState := \"Dormant\";\n form_putReactivity("
& "s.form, s.name & \"filter\", \"dormant\"); ok end,\n (*- makePassive"
& "() -*)\n makePassive => meth(s) \n s.InitialState := \"Passive\""
& ";\n form_putReactivity(s.form, s.name & \"filter\", \"passive\"); "
& "ok end,\n (*- makeActive() -*)\n makeActive => meth(s) \n s."
& "InitialState := \"Active\";\t\n form_putReactivity(s.form, s.name "
& "& \"filter\", \"active\"); \n form_popUp(s.form, s.name & \"top\")"
& ";\n ok end,\n (*- makeInvisible() -*)\n makeInvisible => met"
& "h(s) \n s.InitialState := \"Vanish\";\n refreshWidget( s);\n "
& " \tok end,\t \n (*- -*)\n } \n end,\n\n (*= form =*)\n formNe"
& "w => meth(s, n)\n { \n SELF => 0,\n form => 0, \n name => n,"
& "\n class => \"form\",\n\n (* Generic Attributes *)\n parent => "
& "0,\n\n x => 0, y => 0, width =>0, height =>0, BgColor =>\"\", FgColo"
& "r => \"\",\n Font => \"\", Rim => 0, Border => 0, Embellishment => \""
& "\",\n InitialState => \"\", ResizeModel => \"\", \t\n\n (* Split "
& "Attributes *)\n Texture => \"\", children => [],\n\n (* Form Attr"
& "ibutes *)\n ParentForm => 0, ChildForms => [],\n HasMenu => false"
& ", MenuBgColor => \"\", MenuFgColor => \"\",\n MenuFont => \"\", Menu"
& " => [],\n TitleBgColor => \"\", TitleFgColor => \"\",\n TitleStr"
& "ing => \"\", StretchX => 0, StretchY => 0,\n ShrinkX => 0, ShrinkY "
& "=> 0,\n\n CheckpointedXY => false, (* if false pops up in default po"
& "sition *)\n \n (*- show(), shows form (toplevel or anchored)-*)\n "
& " show => meth(s) \n if s.ParentForm is 0 then\n\tif s.form is 0 t"
& "hen";
CONST E40_6 =
"\n\t\ts.SELF.FORM := form_new(computeSX(s));\n\t\ts.SELF.VOAttachCBacks"
& "(); \n\t\tform_show(s.form);\n\tend\n else\n\t s.popUp();\n "
& " end;\n ok end,\n (*- hide(), hides form (toplevel or anchored) -*"
& ")\n hide => meth(s) \n if s.ParentForm is 0 then\n\tif s.form "
& "isnot 0 then\n\t checkptSX(s);\n\t form_hide(s.form); \n "
& " \t s.SELF.FORM := 0;\n\tend\n else \n\t s.close(); \n "
& " end;\n ok end,\n (*- putTitleString(titstr:text) -*)\n pu"
& "tTitleString => meth(s, val)\n s.TitleString := val;\n form_p"
& "utText(s.form, s.name & \"titlestring\", \"\", val, false); ok end,\n "
& " (*- putBgColor(clr:text) -*)\n putBgColor => meth(s, val) \t\n "
& " s.BgColor := val;\n form_putText(s.form, s.name & \"background\""
& ", \"BgColor\", val, false); ok \n end,\n (*- getText() returns "
& "text -*)\n getText => meth(s) \n form_getText(s.form, s.name & "
& "\"titlestring\", \"\") end,\n (*- popUp(), shows anchored form -*)\n"
& " popUp => meth(s)\n form_popUp(s.form, s.name); \n form_pu"
& "tReactivity(s.form, s.name & \"filter\", \"active\"); \n ok end,\n"
& " (*- close(), hides anchored form -*)\n close => meth(s) \n "
& "form_popDown(s.form, s.name); ok end,\n (*- hasSelectedChoice() retu"
& "rns boolean -*)\n hasSelectedChoice => meth(s)\n\ttry\n\t s.getCho"
& "ice(); true;\n except else false end;\n end,\t \n (*- ge"
& "tChoice() : text, exception if none selected. -*)\n (*- - return val"
& "ue is name of choice, not label -*)\n getChoice => meth(s)\n \tform_"
& "getChoice(s.form, s.name & \"radio\") end,\n (*- putChoice(textnam"
& "e:text), exception if nonexistent -*)\n (*- - \ttextname is the n"
& "ame(not label) of the choice -*)\n putChoice => meth(s, item)\n \tfo"
& "rm_putChoice(s.form, s.name & \"radio\", item); ok\n end,\t\n (*-"
& " -*)\n } \n end,\n\n (*= frame =*)\n frameNew => meth(s, n)\n { \n"
& " SELF => 0,\n form => 0, \n name => n,\n class => \"frame\""
& ",\n\n (* Generic Attributes *)\n parent => 0,\n\n x => 0, y =>"
& " 0, width =>0, height =>0, BgColor =>\"\", FgColor => \"\"";
CONST E40_7 =
",\n Font => \"\", Rim => 0, Border => 0, Embellishment => \"\",\n "
& " InitialState => \"\", ResizeModel => \"\", \t\n\n Texture => \"\", "
& "children => 0,\t\n\n (*- hasSelectedChoice() returns boolean -*)\n "
& " hasSelectedChoice => meth(s)\n\ttry\n\t s.getChoice(); true;\n "
& " except else false end;\n end,\t \n (*- getChoice() returns te"
& "xt, raises exception if unselected -*)\n (*- -\tThe return value is "
& "the name of the choice, not its label -*)\n getChoice => meth(s)\n \t"
& "form_getChoice(s.form, s.name & \"radio\") end,\n (*- putChoice(tex"
& "tname: text), raises exception if nonexistant -*)\n (*- - \ttextname"
& " is a text containing the name (not label) of the choice -*)\n putCh"
& "oice => meth(s, item)\n \tform_putChoice(s.form, s.name & \"radio\", it"
& "em); ok\n end,\t\n (*- makeActive() -*)\n makeActive => meth(s"
& ") \n s.InitialState := \"Active\";\t\n form_putReactivity(s.f"
& "orm, s.name & \"filter\", \"active\"); \n form_popUp(s.form, s.nam"
& "e & \"top\");\n ok end,\n (*- makeInvisible() -*)\n makeInvi"
& "sible => meth(s) \n s.InitialState := \"Vanish\";\n refreshWi"
& "dget( s);\n \tok end,\n \n (*- -*)\n } \n end,\n\n (*= hscro"
& "ll =*)\n hscrollNew => meth(s, n)\n { \n SELF => 0,\n form => "
& "0, \n name => n,\n class => \"hscroll\",\n\n (* Generic Attribu"
& "tes *)\n parent => 0,\n\n x => 0, y => 0, width =>0, height =>0, "
& "BgColor =>\"\", FgColor => \"\",\n Font => \"\", Rim => 0, Border =>"
& " 0, Embellishment => \"\",\n InitialState => \"\", ResizeModel => \""
& "\", \n\n (* Widget Attributes *)\n Min => 0, Max => 0, Val => 0,\n "
& " Thumb => 0, Step => 0,\n\n (*- getValue() returns integer -*)\n "
& "getValue => meth(s) \n form_getInt(s.form, s.name , \"\") end,\n "
& " (*- getMin() returns integer -*)\n getMin => meth(s) \n form_"
& "getInt(s.form, s.name , \"Min\") end,\n (*- getMax() returns integer"
& " -*)\n getMax => meth(s) \n form_getInt(s.form, s.name , \"Max\""
& ") end,\n (*- setValue(val) -*)\n setValue => meth(s, val) \n "
& " form_putInt(s.form, s.name , \"\", val); ok end,\n (*- setMi";
CONST E40_8 =
"n(minval) -*)\n setMin => meth(s, val) \n\ts.Min := val;\n form"
& "_putInt(s.form, s.name , \"Min\", val); ok end,\n (*- setMax(maxval)"
& " -*)\n setMax => meth(s, val) \n\ts.Max := val;\n form_putInt("
& "s.form, s.name , \"Max\", val); ok end,\n (*- -*)\n } \n end,\n\n"
& " (*= menuitem =*)\n menuItemNew => meth(s, l, n, lev, initst)\n { "
& "\n SELF => 0,\n form => 0, \n Label => l,\n name => n,\n "
& " class => \"menuItem\",\n\n Level => lev,\n initialState => inits"
& "t,\n\n (*- setLabel(tx:text) -*)\n setLabel => meth(s, val) \t\n\t"
& "s.Label := val;\n form_putText(s.form, s.name & \"Label\", \"\", v"
& "al, false); ok end,\n (*- makeDormant() -*)\n makeDormant => meth"
& "(s) \n s.InitialState := \"Dormant\";\n form_putReactivity(s.f"
& "orm, s.name & \"filter\", \"dormant\"); ok end,\n (*- makePassive() "
& "-*)\n makePassive => meth(s) \n s.InitialState := \"Passive\";\n"
& " form_putReactivity(s.form, s.name & \"filter\", \"passive\"); ok "
& "end,\n (*- makeActive() -*)\n makeActive => meth(s) \n s.Ini"
& "tialState := \"Active\";\t\n form_putReactivity(s.form, s.name & \""
& "filter\", \"active\"); ok end,\n (*- makeInvisible() -*)\n makeI"
& "nvisible => meth(s) \n s.InitialState := \"Vanish\";\t\n form"
& "_putReactivity(s.form, s.name & \"filter\", \"vanished\"); ok end,\n "
& "(*- -*)\n } \n end,\n\n (*= numeric =*)\n numericNew => meth(s, n)"
& "\n { \n SELF => 0,\n form => 0, \n name => n,\n class => \""
& "numeric\",\n\n (* Generic Attributes *)\n parent => 0,\n\n x =>"
& " 0, y => 0, width =>0, height =>0, BgColor =>\"\", FgColor => \"\",\n "
& " Font => \"\", Rim => 0, Border => 0, Embellishment => \"\",\n Init"
& "ialState => \"\", ResizeModel => \"\", \n\n (* Widget Attributes *)\n"
& " AllowEmpty => false, HideButtons => false,\n Min => 0, Max => 0, V"
& "al => 0, \n\n (*- getValue() returns integer -*)\n getValue => met"
& "h(s) \n form_getInt(s.form, s.name , \"\") end,\n (*- getMin() "
& "returns integer -*)\n getMin => meth(s) \n form_getInt(s.form, "
& "s.name , \"Min\") end,\n (*- getMax() returns integer -*)\n get";
CONST E40_9 =
"Max => meth(s) \n form_getInt(s.form, s.name , \"Max\") end,\n "
& "(*- setValue(val) -*)\n setValue => meth(s, val) \n form_putInt"
& "(s.form, s.name , \"\", val); ok end,\n (*- setMin(minval) -*)\n "
& " setMin => meth(s, val)\n\ts.Min := val; \n form_putInt(s.form, s."
& "name , \"Min\", val); ok end,\n (*- setMax(maxval) -*)\n setMax "
& "=> meth(s, val) \n s.Max := val;\n form_putInt(s.form, s.name"
& " , \"Max\", val); ok end,\n (*- -*)\n } \n end,\n\n(*= text =*) \n"
& " textNew => meth(s, n)\n { \n SELF => 0,\n form => 0, \n na"
& "me => n,\n class => \"text\",\n\n (* Generic Attributes *)\n pa"
& "rent => 0,\n\n x => 0, y => 0, width =>0, height =>0, BgColor =>\"\""
& ", FgColor => \"\",\n Font => \"\", Rim => 0, Border => 0, Embellishm"
& "ent => \"\",\n InitialState => \"\", ResizeModel => \"\", \n\n (*"
& " Widget Attributes *)\n tOrientation => \"Center\", tVal => \"\",\n\n"
& " (*- getText() returns text -*)\n getText => meth(s) \n form"
& "_getText(s.form, s.name, \"\") end,\n (*- putText(val:text) -*)\n "
& " putText => meth(s, val) \n s.tVal := val;\n form_putText(s.fo"
& "rm, s.name, \"\", val, false); ok end,\n (*- appendText(val:text) -*"
& ")\n appendText => meth(s, val) \n\ts.tVal := s.tVal @ val;\n fo"
& "rm_putText(s.form, s.name, \"\", val, true); ok end,\n (*- putBgColo"
& "r(clr:text) -*)\n putBgColor => meth(s, val) \n\ts.BgColor := val;\n"
& " form_putText(s.form, s.name, \"BgColor\", val, false); ok end,\n "
& " (*- putFgColor(clr:text) -*)\n putFgColor => meth(s, val) \n\ts.F"
& "gColor := val;\n form_putText(s.form, s.name, \"FgColor\", val, fa"
& "lse); ok end,\n (*- putValue(intval:integer) -*)\n putValue => me"
& "th(s, val) \n var v = ok; \n try v := fmt_int(val) except els"
& "e v := \"\" end;\n\ts.tVal := v;\n form_putText(s.form, s.name, \""
& "\", v, false); \n ok end,\n (*- makeActive() -*)\n makeActi"
& "ve => meth(s) \n s.InitialState := \"Active\";\t\n form_putRe"
& "activity(s.form, s.name & \"filter\", \"active\"); \n form_popUp(s"
& ".form, s.name & \"top\");\n ok end,\n (*- makeInvis";
CONST E40_10 =
"ible() -*)\n makeInvisible => meth(s) \n s.InitialState := \"Va"
& "nish\";\n refreshWidget( s);\n \tok end,\t \n (*- -*)\n }"
& "\n end,\n\n(*= textedit =*) \n texteditNew => meth(s, n)\n { \n "
& "SELF => 0,\n form => 0, \n name => n,\n class => \"textedit\","
& "\n\n (* Generic Attributes *)\n parent => 0,\n\n x => 0, y => 0"
& ", width =>0, height =>0, BgColor =>\"\", FgColor => \"\",\n Font => "
& "\"\", Rim => 0, Border => 0, Embellishment => \"\",\n InitialState ="
& "> \"\", ResizeModel => \"\", \n\n (* Widget Attributes *)\n teRead"
& "Only => false, teClip => false, teHasScrollbar => true,\n teContents"
& " => \"\", teFromFile => \"\", getFromFile => false,\n \n (*- getT"
& "ext() returns text -*)\n getText => meth(s) \n form_getText(s.f"
& "orm, s.name, \"\") end,\n (*- putText(t:text) -*)\n putText => me"
& "th(s, val) \n form_putText(s.form, s.name, \"\", val, false); ok e"
& "nd,\n (*- appendText(t:text) -*)\n appendText => meth(s, val) \n "
& " form_putText(s.form, s.name, \"\", val, true); ok end,\n (*- fl"
& "ush() -*)\n flush => meth(s) \n form_putText(s.form, s.name, \""
& "\", \"\", false); ok end,\n (*- makeDormant() -*)\n makeDormant"
& " => meth(s) \n s.InitialState := \"Dormant\";\n form_putReacti"
& "vity(s.form, s.name & \"filter\", \"dormant\"); ok end,\n (*- makePa"
& "ssive() -*)\n makePassive => meth(s) \n s.InitialState := \"Pas"
& "sive\";\n form_putReactivity(s.form, s.name & \"filter\", \"passiv"
& "e\"); ok end,\n \n (*- putBgColor(clr:text) -*)\n putBgColor =>"
& " meth(s, val) \t\n\ts.BgColor := val;\n form_putText(s.form, s.nam"
& "e, \"BgColor\", val, false); ok end,\n (*- putFgColor(clr:text) -*)"
& "\n putFgColor => meth(s, val) \n s.FgColor := val;\n form_"
& "putText(s.form, s.name, \"FgColor\", val, false); ok end,\n(*- makeActi"
& "ve() -*)\n makeActive => meth(s) \n s.InitialState := \"Active\""
& ";\t\n form_putReactivity(s.form, s.name & \"filter\", \"active\");"
& " \n form_popUp(s.form, s.name & \"top\");\n ok end,\n (*- mak"
& "eInvisible() -*)\n makeInvisible => meth(s) \n s.Initial";
CONST E40_11 =
"State := \"Vanish\";\n refreshWidget( s);\n \tok end,\n (*- -"
& "*)\n }\n end,\n\n(*= typein =*)\n typeinNew => meth(s, n)\n { \n "
& " SELF => 0,\n form => 0, \n name => n,\n class => \"typein\","
& "\n\n (* Generic Attributes *)\n parent => 0,\n\n x => 0, y => "
& "0, width =>0, height =>0, BgColor =>\"\", FgColor => \"\",\n Font =>"
& " \"\", Rim => 0, Border => 0, Embellishment => \"\",\n InitialState "
& "=> \"\", ResizeModel => \"\", \n\n (* Widget Attributes *)\n tyR"
& "eadOnly => false, tyExpand => false, tyInit => \"\",\n\n \n (*- pu"
& "tText(t:text) -*)\n putText => meth(s, val) \n form_putText(s.f"
& "orm, s.name, \"\", val, false); ok end,\n (*- appendText(t:text) -*)"
& "\n appendText => meth(s, val) \n form_putText(s.form, s.name, \""
& "\", val, true); ok end,\n (*- getText() returns text -*)\n getTex"
& "t => meth(s) \n form_getText(s.form, s.name, \"\") end,\n (*- fl"
& "ush() -*)\n flush => meth(s) \n form_putText(s.form, s.name, \""
& "\", \"\", false); ok end,\n\n(*- makeDormant() -*)\n makeDormant => "
& "meth(s) \n s.InitialState := \"Dormant\";\n form_putReactivity"
& "(s.form, s.name & \"filter\", \"dormant\"); ok end,\n (*- makePassiv"
& "e() -*)\n makePassive => meth(s) \n s.InitialState := \"Passive\""
& ";\n form_putReactivity(s.form, s.name & \"filter\", \"passive\"); "
& "ok end,\n (*- makeActive() -*)\n makeActive => meth(s) \n s."
& "InitialState := \"Active\";\t\n form_putReactivity(s.form, s.name "
& "& \"filter\", \"active\"); \n form_popUp(s.form, s.name & \"top\")"
& ";\n ok end,\n (*- makeInvisible() -*)\n makeInvisible => met"
& "h(s) \n s.InitialState := \"Vanish\";\n refreshWidget( s);\n "
& " \tok end,\n \n\n (*- putBgColor(clr:text) -*)\n putBgColor ="
& "> meth(s, val) \t\n\ts.BgColor := val;\n form_putText(s.form, s.na"
& "me, \"BgColor\", val, false); ok end,\n (*- putFgColor(clr:text) -*"
& ")\n putFgColor => meth(s, val) \n s.FgColor := val;\n form"
& "_putText(s.form, s.name, \"FgColor\", val, false); ok end, \n }\n en"
& "d,\n\n(*= vscroll =*)\n vscrollNew => meth(s, n)\n { \n SELF => 0"
& ",";
CONST E40_12 =
"\n form => 0, \n name => n,\n class => \"vscroll\",\n\n (* G"
& "eneric Attributes *)\n parent => 0,\n\n x => 0, y => 0, width =>0"
& ", height =>0, BgColor =>\"\", FgColor => \"\",\n Font => \"\", Rim ="
& "> 0, Border => 0, Embellishment => \"\",\n InitialState => \"\", Res"
& "izeModel => \"\", \n \n (* Widget Attributes *)\n Min => 0, Max =>"
& " 0, Val => 0,\n Thumb => 0, Step => 0,\n\n (*- getValue() returns i"
& "nteger -*)\n getValue => meth(s) \n form_getInt(s.form, s.name "
& ", \"\") end,\n (*- getMin() returns integer -*)\n getMin => meth("
& "s) \n form_getInt(s.form, s.name , \"Min\") end,\n (*- getMax()"
& " returns integer -*)\n getMax => meth(s) \n form_getInt(s.form,"
& " s.name , \"Max\") end,\n (*- setValue(val) -*)\n setValue => met"
& "h(s, val) \n form_putInt(s.form, s.name , \"\", val); ok end,\n "
& " (*- setMin(minval) -*)\n setMin => meth(s, val) \n\ts.Min := val;\n"
& " form_putInt(s.form, s.name , \"Min\", val); ok end,\n (*- setM"
& "ax(maxval) -*)\n setMax => meth(s, val) \n\ts.Max := val;\n fo"
& "rm_putInt(s.form, s.name , \"Max\", val); ok end,\n (*- -*)\n } \n"
& " end,\n\n(*= video =*)\n videoNew => meth(s, n)\n { \n SELF => 0"
& ",\n form => 0, \n name => n,\n class => \"video\",\n\n (* Ge"
& "neric Attributes *)\n parent => 0,\n\n x => 0, y => 0, width =>0,"
& " height =>0, BgColor =>\"\", FgColor => \"\",\n Font => \"\", Rim =>"
& " 0, Border => 0, Embellishment => \"\",\n InitialState => \"\", Resi"
& "zeModel => \"\", \n\n (* Widget Attributes *)\n Source => \"\", "
& "Quality => 0, Width => 0, Height => 0,\n Colours => 0, MSecs => 0, "
& "Synchronous => false,\n FixedSize => false, Paused => false,\n \n "
& " AuSource => \"\", Volume => 0, Mute => false, \n IgnoreMapping => "
& "false,\n\n (*- setQuality(val:integer) returns boolean -*)\n setQ"
& "uality => meth(s, val) \t\t\n try\n form_putInt(s.form, s.name"
& ", \"Quality\", val); \n true\n except else false end\n en"
& "d,\n (*- setWidth(wid:integer) -*)\n setWidth => meth(s, val) \t\t"
& "\n form_putInt(s.form, s.name, \"Width\", val); ok end,\n (*-";
CONST E40_13 =
" setSource(src:text) returns ok -*)\n setSource => meth(s, src)\n\ts"
& ".AuSource := src;\n \ts.Source := src; refreshWidget( s); ok end,\n"
& " (*- setHeight(ht:integer) -*)\n setHeight => meth(s, val) \t\t\t\n"
& " form_putInt(s.form, s.name, \"Height\", val); ok end,\n (*- set"
& "FramesPerSec(fps:integer) -*)\n setFramesPerSec => meth(s, val) \t\t"
& "\t\n form_putInt(s.form, s.name, \"MSecs\", (1000 /val)); ok end,\n"
& " (*- setVolume(v:integer) returns boolean -*)\n setVolume => meth("
& "s, val) \t\t\n try\t\n \tform_putInt(s.form, s.name & \"audio"
& "\" , \"Volume\", val);\n\ttrue\n except else\n\tfalse\n end\n"
& " end, \n (*- setMute(onoff:boolean) -*)\n setMute => meth(s,"
& " val)\n\tform_putBool(s.form, s.name & \"audio\" , \"Mute\", val);\t\n "
& " ok end,\n (*- setIgnoreMapping(onoff:boolean) -*)\n setI"
& "gnoreMapping => meth(s, val)\n\tform_putBool(s.form, s.name & \"audio\""
& " , \"IgnoreMapping\", val);\t\n ok end,\n (*- setSynchronous"
& "(onoff:boolean) -*)\n setSynchronous => meth(s, val)\n\tform_putB"
& "ool(s.form, s.name, \"Synchronous\", val);\t\n ok end,\n (*-"
& " setPaused(onoff:boolean) -*)\n setPaused => meth(s, val)\n\tform_"
& "putBool(s.form, s.name, \"Paused\", val);\t\n ok end,\n (*- "
& "setFixedSize(onoff:boolean) -*)\n setFixedSize => meth(s, val)\n\t"
& "form_putBool(s.form, s.name, \"FixedSize\", val);\t\n ok end,\n "
& " (*- makeActive() -*)\n makeActive => meth(s) \n s.InitialS"
& "tate := \"Active\";\t\n form_putReactivity(s.form, s.name & \"filt"
& "er\", \"active\"); \n form_popUp(s.form, s.name & \"top\");\n "
& " ok end,\n (*- makeInvisible() -*)\n makeInvisible => meth(s) \n "
& " s.InitialState := \"Vanish\";\n refreshWidget( s);\n \tok "
& "end,\n \n (*- -*)\n } \n end,\n\n(* placeholders for restricte"
& "d access procs *)\nprocessNew => ok,\nrdOpen => ok,\nwrOpen => ok,\nw"
& "rOpenAppend => ok\n};\n\n\n(* Some useful procedures that will be copie"
& "d into volibLocal\n in cases where the computation needs to happen l"
& "ocally *)\n\n(*: Join(ssn:text, host:text) returns boolean :*)";
CONST E40_14 =
"\nlet Join = proc(ssn, host) \n try\n let sessionConst = net_import"
& "(ssn, host);\n (sessionConst.New)(volibLocal);\n true\n except e"
& "lse \n false\n end; \nend;\n\n(* normal versions of restricted acce"
& "ss procs *)\n(*: processNew(nameAndArgs:[text], mergeOut:boolean) retu"
& "rns process :*)\nvar processNew = proc(nameAndArgs, mergeOut) \n\tproce"
& "ss_new(processor, nameAndArgs, mergeOut)\nend;\n\n(*: rdOpen(filename:t"
& "ext) returns reader :*)\nvar rdOpen = proc(fnm) \n\trd_open(fileSys, fn"
& "m)\nend;\n\n(*: wrOpen(filename:text) returns writer :*)\nvar wrOpen = "
& " proc(fnm) \n\t\twr_open(fileSys, fnm);\nend;\n\n(*: wrOpenAppend(filen"
& "ame:text) returns writer :*)\nvar wrOpenAppend = proc(fnm) \n\t\twr_ope"
& "nAppend(fileSys, fnm);\nend;\n\n\nvolibLocal.Join := Join;\n\nvolibLoca"
& "l.processNew := meth(s, n , mer)\n\tprocessNew(n, mer)\nend;\n\nvolibLo"
& "cal.rdOpen := meth(s, fnm)\n\trdOpen(fnm)\nend;\n\nvolibLocal.wrOpen :="
& " meth(s, fnm)\n\twrOpen(fnm)\nend;\n\nvolibLocal.wrOpenAppend := meth(s"
& ", fnm)\n\twrOpenAppend(fnm)\nend;\nsys_popSilence();\n\n\n";
CONST E41 =
"(Filter %@filter $FilterState$\n \n (Shape %@shape (Width $XSpan$ + In"
& "f - Inf) (Height $YSpan$ + Inf - Inf)\n \n (BgColor \"$BgColor$\") "
& "(Color \"$FgColor$\")\n (Font \"$Font$\") \n \n (Frame $Fr"
& "ameStyle$ \n (Rim %@rim (Pen $RimPen$) (ShadowSize 1.5)\n ("
& "Border %@border (Pen $BorderPen$)\n\n (TypeIn %@ $ReadOnly$ $Exp"
& "andOnDemand$\n (Value \"$Initial$\")\n )\n \n"
& " )\n \n )\n )\n )\n )\n \n\n";
CONST E42 =
"(Filter %attrfilter\n (Shape (Width 370 + Inf) (Height + Inf)\n ("
& "BgColor \"VeryLightBlue\")\n (Rim (Pen 10)\n (Macro\n LField\n BO"
& "A\n (label wid contents)\n `(Rim\n (Pen 3) \n (Shape\n"
& " (Width ,wid + Inf)\n (HBox (Text ,label) (Frame Lowere"
& "d ,contents))\n )))\n (Macro\n BoxAround\n BOA\n (heigh"
& "t contents)\n `(Border (Pen 1)\n (Shape (Height ,height)\n "
& " (HBox Fill ,contents Fill))) \n ) \n (Macro\n Field\n BO"
& "A\n (label wid contents)\n `(Rim\n (Pen 3) \n (Shape\n"
& " (Width ,wid + Inf)\n (HBox (Text ,label) ,contents)\n "
& " ))) \n (Macro\n Title\n BOA\n (label)\n `(Frame "
& "Lowered (Shape (BgColor \"VeryPaleLightBlue\") (Color \"VeryDarkBlue\")"
& " (Height 15) (Text ,label))))\n\n (Macro \n ColorField\n BOA\n "
& " (typeinname btnname)\n `(HBox (PopButton %,btnname (For ColorPopup)"
& " (Pixmap \"triangleSE.pbm\"))\n (Frame Raised (BgColor \"Whi"
& "te\") (TypeIn ReadOnly %,typeinname (Value \"\"))) ))\n (Macro\n RF"
& "ield\n BOA\n (radioname label contents height initial glue)\n "
& " `(Radio %,radioname (Value ,initial)\n (Shape (Height ,height"
& ")\n (HBox (Text ,label) ,contents (Glue ,glue))\n )"
& "\n ) \n ) \n (Macro \n FontField\n BOA\n (typeinname"
& " btnname)\n `(HBox (PopButton %,btnname (For FontPopup) \n "
& " (Pixmap \"triangleSE.pbm\"))\n (Frame Raised (BgColor \"Whi"
& "te\") (TypeIn ReadOnly %,typeinname (Value \"\"))) ))\n\n(ZSplit \n \n "
& "(Font \"-*-fixed-bold-R-*120-*\")\n(ZBackground \n(TSplit %wholepage\n"
& "(VBox %attrmain\n (VBox\n \n \n (Title \"General Attributes\")\n "
& " (Glue 10) \n (HBox (LField \"Name :\" 150 (TypeIn (TabTo type) %"
& "name (BgColor \"White\"))) (Glue 10) \n (LField \"Type :\" 15"
& "0 (TypeIn %type ReadOnly (BgColor \"VeryPaleBlue\"))))\n (Glue 5)\n "
& " (BoxAround 100\n (VBox Fill\n (HBox (Field \"Bg Color :\" 230"
& " (ColorField bgctypein bgc)) (Glue 3)\n (Field \"Rim :\""
& " 150 (Numeric (TabTo bordersize) %rimsize (Min 0)) ";
CONST E42_0 =
" )\n )\n (Glue 5) \n (HBox (Field \"Fg Color :\""
& " 230 (ColorField fgctypein fgc)) (Glue 3) \n (Field \"Border"
& " :\" 150 (Numeric (TabTo name) %bordersize (Min 0))))\n (Glue 5)\n "
& " (Field \"Font :\" 200 (FontField fonttypein font)) \n Fill))\n "
& " (Glue 5) \n (HBox \n (RField Embellishment \"Shado"
& "w :\" (HBox (Choice %Flat Inverting \"Flat\")\n "
& " (Choice %Raised Inverting \"Raised\")\n "
& " (Choice %Lowered Inverting \"Lowered\")"
& "\n (Choice %Ridged Inverting"
& " \"Ridged\")\n (Choice %Chi"
& "seled Inverting \"Chiseled\")\n "
& " (Choice %None Inverting \"None\")\n "
& " ) 20 Flat 5)\n (Shape (Width 30) (PageButt"
& "on (BgColor \"PalePink\") (For jeff) (Pixmap \"FlipPage.pbm\"))))\n "
& " (Glue 5)\n (HBox (RField Reshape \"Reshape :\"\n (HBox (Choice "
& "%CenterPin Inverting \"Center Pin\")\n (Choice %Scaled Inver"
& "ting \"Scaled\")\n (Choice %HScaled Inverting \"Horiz. Stret"
& "ch\")\n (Choice %VScaled Inverting \"Vert. Stretch\")) 20 Ce"
& "nterPin 5))\n\n )\n (Glue 5)\n \n (BoxAround 70\n (VBo"
& "x Fill\n (HBox (Text \"Callback :\") \n (RField exechow "
& "\"\" (HBox (Choice (Color \"VeryDarkBlue\") %Foreground Inverting \"For"
& "eground\")\n (Choice (Color \""
& "VeryDarkBlue\") %Background Inverting \"Background\")) 20 Foreground 25"
& ")\n (TSplit %cbTS (LinkButton %ecb (For wat) (LinkButton (Sha"
& "dowSize 0) (For CallbackEditor)\n (BgColor \"PalePink\") (VBo"
& "x \"Edit\" \"Attached Code\") ))\n (LinkButton %"
& "wat (For ecb) (LinkButton (ShadowSize 0) (For jeff) \n "
& " (BgColor \"SlightlyYellowishPeachpuff\") (VBox \"Return To \" "
& "\"Widget Attributes\"))))\n (Glue 5) )\n (Glue 5)\n "
& " (RField execwhere \"\" (HBox (Choice";
CONST E42_1 =
" %Local (Color \"VeryDarkBlue\") \"Local\") (Glue 5)\n "
& " (Choice (Color \"VeryDarkBlue\") %Remote\n "
& " (LField \"Remote :\" 500 (Filter "
& "%remFilter Dormant (TypeIn ExpandOnDemand \n "
& " (TabTo type) %Location\n "
& " (BgColor \"White\")) ))\n "
& " )) 20 Local 5)\n Fill))\n (Glue 5)\n (HBox (RFi"
& "eld InitialState \"Initial State :\" (HBox (Choice %Active Inverting \""
& "Active\")\n (Choice %Passive"
& " Inverting \"Passive\")\n (C"
& "hoice %Dormant Inverting \"Dormant\")\n "
& " (Choice %Vanish Inverting \"Invisible\")\n "
& " ) 20 Active 5)\n "
& " \n (Shape (Width 50) (Button (BgColor \"PalePink\""
& ") %apply \"Apply\")) \n \n )\n (Glue 5)\n \n \n Ridge\n (T"
& "Split %mutt Circular \n (TSplit %jeff Circular\n (Insert \"formAT"
& "T.fv\")\n (Insert \"frameATT.fv\")\n (Insert \"texteditATT.fv"
& "\") \n (Insert \"browserATT.fv\")\n (Insert \"filebrowserA"
& "TT.fv\")\n (Insert \"typeinATT.fv\")\n (Insert \"buttonATT.fv"
& "\")\n (Insert \"numericATT.fv\")\n (Insert \"scrollerATT.fv\""
& ")\n (Insert \"textATT.fv\")\n (Insert \"choiceATT.fv\")\n "
& " (Insert \"booleanATT.fv\")\t\n (Insert \"videoATT.fv\")\t\n )\n"
& " (VBox (Glue 5)\n (Frame Lowered (Shape (BgColor \"VeryPaleLightBlue\""
& ") (Color \"VeryDarkBlue\") (Height 15) (Text %codetype \"Callback\")))\n"
& " (Glue 5) \n (Border (Pen 1) (BgColor \"VeryPalePink\") (TextEdit "
& "(Font \"-*-courier-bold-*R-*120-*\")\n %Callba"
& "ckEditor)) )\n )\n)\n(Insert \"menuATT.fv\")\n(VBox %SupportCode \n "
& " (Glue 10)\n (Title \"Form Support Code\") \n (Glue 10)\n "
& " (Border (Pen 1) (Frame Lowered (TextEdit (BgColor \"White\")\n (F"
& "ont \"-*-courier-bold-*R-*120-*\") %supportCodeEditor)))\n ";
CONST E42_2 =
" (Glue 10)\n (HBox Fill \n (Shape (Width 150)(Height 20"
& ")\n (LinkButton (For attrmain) (BgColor \"SlightlyYellowis"
& "hPeachpuff\") \"Return to Attribute Sheet\" ))\n Fill )\n (G"
& "lue 10) )\n)\n)\n\n(ZChild %ColorPopup\n (Border (Pen 1)\n (Shape (Wid"
& "th 320) (Height 300) \n (VBox (BgColor \"PaleTan\")\n (G"
& "lue 5)\n (HBox Fill (Frame Lowered (Shape (BgColor \"VeryPaleT"
& "an\") (Height 12) (Text \"Color Selection\"))) Fill) \n (Glue "
& "5)\n (HBox (Glue 10)\n (VBox\n (HB"
& "ox\n (Border (Pen 1) (BgColor \"White\") (Browser Quick "
& "%modifier2))\n (Glue 5)\n (Border (Pen 1)"
& " (BgColor \"White\") (Browser Quick %modifier1))\n )\n "
& " (Glue 5)\n (Frame (Text %showcolor \"\"))\n"
& " )\n (Glue 5)\n (Shape (Wi"
& "dth 105) (Border (Pen 1) (BgColor \"White\") (Browser Quick %colorlist)"
& "))\n \n (Glue 10)\n )\n "
& " \n \n \n (Glue 10)\n (HBox"
& " Fill (CloseButton (BgColor \"PalePink\") %inheritcolor \"Inherit Color"
& "\") Fill \n (CloseButton (BgColor \"PalePink\") %applycolor "
& "\"Apply\") Fill \n (CloseButton (BgColor \"PalePink\") %can"
& "celcolor \"Cancel\") Fill)\n (Glue 10)\n ))\n\n ))\n "
& " \n(ZChild %FontPopup \n(Macro\n FChoice\n BOA\n (name f"
& "ont label)\n `(Shape\n (Height 25) (Width 70)\n (Choice\n"
& " %,name\n (LabelFont ,font) Inverting\n ,"
& "label\n ) \n )\n) \n (Border (Pen 1)\n (Shape (Width 320) ("
& "Height 200) \n (VBox (BgColor \"PaleTan\")\n (Glue 5)\n "
& " (HBox Fill (Frame Lowered (Shape (BgColor \"VeryPaleTan\") (He"
& "ight 12)\n (Text \"Font Selection\"))) Fill) \n "
& " (Glue 10)\n (Frame Lowered\n (HBox\n (R"
& "adio %fontradio (Value tmR)\n (HBox \n "
& "(Glue 10)\n \n ";
CONST E42_3 =
"(VBox\n (Glue 10)\n \n "
& " (FChoice tmR \"-*-times-medium-R-*-140-*\" \"Times\""
& ")\n (FChoice tbR \"-*-times-bold-R-*-140-*\" \"T"
& "imes\")\n (FChoice tmI \"-*-times-medium-I-*140-*\""
& " \"Times\")\n (FChoice tbI \"-*-times-bold-I-*14"
& "0-*\" \"Times\")\n (Glue 10)\n )"
& "\n \n (VBox\n (Glue 10)"
& "\n (FChoice hmR \"-*-helvetica-medium-R-*140-*\" \""
& "Helvetica\")\n (FChoice hbR \"-*-helvetica-bold-R-"
& "*140-*\" \"Helvetica\")\n (FChoice hmO \"-*-helve"
& "tica-medium-O-*140-*\" \"Helvetica\")\n (FChoice h"
& "bO \"-*-helvetica-bold-O-*140-*\" \"Helvetica\")\n "
& " (Glue 10)\n )\n \n "
& " (VBox\n (Glue 10)\n (FChoice"
& " cmR \"-*-courier-medium-R-*140-*\" \"Courier\")\n "
& " (FChoice cbR \"-*-courier-bold-R-*140-*\" \"Courier\")\n "
& " (FChoice cmO \"-*-courier-medium-O-*140-*\" \"Courier\")\n "
& " (FChoice cbO \"-*-courier-bold-O-*140-*\" \"Courie"
& "r\")\n (Glue 10)\n )\n "
& " (Glue 10)\n ))\n (Glue 10)\n "
& " (Radio %sizeradio (Value pt140)\n (VBox\n "
& " (Glue 10)\n (Choice %pt80 (LabelFont \""
& "-*-times-medium-R-*80-*\") Inverting \"Tiny\")\n "
& "(Choice %pt120 (LabelFont \"-*-times-medium-R-*120-*\") Inverting \"Sm"
& "all\")\n (Choice %pt140 (LabelFont\"-*-times-mediu"
& "m-R-*140-*\") Inverting \"Medium\")\n (Choice %pt"
& "180 (LabelFont \"-*-times-medium-R-*180-*\") Inverting \"Big\")\n "
& " (Choice %pt240 (LabelFont \"-*-times-medium-R-*240-*\""
& ") Inverting \"Huge\")\n (Glue 10)\n "
& " )\n )\n (Glue 10";
CONST E42_4 =
")\n ))\n (Glue 10)\n (HBox Fill (Close"
& "Button (BgColor \"PalePink\") %inheritfont \"Inherit Font\") "
& " Fill\n (CloseButton (BgColor \"PalePink\") %fixedfont \"Use "
& "Fixed Font\") \n Fill \n (CloseButton (BgColor "
& "\"PalePink\") %applyfont \"Apply\") Fill \n (CloseButton (BgC"
& "olor \"PalePink\") %cancelfont \"Cancel\") Fill)\n (Glue 1"
& "0)\n ))\n\n ))\n \n ( ZChild %msgbox (At 0.5 0.5) \n (Border "
& "(Pen 2) \n (Shape (Width 300) (BgColor \"PaleYellow\") (He"
& "ight 100)\n (VBox Fill\n (Text (Col"
& "or \"DarkBrown\") \"Error\")\n Fill\n "
& " (Text %msg \"Invalid Color Specification\") \n "
& " Fill\n (HBox Fill (Shape (Width 80) (BgColor \"Pale"
& "Green\") (CloseButton (For msgbox) \"Continue\")) Fill)\n "
& " Fill )\n ))\n \n) \n\n)\n\n\n))\n)";
CONST E43 =
"(ZChild $ZChildState$ %@ \n (Filter %@filter $FilterState$ \n (Radi"
& "o %@radio\n $ZSplitHeader$\n (Shape %@shape \n (Width "
& "$XSpan$ + $XStretch$ - $XShrink$) \n (Height $YSpan$ + $YStretch"
& "$ - $YShrink$)\n (BgColor \"$BgColor$\") \n (Color \"$FgC"
& "olor$\")\n (LabelFont \"$Font$\")\n (Rim %@rim (Pen $RimP"
& "en$) \n (Border %@border (Pen $BorderPen$)\n (VBox\n"
& "\t (Macro $TitleBar$ ()\n \'(Shape %@title (Height 20)"
& "\n (Frame $FrameStyle$ \n (BgColor \"$T"
& "itleBgColor$\") \n (Color \"$TitleFgColor$\")\n "
& " (HBox \n (Shape (Width 15) \n "
& " (CloseButton (ShadowSize 0) (Pixmap \"close.pbm\"))) \n "
& " Chisel\n (Shape (Width + 1000) \n "
& " (ZMove (ShadowSize 0) (Text %@titlestring \"$TitleSt"
& "ring$\"))) \n Chisel \n (Shape"
& " (Width 15) \n (ZGrow (ShadowSize 0) (Pixmap \"gro"
& "w.pbm\"))))))\n\t )\n\t $IncludeTitleBar$\t\t\n "
& "$MenuStructure$\n (Text %@background \"\" )))))\n $Z"
& "SplitFooter$\n))) \n";
CONST E44 =
" (Shape %texteditatt (Height 200)\n (VBox \n (Glue 10)\n (Tit"
& "le \"Text Editor\")\n \n \n (Glue 5) (HBox (Boolean %teRead"
& "Only \"ReadOnly\") Fill (Boolean %teClip \"Clip\") \n "
& " Fill (Boolean (Value TRUE) %teHasScrollbar \"Has Scrollbar\" ))\n "
& " (Glue 5) \n (Boolean %teToggle\n (LField"
& " \"From File :\" 150 (Filter %teFilter1 Dormant\n "
& " (TypeIn ExpandOnDemand %teFrom\n "
& " (BgColor \"White\")))))\n (Glue 5)\n ("
& "Filter %teFilter2\n (VBox \n (Frame Lowered (Shape (BgCo"
& "lor \"VeryLightPink\") (Color \"VeryDarkBlue\") (Height 15)\n "
& " (Text \"Initial Contents\")))\n (Border (Pen 1)\n "
& " (Rim (Pen 1) (TextEdit (BgColor \"VeryLightPink\") %teInitial)))\n "
& " ) )\n )\n )\n";
CONST E45 =
"(* Copyright (C) 1995, Digital Equipment Corporation. *)\n(* All "
& "rights reserved. *)\n(* See the fil"
& "e COPYRIGHT for a full description. *)\n(* "
& " *)\n(* Last modified on Tue Jan "
& "10 11:47:30 PST 1995 by mhb *)\n\nmodule vowidgets;\n(* used by mod"
& "ule \"volib\" *)\n(* requires module \"templates\" *)\n\nsys_pushSilenc"
& "e();\n\n(* generic routine - forward declaration *)\nvar computeSX = 0;"
& "\n\n(* find and replace *)\nlet rep = proc(sx , pattern, newval)\n\ttex"
& "t_replaceAll(\"$\" & pattern & \"$\", newval, sx);\nend;\n\nlet replist"
& " = proc(s, plist)\n\tvar sx = s;\n\tforeach tuple in plist do\n\t\tsx :"
& "= rep(sx, tuple[0], tuple[1]); \n\tend;\n\tsx;\nend;\n\nlet ResizeStrin"
& "g = proc(ch) \n\tlet model = ch.ResizeModel;\n\tif text_equal(model, \""
& "CenterPin\") then\n\t\"FixedHV\";\n\telsif text_equal(model, \"HScaled\""
& ") then\n\t\"FixedV\";\n\telsif text_equal(model, \"VScaled\") then\n\t\""
& "FixedH\";\n\telse \"Scaled\";\n\tend;\nend;\n\nlet mutateName = proc(wi"
& "d)\n\tlet ix = text_findLast(\"vq\", wid.name, 1000);\n\tif ix is -1 th"
& "en\n\t\twid.name := wid.name & \"vq0\";\n\telse\t\n\t\tlet num = text_s"
& "ub(wid.name, ix+2, text_length(wid.name)-ix+2);\n\t\tlet no = text_toIn"
& "t(num) + 1;\n\t\twid.name := text_sub(wid.name, 0, ix+2) & fmt_int(no"
& "); \n\tend;\nend;\n\nlet genericSX = proc(v, s)\n\tvar sx = replist(s,"
& "[ [\"XSpan\", fmt_int(v.width)],\n\t\t\t\t \t [\"YSpan\", fmt_int(v.he"
& "ight)],\n\t\t\t\t\t [\"RimPen\", fmt_int(v.Rim)],\n\t\t\t\t\t [\"Border"
& "Pen\", fmt_int(v.Border)],\n\t\t\t\t\t [\"BgColor\", v.BgColor],\n\t\t\t"
& "\t\t [\"FgColor\", v.FgColor],\n\t\t\t\t\t [\"Font\", v.Font],\n\t\t\t\t"
& "\t [\"FilterState\", v.InitialState],\n\t\t\t\t\t]);\t\n\tif text_equal"
& "(v.Embellishment, \"None\") then\n\t\tsx := rep(sx, \"FrameStyle\", \"("
& "ShadowSize 0)\");\n\telse\n\t\tsx := rep(sx, \"FrameStyle\", v.Embellis"
& "hment);\n\tend;\n\tsx := \ttext_replaceAll(\"%@\", \"%\" & v.name, sx);"
& "\n\tsx;\nend;\n\nlet splitSX = proc(nv, s)\n\tvar sx = s;\n\tvar footer"
& " = \")\\n\";\n\tvar includeTitleBar = true;\n\tvar childOffRed = 0;\n\n"
& "\tsx := rep(sx, \"ZSplitHeader\", \"(ZSplit %@zsplit\\n (ZBackground %@"
& "zback\\n\");\n\tif tex";
CONST E45_0 =
"t_equal(nv.class, \"form\") then\n\t\tif nv.ParentForm is 0 then \n\t\t"
& "\tchildOffRed := 20;\n\t\t\tsx := rep(sx, \"YSpan\", fmt_int(nv.height-"
& "childOffRed));\n\t\t\tincludeTitleBar := false;\n\t\tend\n\tend;\t\t\n\t"
& "foreach child in nv.children do\n\t\tlet csx = computeSX(child);\n\t\tv"
& "ar visibility = \"\";\n\t\tif child.InitialState isnot \"Vanish\" then\n"
& "\t\t\tvisibility := \"Open\";\n\t\tend;\n\t\tfooter := footer & \"(ZChi"
& "ld %\" & child.name & \"top (At \" & fmt_int(child.x) & \" \"\n "
& " & fmt_int(child.y - childOffRed) & \" NW Absolute) \" &"
& " visibility & \"\\n \" &\n ResizeString(child) &\n"
& " csx & \"\\n )\\n\";\n\tend;\n\tif text_equal(n"
& "v.class, \"form\") then\n\t\tforeach ch in nv.ChildForms do\n\t\t\tfoot"
& "er := footer & computeSX(ch);\n\t\tend\n\tend;\n\tfooter := footer & \""
& ")\\n\";\n\tsx := rep(sx, \"ZSplitFooter\", footer);\n\tsx := rep(sx, \""
& "TextureFile\", nv.Texture);\n\tif text_equal(nv.class, \"form\") then\n"
& "\t\tif includeTitleBar then \n\t\t\tsx := rep(sx, \"IncludeTitleBar\", "
& "\"($TitleBar$)\");\n\t\telse\n\t\t\tsx := rep(sx, \"IncludeTitleBar\", "
& "\"\");\n\t\tend;\n\t\tsx := rep(sx, \"TitleBar\", nv.name & \"TitleBar\""
& ");\n\tend;\n\tgenericSX(nv, sx);\nend;\n\nlet menuSX = proc(nv)\n\t(* a"
& "ssert: nv is a formnode with a menu *)\n\tvar sx = Templates.menu;\n\ts"
& "x := replist(sx, [[\"MenuBgColor\", nv.MenuBgColor],\n\t\t\t\t\t [\""
& "MenuFgColor\", nv.MenuFgColor],\n\t\t\t\t\t [\"MenuFont\", nv.MenuF"
& "ont]]);\n\tvar menuDef = \"\";\n\tlet first = 0;\n\tlet last = #(nv.Men"
& "u)-1;\n\tvar i = first;\n\tloop\n\t\tif i > last then exit; end;\n\t\t"
& "let m = nv.Menu[i];\n\t\tmutateName(m);\n\t\tif (m.Level is 0) and not "
& "(text_equal(m.name, \"RIDGE\")) then\n\t\t\tvar ctr = 0;\n\t\t\tvar ix "
& "= i+1;\n\t\t\tvar pulldownDef = \"(VBox \\n\"; (* start creation of pul"
& "ldown *)\n\t\t\tif ix <= last then\n\t\t\t \tloop\n\t\t\t\t\tlet mx = "
& "nv.Menu[ix];\n\t\t\t\t\tif (ix > last) or (mx.Level is 0) then exit; en"
& "d;\n\t\t\t\t\tif mx.Level is 1 then\n\t\t\t\t\t\tif text_equal(mx.name,"
& " \"RIDGE\") then\n\t\t\t\t\t\t \tpulldownDef := pulldownDef & \"Ridge\\"
& "n\";\t\n\t\t\t\t\t\telse\n\t\t\t\t\t\tpulldownDef :=\n \t\t"
& "\t\t\t pulldownDef & \"(MenuButton \" & mx.name\n \t"
& "\t\t\t\t ";
CONST E45_1 =
" & \"Filter \" & mx.initialState & \" \"\n \t\t\t\t"
& "\t & mx.name & \" \" & mx.name & \"Label \"\n "
& "\t\t\t\t\t & \"\\\"\" & mx.Label & \"\\\")\\n\"\n \t"
& "\t\t\tend;\t\n\t\t\t\t\t ctr := ctr + 1;\n\t\t\t\t\tend;\n\t\t\t"
& "\t\tix := ix +1;\n\t\t\t\tend;\n\t\t\t\tpulldownDef := pulldownDef & \""
& ")\\n\"; (* close VBox *)\n\t\t\tend; (* if ix <= last *)\n\t\t "
& "if ctr > 0 then \n\t\t\t\t menuDef :=\n \t\t\t menuDef & \""
& "(PullDownMenuItem \" & m.name & \"Filter \"\n \t\t\t & m."
& "initialState & \" \" & m.name & \" \"\n \t\t\t & m.name"
& " & \"Label \" & \"\\\"\" & m.Label & \"\\\"\\n\"\n \t\t\t "
& " & pulldownDef & \")\\n\";\n\t\t\telse\n\t\t\t\tmenuDef :=\n \t\t"
& "\t\t menuDef & \"(MenuItem \" & m.name & \"Filter \"\n "
& " \t\t\t\t & m.initialState & \" \" & m.name & \" \"\n "
& " \t\t\t\t & m.name & \"Label \" & \"\\\"\" & m.Label & \"\\\")\\n\";\n"
& "\t\t\tend;\n\t\t\ti := ix -1;\n\t\tend;\n\t\ti := i +1;\n\tend;\t\n\tre"
& "p(sx, \"MenuItems\", menuDef);\nend;\n\n\nlet booleanSX = proc(nv)\n\tv"
& "ar sx = Templates.boolean;\n\tsx := rep(sx, \"fbstyle\", nv.feedbackSty"
& "le);\n\tif nv.initialValue then\n\t\tsx :=rep(sx, \"initValue\", \"TRUE"
& "\");\n\telse\n\t\tsx:=rep(sx, \"initValue\", \"FALSE\");\t\n\tend;\n\ti"
& "f nv.textLabel then\n\t\tsx:=rep(sx, \"BooleanContents\", \"Text %@text"
& " \\\"\" & nv.textString & \"\\\"\");\n\telse\n\t\tsx:=rep(sx, \"Boolean"
& "Contents\",\"Pixmap %@pixmap \\\"\" & nv.pixmap & \"\\\"\");\n\tend;\t\n"
& "\tgenericSX(nv, sx);\nend;\n\nlet browserSX = proc(nv)\n\tvar sx = Temp"
& "lates.browser;\n\tif nv.Multiplicity then\n\t\tsx:=rep(sx, \"typeOfBrow"
& "ser\", \"MultiBrowser\");\n\t\tif #(nv.Selections) is 0 then\n\t\t\tsx:"
& "=rep(sx, \"ValueList\", \"\");\n\t\telse\n\t\t\tvar values = \"\";\n\t\t"
& "\tforeach i in nv.Selections do\n\t\t\t\t values := values & fmt_int(i)"
& " & \" \";\n\t\t\tend;\n\t\t\tsx := rep(sx, \"ValueList\", \"(Value \" &"
& " values & \" )\" );\n\t\tend;\n\telse\n\t\tsx:=rep(sx, \"typeOfBrowser"
& "\", \"Browser\");\t\n\t\tif nv.Selection is -1 then\n\t\t\tsx := rep(sx"
& ", \"ValueList\", \"\");\n\t\telse\n\t\t\tsx := rep(sx, \"ValueList\", "
& "\"(Value \" & fmt_int(nv.Selection) & \" )\" );\n\t\tend;\n\tend;\n\tif"
& " nv.Quick then\n\t\tsx := rep(sx, \"quick\", \"Quick\");\n\telse\n\t\ts"
& "x := rep(sx, ";
CONST E45_2 =
"\"quick\", \"\");\n\tend;\n\n\tif #(nv.Contents) is 0 then\n\t\t\tsx:=r"
& "ep(sx, \"Items\", \"\");\n\t\telse\n\t\t\tvar items = \"\";\n\t\t\tfore"
& "ach item in nv.Contents do\n\t\t\t\t items := items & \"\\\"\" & item &"
& " \"\\\" \";\n\t\t\tend;\n\t\t\tsx := rep(sx, \"Items\", items );\n\t\t"
& "end;\n\tgenericSX(nv, sx);\nend;\n\nlet buttonSX = proc(nv)\n\tvar sx ="
& " Templates.button;\n\tif nv.Guard then\n\t\tsx := replist(sx, [[\"Guard"
& "Header\", \"(Guard %@guard \"],\n\t\t\t\t\t [\"GuardFooter\", \")\"]"
& "]);\n\telse\n\t\tsx := replist(sx, [[\"GuardHeader\", \"\"],\n\t\t\t\t\t"
& " [\"GuardFooter\", \"\"]]);\t\n\tend;\n\tif nv.Trill then\n\t\tsx :="
& " rep(sx, \"Trill\", \"\");\n\telse\n\t\tsx := rep(sx, \"Trill\", \"\");"
& "\n\tend;\t\t\t\n\tif nv.textLabel then\n\t\tsx := rep(sx, \"ButtonConte"
& "nts\",\"Text %@text \\\"\" & nv.textString & \"\\\"\" );\n\telse\n\t\ts"
& "x := rep(sx, \"ButtonContents\",\n\t\t\t\t\t \"Pixmap Accurate %@"
& "pixmap \\\"\" & nv.pixmap & \"\\\"\");\n\tend;\t\n\tgenericSX(nv, sx);\t"
& "\t\nend;\n\nlet choiceSX = proc(nv)\n\tvar sx = Templates.choice;\n\tsx"
& ":=rep(sx, \"fbstyle\", nv.feedbackStyle);\n\tif nv.initialValue then\n\t"
& "\tsx:=rep(sx, \"initValue\", \"TRUE\");\n\telse\n\t\tsx:=rep(sx, \"init"
& "Value\", \"FALSE\");\t\n\tend;\n\tif nv.textLabel then\n\t\tsx:=rep(sx,"
& " \"ChoiceContents\", \"Text %@text \\\"\" & nv.textString & \"\\\"\");\n"
& "\telse\n\t\tsx:=rep(sx, \"ChoiceContents\",\"Pixmap %@pixmap \\\"\" & n"
& "v.pixmap & \"\\\"\");\n\tend;\t\n\tgenericSX(nv, sx);\t\nend;\n\nlet fi"
& "lebrowserSX = proc(nv)\n\tvar sx = Templates.filebrowser;\n\tif nv.Read"
& "Only then\n\t\tsx := rep(sx, \"ReadOnly\", \"ReadOnly\");\n\telse\n\t\t"
& "sx := rep(sx, \"ReadOnly\", \"\");\n\tend;\n\tsx := replist(sx, [[\"La"
& "belFont\", nv.LabelFont],\n\t\t\t\t [\"Initial\", nv.Value],\n\t\t\t"
& "\t [\"fbName1\", nv.name],\n\t\t\t\t [\"fbName2\", nv.name],\n\t"
& "\t\t\t [\"ActionLabel\", nv.ActionLabel]]);\n\tif #(nv.Suffixes) is"
& " 0 then\n\t\tsx := rep(sx, \"Suffixes\", \"\\\"\\\"\");\n\telse\n\t\tva"
& "r suffixList = \"\";\n\t\tforeach suf in nv.Suffixes do\n\t\t\tsuffixLi"
& "st := suffixList & \" \\\"\" & suf &\n\t\t\t\t\"\\\" \";\n\t\tend;\n\t\t"
& "sx := rep(sx, \"Suffixes\", suffixList);\n\tend;\n\tgenericSX(nv, sx);\n"
& "end;\n\nlet formSX = proc(nv)\n\tvar sx = Templates.form;\n\t(* plug in"
& " all the appropriate values *)\n\tvar location = \"\";\n\n\tif nv.Check"
& "pointedX";
CONST E45_3 =
"Y then\n\t\tlocation :=\" (At \" & fmt_int(nv.x) & \" \" & fmt_int(nv."
& "y) & \" NW Absolute) \";\n\tend;\n\n\tif nv.InitialState isnot \"Vanis"
& "h\" then\n\t\tsx := rep(sx, \"ZChildState\", location & \"Open\");\n\te"
& "lse\n\t\tsx := rep(sx, \"ZChildState\", location);\n\tend;\n\tif nv.Has"
& "Menu then\n\t\tsx := rep(sx, \"MenuStructure\", \n\t\t\t\t\tmenuSX(nv))"
& ";\n\telse\n\t\tsx := rep(sx, \"MenuStructure\", \"\");\t\n\tend;\n\tsx "
& ":= replist(sx,\n\t [ [\"XStretch\", fmt_int(nv.StretchX)],\n\t [\"YSt"
& "retch\", fmt_int(nv.StretchY)],\n\t [\"XShrink\", fmt_int(nv.ShrinkX)"
& "],\n\t [\"YShrink\", fmt_int(nv.ShrinkY)],\n\t [\"TitleBgColor\", n"
& "v.TitleBgColor],\n\t [\"TitleFgColor\", nv.TitleFgColor],\n\t [\"Ti"
& "tleString\", nv.TitleString],\n\t]);\n\tsplitSX(nv, sx);\nend;\n\nlet f"
& "rameSX = proc(nv)\n\tvar sx = Templates.frame;\t\n\tsplitSX(nv, sx);\ne"
& "nd;\n\nlet numericSX = proc(nv)\n\tvar sx = Templates.numeric;\n\tsx :="
& " replist(sx, [[\"Value\", fmt_int(nv.Val)],\n\t\t\t\t [\"Min\", fmt_"
& "int(nv.Min)],\n\t\t\t\t [\"Max\", fmt_int(nv.Max)]\n\t\t\t\t]);\n\ti"
& "f nv.AllowEmpty then\n\t\tsx := rep(sx, \"AllowEmpty\", \"AllowEmpty\")"
& ";\n\telse\n\t\tsx := rep(sx, \"AllowEmpty\", \"\");\t\n\tend;\n\tif nv."
& "HideButtons then\n\t\tsx := rep(sx, \"HideButtons\", \"HideButtons\");\n"
& "\telse\n\t\tsx := rep(sx, \"HideButtons\", \"\");\t\n\tend;\n\tgenericS"
& "X(nv, sx);\nend;\n\nlet scrollerSX = proc(nv, s)\n\tvar sx = s;\n\tsx :"
& "= replist(sx, [[\"Value\", fmt_int(nv.Val)],\n\t\t\t\t [\"Min\", fmt"
& "_int(nv.Min)],\n\t\t\t\t [\"Max\", fmt_int(nv.Max)],\n\t\t\t\t [\""
& "Thumb\", fmt_int(nv.Thumb)],\n\t\t\t\t [\"Step\", fmt_int(nv.Step)],"
& "\n\t\t\t\t\t]);\n\tgenericSX(nv, sx);\nend;\n\nlet textSX = proc(nv)\n\t"
& "var sx = Templates.text;\n\tsx := replist(sx, [[\"Alignment\", nv.tOrie"
& "ntation],\n\t\t\t\t [\"Initial\", nv.tVal]]);\n\tgenericSX(nv, sx);\n"
& "end;\n\nlet texteditSX = proc(nv)\n\tvar sx = Templates.textedit;\n\tif"
& " nv.teReadOnly then\n\t\tsx := rep(sx, \"ReadOnly\", \"ReadOnly\");\n\t"
& "else\n\t\tsx := rep(sx, \"ReadOnly\", \"\");\t\n\tend;\n\tif nv.teClip "
& "then\n\t\tsx := rep(sx, \"Clip\", \"Clip\");\n\telse\n\t\tsx := rep(sx,"
& " \"Clip\", \"\");\t\n\tend;\n\tif nv.teHasScrollbar then\n\t\tsx := rep"
& "(sx, \"NoScrollbar\", \"\");\n\telse\n\t\tsx := rep(sx, \"NoScrollbar\""
& ", \"NoScrollbar\");\t\n\te";
CONST E45_4 =
"nd;\n\tif nv.getFromFile then\n\t\tsx := rep(sx, \"Initial\", \"From \\"
& "\"\" & nv.teFromFile & \"\\\"\")\n\telse\n\t\tsx := rep(sx, \"Initial\""
& ", \"Value \\\"\" & text_replaceAll(\"\\n\", \"\\\\n\",nv.teContents ) &"
& " \"\\\"\")\n\tend;\n\tgenericSX(nv, sx);\nend;\n\nlet typeinSX = proc(n"
& "v)\n\tvar sx = Templates.typein;\n\tif nv.tyReadOnly then\n\t\tsx := re"
& "p(sx, \"ReadOnly\", \"ReadOnly\");\n\telse\n\t\tsx := rep(sx, \"ReadOnl"
& "y\", \"\");\t\t\n\tend;\n\tif nv.tyExpand then\n\t\tsx := rep(sx, \"Exp"
& "andOnDemand\", \"ExpandOnDemand\");\n\telse\n\t\tsx := rep(sx, \"Expand"
& "OnDemand\", \"\");\t\t\n\tend;\n\tsx := rep(sx, \"Initial\", nv.tyInit)"
& ";\n\tgenericSX(nv, sx);\nend;\n\nlet videoSX = proc(nv)\n\tvar sx = Tem"
& "plates.video;\n\tif nv.Source is \"\" then\n\t\tsx := rep(sx, \"PlayVid"
& "eo\", \"1\");\n\telse\n\t\tsx := rep(sx, \"PlayVideo\", \"0\");\n\tend;"
& "\n\tsx := replist(sx, [ [\"VideoSource\", nv.Source],\n\t\t\t\t [\""
& "Quality\", fmt_int(nv.Quality)],\n\t\t\t\t [\"Width\", fmt_int(nv."
& "Width)],\n\t\t\t\t [\"Height\", fmt_int(nv.Height)],\n\t\t\t\t "
& " [\"Colours\", fmt_int(nv.Colours)],\n\t\t\t\t [\"MSecs\", fmt_in"
& "t(nv.MSecs)],\n\t\t\t\t [\"AudioSource\", nv.AuSource],\n\t\t\t\t "
& " [\"Volume\", fmt_int(nv.Volume)],\n\t\t\t\t]); \n\tif nv.Synchrono"
& "us then\n\t\tsx := rep(sx, \"Synchronous\", \"Synchronous\");\t\n\telse"
& "\n\t\tsx := rep(sx, \"Synchronous\", \"\");\t\n\tend;\n\tif nv.FixedSiz"
& "e then\n\t\tsx := rep(sx, \"FixedSize\", \"FixedSize\");\t\n\telse\n\t\t"
& "sx := rep(sx, \"FixedSize\", \"\");\t\n\tend;\n\tif nv.Paused then\n\t\t"
& "sx := rep(sx, \"Paused\", \"Paused\");\t\n\telse\n\t\tsx := rep(sx, \"P"
& "aused\", \"\");\t\n\tend;\n\tif nv.Mute then\n\t\tsx := rep(sx, \"Mute\""
& ", \"Mute\");\t\n\telse\n\t\tsx := rep(sx, \"Mute\", \"\");\t\n\tend;\n\t"
& "if nv.IgnoreMapping then\n\t\tsx := rep(sx, \"IgnoreMapping\", \"Ignore"
& "Mapping\");\t\n\telse\n\t\tsx := rep(sx, \"IgnoreMapping\", \"\");\t\n\t"
& "end;\n\tgenericSX(nv, sx);\nend;\n\n\n(* procedure dispatching kludge *"
& ")\ncomputeSX := proc(wid)\n\tmutateName(wid); (* unique sx-expression w"
& "ill result *)\t\n if wid.class is \"boolean\" then\n\t\tbooleanS"
& "X(wid);\n elsif wid.class is \"button\" then\n\t\tbuttonSX(wid);"
& "\n\telsif wid.class is \"browser\" then\n\t\tbrowserSX(wid);\n\telsif w"
& "id.class is \"choice\" then\n\t\tchoiceSX(wid);\n\t";
CONST E45_5 =
"elsif wid.class is \"filebrowser\" then\n\t\tfilebrowserSX(wid);\n\tels"
& "if wid.class is \"form\" then\n\t\tformSX(wid);\n\telsif wid.class is \""
& "frame\" then\n\t\tframeSX(wid);\n\telsif wid.class is \"hscroll\" then\n"
& "\t\tscrollerSX(wid, Templates.hscroll);\n\telsif wid.class is \"numeric"
& "\" then\n\t\tnumericSX(wid);\n\telsif wid.class is \"text\" then\n\t\tt"
& "extSX(wid);\n\telsif wid.class is \"textedit\" then\n\t\ttexteditSX(wid"
& ");\n\telsif wid.class is \"typein\" then\n\t\ttypeinSX(wid);\n e"
& "lsif wid.class is \"video\" then\n\t\tvideoSX(wid);\n\telsif wid.class "
& "is \"vscroll\" then\n\t\tscrollerSX(wid, Templates.vscroll);\n\tend;\n\t"
& "\nend;\n\nsys_popSilence();";
CONST E46 =
" (Shape %choiceatt (Height 200)\n (VBox \n (Glue 10)\n (Title"
& " \"Choice\")\n (Glue 10)\n (HBox Fill (Shape (Width 100) (Bool"
& "ean %chInitial \"Initial Value\")) Fill)\n (Glue 10)\n (BoxArou"
& "nd 50\n (HBox (RField Choicefbs \"Feedback Style :\" \n "
& " (VBox (Glue 5) (Choice %CCheckBox CheckBox \"Check Box\")\n "
& " (Choice %CCheckMark CheckMark \"Check Mark\")\n "
& " (Choice %CInverting Inverting \"Inverting\")\n (Gl"
& "ue 5)\n ) 45 Active 5) Fill))\n (Glue 10)\n (Radio"
& " %chRadio\n (BoxAround 95\n (VBox\n (HBox (Text \"Lab"
& "el\") (Glue 250))\n (Glue 10)\n (Choice (Color \"VeryDark"
& "Blue\") %chTChoice (LField \"Text :\" 250 (TypeIn (TabTo chPix) %"
& "chText (BgColor \"White\") ExpandOnDemand (Value \"Choice\"))))\n "
& " (Glue 10)\n (Choice %chPChoice (Color \"VeryDarkBlue\") (LFiel"
& "d \"Pixmap :\" 250 (TypeIn (TabTo name) %chPix ExpandOnDemand (BgColor "
& "\"White\") (Value \"\"))))\n (Glue 10)\n )))\n Fill\n"
& " )\n )\n";
BEGIN
END DialogBundle.