client/derived/SupGUIBundle.m3


MODULE SupGUIBundle;
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..7] OF TEXT {
  "stop.pbm",
  "disk.pbm",
  "info.pbm",
  "SupGUI.fv",
  "tape_play.pbm",
  "exit.pbm",
  "Copyright.txt",
  NIL
};

VAR Elements := ARRAY [0..7] OF TEXT {
  E0,
  E1,
  E2,
  NIL (* E3 .. E3_3 *),
  E4,
  E5,
  E6,
  NIL
};

PROCEDURE GetElt (n: INTEGER): TEXT =
  <*FATAL Thread.Alerted, Wr.Failure *>
  VAR wr := TextWr.New ();
  BEGIN
    CASE n OF
    | 3 =>
        Wr.PutText (wr, E3);
        Wr.PutText (wr, E3_0);
        Wr.PutText (wr, E3_1);
        Wr.PutText (wr, E3_2);
        Wr.PutText (wr, E3_3);
    ELSE (*skip*)
    END;
    RETURN TextWr.ToText (wr);
  END GetElt;

CONST E0 =
   "P1\n16 16\n0 0 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 0 0 "
 & "0 0 0 0 0\n1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 "
 & "1 1 1 1 1\n1 1 1 1 1 1 1 1 1 0 1 1 0 1 0 0 0 1 1 0 1 1 0 0 1 1 1 0 1 1 "
 & "1 0 1 1 0\n1 0 1 0 1 0 1 1 0 1 1 1 0 1 1 0 1 0 1 0 1 0 1 1 1 0 1 1 0 1 "
 & "1 0 1 0 1\n0 0 1 1 1 1 0 1 1 0 1 1 0 1 0 1 0 1 1 1 1 0 1 1 1 0 1 1 1 0 "
 & "1 1 0 1 1\n1 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 1 1 1 1 "
 & "1 0 0 0 0\n0 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 0 0 0 0 "
 & "0 0 0 0 0\n1 1 1 1 1 1 0 0 0 0 0\n";

CONST E1 =
   "P1\n16 16\n0 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 1 0 0 0 1 0 0 0 1 0 1 0 0 1 "
 & "0 0 1 0 0\n0 1 0 0 0 1 0 1 0 0 0 1 0 1 0 0 0 1 0 0 0 0 0 1 0 0 0 1 0 1 "
 & "0 0 0 1 1\n1 1 1 1 1 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 "
 & "0 0 0 0 0\n0 0 0 0 0 1 0 1 0 0 1 1 1 1 1 1 1 1 1 0 0 1 0 1 0 1 0 0 0 0 "
 & "0 0 0 0 0\n1 0 1 0 1 0 1 0 0 0 0 0 0 0 0 0 1 0 1 0 1 0 1 0 0 0 0 0 0 0 "
 & "0 0 1 0 1\n0 1 0 1 0 0 0 0 0 0 0 0 0 1 0 1 0 1 0 1 0 0 0 0 0 0 0 0 0 1 "
 & "0 1 0 1 0\n1 0 0 0 0 0 0 0 0 0 1 0 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 "
 & "0 0 0 0 0\n0 0 0 0 0 0 0 0 0 0 0\n";

CONST E2 =
   "P1\n16 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 1 1 1 1 0 0 "
 & "0 0 0 0 0\n0 0 0 0 0 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 "
 & "0 0 0 0 0\n0 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 0 0 0 0 0 0 0 0 0 "
 & "0 1 1 1 1\n1 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 1 1 "
 & "1 1 0 0 0\n0 0 0 0 0 0 0 0 0 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 0 0 "
 & "0 0 0 0 0\n0 0 0 0 0 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 0 0 0 "
 & "0 0 0 0 0\n0 0 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 0 0 0 0 0 0 0 "
 & "0 0 0 0 0\n0 0 0 0 0 0 0 0 0 0 0\n";

CONST E3 =
   "; Copyright 1996-2003 John D. Polstra.\n; All rights reserved.\n;\n; Re"
 & "distribution and use in source and binary forms, with or without\n; mod"
 & "ification, are permitted provided that the following conditions\n; are "
 & "met:\n; 1. Redistributions of source code must retain the above copyrig"
 & "ht\n;    notice, this list of conditions and the following disclaimer.\n"
 & "; 2. Redistributions in binary form must reproduce the above copyright\n"
 & ";    notice, this list of conditions and the following disclaimer in th"
 & "e\n;    documentation and/or other materials provided with the distribu"
 & "tion.\n; 3. All advertising materials mentioning features or use of thi"
 & "s software\n;    must display the following acknowledgment:\n;      Thi"
 & "s product includes software developed by John D. Polstra.\n; 4. The nam"
 & "e of the author may not be used to endorse or promote products\n;    de"
 & "rived from this software without specific prior written permission.\n;\n"
 & "; THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS\'\' AND ANY EXPRESS O"
 & "R\n; IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WAR"
 & "RANTIES\n; OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE "
 & "DISCLAIMED.\n; IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, I"
 & "NDIRECT,\n; INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (I"
 & "NCLUDING, BUT\n; NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SER"
 & "VICES; LOSS OF USE,\n; DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWE"
 & "VER CAUSED AND ON ANY\n; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRI"
 & "CT LIABILITY, OR TORT\n; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN"
 & " ANY WAY OUT OF THE USE OF\n; THIS SOFTWARE, EVEN IF ADVISED OF THE POS"
 & "SIBILITY OF SUCH DAMAGE.\n\n(Shape\n  (Width 700 - 350 + Inf)\n\n  (Col"
 & "or \"NavyBlue\")\n  (LightShadow HSV 0.000 0.250 1.000)\n  (BgColor    "
 & " HSV 0.000 0.400 1.000)\n  (DarkShadow  HSV 0.000 0.600 1.000)\n\n  (Ma"
 & "cro TLA BOA (x) `(Text LeftAlign ,x))\n  (Macro TRA BOA (x) `(Text Righ"
 & "tAlign ,x))\n\n  (Macro ABOUT ()\n    `(VBox\n      (Text (LabelFont (W"
 & "eightName \"bold\") (PointSize 180)) \"CVSup\\256\")\n      ";

CONST E3_0 =
   "(Text (LabelFont (WeightName \"bold\"))\n\t\"Copyright \\251 1996-2003 "
 & "John D. Polstra\")\n      (Glue 6)\n      (HBox\n\t(Fill)\n\t(Shape (Wi"
 & "dth + 0 - 0) \"Software version: \")\n\t(Shape (Width + 0 - 0) (Text %c"
 & "lientVersion \"0.0\"))\n\t(Fill))\n      (HBox\n\t(Fill)\n\t(Shape (Wid"
 & "th + 0 - 0) \"Protocol version: \")\n\t(Shape (Width + 0 - 0) (Text %pr"
 & "otoVersion \"0.0\"))\n\t(Fill))\n      (HBox\n\t(Fill)\n\t(Shape (Width"
 & " + 0 - 0) \"Operating system: \")\n\t(Shape (Width + 0 - 0) (Text %targ"
 & "et \"Unknown\"))\n\t(Fill))\n      \"https://www.cvsup.org/\"\n      \"R"
 & "eport problems to cvsup-bugs@polstra.com\"\n      (Glue 6)\n      (Chis"
 & "el)\n      (Glue 6)\n      \"This is free software.  See\"\n      (HBox"
 & "\n\t(Fill)\n\t(Shape (Width + 0 - 0)\n\t  (HBox\n\t    \"the \"\n\t    "
 & "(PopButton %license (For licenseWindow) \"fine print\")\n\t    \" for d"
 & "etails.\"))\n\t(Fill))\n      (Glue 6)\n      (Chisel)\n      (Glue 6)\n"
 & "      \"CVSup is a registered trademark of John D. Polstra.\"))\n\n  (M"
 & "acro COPYRIGHT ()\n    `(Shape (Width 500 - 250 + Inf) (Height 200 - 10"
 & "0 + Inf)\n      (TextEdit ReadOnly (From \"Copyright.txt\"))))\n\n  (Ma"
 & "cro MESSAGES ()\n    `(ZSplit\n      (ZBackground\n\t(VBox\n\t  (Shape "
 & "(Height + 0) \"Messages\")\n\t  (Chisel)\n\t  (TextEdit %messages ReadO"
 & "nly)))\n      (ZChild Open (At 1.0 1.0 SE)\n\t(LightShadow HSV 0.000 0."
 & "000 1.000)\n\t(BgColor     HSV 0.000 0.000 0.750)\n\t(DarkShadow  HSV 0"
 & ".000 0.000 0.500)\n\t(Filter Dormant\n\t  (Button %save\n\t    (Pixmap "
 & "\"disk.pbm\"))))))\n\n  (Macro BRIEFTRACE BOA (name label)\n    `(Shape"
 & " (Height + 0)\n      (HBox\n\t(Shape (Width 50 + 0)\n\t  (TLA ,label))\n"
 & "\t(Text ,name LeftAlign (LabelFont \"fixed\") \"\"))))\n\n\n  (Macro ST"
 & "ATSROW BOA (name label)\n    `(Shape (Height + 0)\n      (HBox\n\t(Shap"
 & "e (Width 0 + 20000)\n\t  (TLA ,label))\n\t(HBox (LabelFont \"fixed\")\n"
 & "\t  (Shape (Width 0 + 10000)\n\t    (Text %,(Intern (Cat (SymbolName (N"
 & "th name 1)) \"Count\"))\n\t      RightAlign \"0\"))\n\t  (Shape (Width "
 & "0 + 10000)\n\t    (Text %,(Intern (Cat (SymbolName (Nth name 1)) \"File"
 & "KB\"))\n\t      RightAlign \"0\"))\n\t  (Shape (Width 0 + 10000)\n\t   "
 & " (Text %,(Intern (Cat (SymbolName (Nth n";

CONST E3_1 =
   "ame 1)) \"WireKB\"))\n\t      RightAlign \"0\"))\n\t  (Shape (Width 0 +"
 & " 10000)\n\t    (Text %,(Intern (Cat (SymbolName (Nth name 1)) \"Compr\""
 & "))\n\t      RightAlign \"0.0\"))))))\n\n  (Macro COMMROW BOA (name labe"
 & "l valIn valOut)\n    `(Shape (Height + 0)\n      (HBox\n\t(Shape (Width"
 & " 0 + 10000)\n\t  (TLA ,label))\n\t(HBox (LabelFont \"fixed\")\n\t  (Sha"
 & "pe (Width 0 + 10000)\n\t    (Text %,(Intern (Cat (SymbolName (Nth name "
 & "1)) \"CommIn\"))\n\t      RightAlign ,valIn))\n\t  (Shape (Width 0 + 10"
 & "000)\n\t    (Text %,(Intern (Cat (SymbolName (Nth name 1)) \"CommOut\")"
 & ")\n\t      RightAlign ,valOut))\n\t  (Shape (Width 0 + 10000)\n\t    (T"
 & "ext %,(Intern (Cat (SymbolName (Nth name 1)) \"WireIn\"))\n\t      Righ"
 & "tAlign ,valIn))\n\t  (Shape (Width 0 + 10000)\n\t    (Text %,(Intern (C"
 & "at (SymbolName (Nth name 1)) \"WireOut\"))\n\t      RightAlign ,valOut)"
 & ")\n\t  (Shape (Width 0 + 10000)\n\t    (Text %,(Intern (Cat (SymbolName"
 & " (Nth name 1)) \"WireTot\"))\n\t      RightAlign \"0\"))))))\n\n  (Macr"
 & "o COMMSTATS ()\n    `(VBox\n      (HBox\n\t(Shape (Width 0 + 10000) (TL"
 & "A \"Module\"))\n\t(Shape (Width 0 + 10000) (TRA \"Proto In\"))\n\t(Shap"
 & "e (Width 0 + 10000) (TRA \"Proto Out\"))\n\t(Shape (Width 0 + 10000) (T"
 & "RA \"Wire In\"))\n\t(Shape (Width 0 + 10000) (TRA \"Wire Out\"))\n\t(Sh"
 & "ape (Width 0 + 10000) (TRA \"Wire Tot\")))\n      (Chisel)\n      (COMM"
 & "ROW %lister   \"Lister\"   \"-\" \"0\")\n      (COMMROW %detailer \"Det"
 & "ailer\" \"0\" \"0\")\n      (COMMROW %updater  \"Updater\"  \"0\" \"-\""
 & ")\n      (Chisel)\n      (COMMROW %tot      \"Total\"    \"0\" \"0\")))"
 & "\n\n  (Macro CLOCK ()\n    `(Shape (Width + 0)\n      (Frame Lowered\n\t"
 & "(Text %clock (LabelFont \"fixed\") \"00:00:00\"))))\n\n  (Macro STATS ("
 & ")\n    `(VBox %statistics\n      (Shape (Height + 0) \"Statistics\")\n "
 & "     (Chisel)\n      (Rim (Pen 5.0)\n\t(Shape (Height + 0)\n\t  (VBox\n"
 & "\t    (HBox\n\t      (Shape (Width 0 + 20000) (TLA \"Update Type\"))\n\t"
 & "      (Shape (Width 0 + 10000) (TRA \"Files\"))\n\t      (Shape (Width "
 & "0 + 10000) (TRA \"File KB\"))\n\t      (Shape (Width 0 + 10000) (TRA \""
 & "Wire KB\"))\n\t      (Shape (Width 0 + 10000) (TRA \"Compr %\")))\n\t  "
 & "  (Chisel)\n\t    (STATSROW %edit  \"Edit\")\n\t";

CONST E3_2 =
   "    (STATSROW %co    \"Checkout\")\n\t    (STATSROW %rsync \"Rsync\")\n"
 & "\t    (STATSROW %app   \"Append\")\n\t    (STATSROW %touch \"Touch\")\n"
 & "\t    (STATSROW %add   \"Create\")\n\t    (STATSROW %del   \"Delete\")\n"
 & "\t    (STATSROW %repl  \"Replace\")\n\t    (STATSROW %fixup \"Fixup\")\n"
 & "\t    (STATSROW %other \"Other\")\n\t    (Chisel)\n\t    (STATSROW %tot"
 & "   \"Total\")\n\n\t    (Glue 12.0)\n\t    (COMMSTATS)\n\t    (Glue 12.0"
 & ")\n\n\t    (HBox\n\t      (Shape (Width + 0)\n\t\t(TLA \"Elapsed time\""
 & "))\n\t      (Glue 3.0)\n\t      (Shape (Width + 0)\n\t\t(Text %clock (L"
 & "abelFont \"fixed\") \"00:00:00\"))\n\t      (Fill)\n\t      (Shape (Wid"
 & "th + 0)\n\t\t(TLA \"Update rate\"))\n\t      (Shape (Width + 0)\n\t\t(T"
 & "ext %xferRate RightAlign (LabelFont \"fixed\")\n\t\t  \"    0.0 KB/sec\""
 & ")))\n\n\t    (Glue 12.0)\n\t    (BRIEFTRACE %lister \"Listing\")\n\t   "
 & " (BRIEFTRACE %detailer \"Detailing\"))))\n      (Fill)))\n\n  (Macro FI"
 & "LTER ()\n    `(Shape (Height + 0 - 0)\n      (HBox\n\t(Glue 5.0)\n\t(Sh"
 & "ape (Width + 0 - 0)\n\t  (TLA \"Filter \"))\n\t(Frame Lowered\n\t  (Sha"
 & "pe (Width + Inf - Inf)\n\t    (Filter Passive\n\t      (TypeIn %filter "
 & "ExpandOnDemand))))\n\t(Glue 1.0))))\n\n  (Macro CONTROLS ()\n    `(Shap"
 & "e (Height + 0 - 0)\n      (HBox\n\t(Shape (Width + 0)\n\t  (HBox\n\t   "
 & " (LightShadow HSV 0.000 0.000 1.000)\n\t    (BgColor     HSV 0.000 0.00"
 & "0 0.750)\n\t    (DarkShadow  HSV 0.000 0.000 0.500)\n\t    (TSplit\n\t "
 & "     (Filter Dormant\n\t\t(Button %quit (Color \"DarkRed\")\n\t\t  (Pix"
 & "map \"exit.pbm\")))\n\t      (Filter Dormant\n\t\t(Button %abort (Color"
 & " \"DarkRed\")\n\t\t  (Pixmap \"stop.pbm\"))))\n\t    (Filter Dormant\n\t"
 & "      (Button %start (Color \"QuiteDarkGreen\")\n\t\t(Pixmap \"tape_pla"
 & "y.pbm\")))))\n\t(Glue 3.0)\n\t(Shape (Width + Inf - Inf)\n\t  (Text %st"
 & "atus (LabelFont \"fixed\") LeftAlign \"\"))\n\t(Shape (Width + 0 - 0)\n"
 & "\t  (HBox\n\t    (LightShadow HSV 0.000 0.000 1.000)\n\t    (BgColor   "
 & "  HSV 0.000 0.000 0.750)\n\t    (DarkShadow  HSV 0.000 0.000 0.500)\n\t"
 & "    (PopButton %about (For aboutWindow)\n\t      (Pixmap \"info.pbm\"))"
 & ")))))\n\n  (ZSplit\n    (ZBackground\n      (VBox\n\t(HBox\n\t  (Shape "
 & "(Width 0 + 10000)\n\t    (STATS))\n\t  (Chisel)\n\t  (Shape (Width 0 + "
 & "10000)\n\t ";

CONST E3_3 =
   "   (Font \"fixed\")\n\t    (MESSAGES)))\n\t(Chisel)\n\t(FILTER)\n\t(Chi"
 & "sel)\n\t(CONTROLS)))\n    (ZChassis %aboutWindow (Title \"About CVSup\""
 & ")\n      (Color \"SomewhatDarkBlue\")\n      (LightShadow HSV 0.000 0.0"
 & "00 1.000)\n      (BgColor     HSV 0.000 0.000 0.750)\n      (DarkShadow"
 & "  HSV 0.000 0.000 0.500)\n      (Rim (Pen 10)\n\t(LabelFont\n\t  (Weigh"
 & "tName \"medium\")\n\t  (Width \"normal\")\n\t  (PointSize 120))\n\t(ABO"
 & "UT)))\n    (ZChassis %licenseWindow (Title \"License\")\n      (Color \""
 & "Black\")\n      (LightShadow HSV 0.000 0.000 1.000)\n      (BgColor    "
 & " HSV 0.000 0.000 0.750)\n      (DarkShadow  HSV 0.000 0.000 0.500)\n   "
 & "   (Font \"fixed\")\n      (COPYRIGHT)))\n)\n";

CONST E4 =
   "P1\n16 16\n0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 "
 & "0 0 0 0 0\n0 0 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 0 0 0 0 0 0 0 "
 & "0 0 0 0 1\n1 0 1 1 1 0 0 0 0 0 0 0 0 0 0 1 1 0 0 1 1 1 0 0 0 0 0 0 0 0 "
 & "0 1 1 0 0\n0 1 1 1 0 0 0 0 0 0 0 0 1 1 0 0 0 0 1 1 1 0 0 0 0 0 0 0 1 1 "
 & "0 0 0 1 1\n1 0 0 0 0 0 0 0 0 1 1 0 0 1 1 1 0 0 0 0 0 0 0 0 0 1 1 0 1 1 "
 & "1 0 0 0 0\n0 0 0 0 0 0 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 0 0 0 0 "
 & "0 0 0 0 0\n0 0 0 1 1 1 0 0 0 0 0 0 0 0 0 0 0 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\n";

CONST E5 =
   "P1\n16 16\n0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 0 1 0 0 1 0 1 1 1 1 "
 & "0 0 0 1 0\n0 0 1 0 0 1 0 1 0 1 0 0 0 0 1 0 0 0 0 1 1 0 0 1 0 1 0 0 0 0 "
 & "1 1 0 0 0\n1 1 0 0 1 0 1 0 0 0 0 1 0 0 0 1 0 0 1 0 1 0 1 0 0 0 0 1 0 0 "
 & "0 1 0 0 1\n0 1 0 1 0 0 0 0 1 1 1 0 1 0 0 1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 "
 & "0 0 0 0 0\n0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 "
 & "0 0 0 0 0\n0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 "
 & "1 0 0 0 0\n0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 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\n";

CONST E6 =
   "Copyright \251 1996-2003 John D. Polstra.\nAll rights reserved.\n\nRedi"
 & "stribution and use in source and binary forms, with or without\nmodific"
 & "ation, are permitted provided that the following conditions\nare met:\n"
 & "1. Redistributions of source code must retain the above copyright\n   n"
 & "otice, this list of conditions and the following disclaimer.\n2. Redist"
 & "ributions in binary form must reproduce the above copyright\n   notice,"
 & " this list of conditions and the following disclaimer in the\n   docume"
 & "ntation and/or other materials provided with the distribution.\n3. All "
 & "advertising materials mentioning features or use of this software\n   m"
 & "ust display the following acknowledgment:\n     This product includes s"
 & "oftware developed by John D. Polstra.\n4. The name of the author may no"
 & "t be used to endorse or promote products\n   derived from this software"
 & " without specific prior written permission.\n\nTHIS SOFTWARE IS PROVIDE"
 & "D BY THE AUTHOR ``AS IS\'\' AND ANY EXPRESS OR\nIMPLIED WARRANTIES, INC"
 & "LUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES\nOF MERCHANTABILITY "
 & "AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.\nIN NO EVENT SHALL"
 & " THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,\nINCIDENTAL, SPECIAL, E"
 & "XEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT\nNOT LIMITED TO, PRO"
 & "CUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,\nDATA, OR PROFIT"
 & "S; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY\nTHEORY OF LIABI"
 & "LITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT\n(INCLUDING NEGLIG"
 & "ENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF\nTHIS SOFTWARE,"
 & " EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.\n\nCVSup is a regis"
 & "tered trademark of John D. Polstra.\n";

BEGIN
END SupGUIBundle.