home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / x / xcu16.zip / clients / xcell / cell.wl < prev    next >
Text File  |  1991-10-03  |  11KB  |  435 lines
  1. XcuWlm
  2.     {
  3.     *dimFacetColor "SteelBlue"
  4.     *brightFacetColor "LightSteelBlue"
  5.     *Label.background "LightGray"
  6.     *Label.borderColor "LightGray"
  7.     *Label.foreground "black"
  8.     *Label.facetWidth "0"
  9.     XcuTbl
  10.     {
  11.     formatString "c c c."
  12.     alignedColumns "True"
  13.     background "White"
  14.     internalWidth "20"
  15.     internalHeight "20"
  16.     interWidth "10"
  17.     interHeight "10"
  18.     XcuLabel { label "UL" }
  19.     XcuTbl
  20.         {
  21.         formatString "c s\nc c."
  22.         alignedColumns "True"
  23.         XcuLabel { label "PALETTE" }
  24.         XcuTbl
  25.         {
  26.         equalRows "True"
  27.         formatString "c\nc\nc\nc\nc\n^."
  28.         borderColor "LightGray"
  29.         XcuLabel { label "Action" }
  30.         XcuLabel { label "Frequency" }
  31.         XcuLabel { label "Sequence" }
  32.         XcuLabel { label "N Colors" }
  33.         XcuLabel { label "Current\nPalette" }
  34.         }
  35.         XcuTbl
  36.         {
  37.         formatString "c."
  38.         *equalColumns "True"
  39.         XcuTbl
  40.             {
  41.             XcuBmgr
  42.             {
  43.             bmgrType "Transient"
  44.             manage "palette_initial" "palette_next" "palette_prev"
  45.             if setCallback (x == String "palette_initial")
  46.                 XcuCellFirstMap (XcuCell "cell")
  47.             if setCallback (x == String "palette_next")
  48.                 XcuCellNextMap (XcuCell "cell", Int "1")
  49.             if setCallback (x == String "palette_prev")
  50.                 XcuCellNextMap (XcuCell "cell", Int "-1")
  51.             XcuButton { name "palette_initial" label "Initial" set "True" }
  52.             XcuButton { name "palette_next" label "Next" }
  53.             XcuButton { name "palette_prev" label "Previous" }
  54.             }
  55.             }
  56.         XcuTbl
  57.             {
  58.             XcuBmgr
  59.             {
  60.             bmgrType "OneOfMany"
  61.             manage "palette_fixed"
  62.             manage "palette_page"
  63.             manage "palette_rule"
  64.             manage "palette_line"
  65.             if setCallback (x == String "palette_fixed")
  66.                 XtSetValues (XcuCell "cell", frequency "fixed_frequency")
  67.             if setCallback (x == String "palette_page")
  68.                 XtSetValues (XcuCell "cell", frequency "page_frequency")
  69.             if setCallback (x == String "palette_rule")
  70.                 XtSetValues (XcuCell "cell", frequency "rule_frequency")
  71.             if setCallback (x == String "palette_line")
  72.                 XtSetValues (XcuCell "cell", frequency "line_frequency")
  73.             XcuButton { name "palette_fixed" label "Fixed" set "True" }
  74.             XcuButton { name "palette_page" label "Page" }
  75.             XcuButton { name "palette_rule" label "Rule" }
  76.             XcuButton { name "palette_line" label "Line" }
  77.             }
  78.             }
  79.         XcuTbl
  80.             {
  81.             XcuBmgr
  82.             {
  83.             bmgrType "OneOfMany"
  84.             manage "next_permute"
  85.             manage "random_permute"
  86.             manage "random_colors"
  87.             if setCallback (x == String "next_permute")
  88.                 XtSetValues (XcuCell "cell", sequence "orderedPermute")
  89.             if setCallback (x == String "random_permute")
  90.                 XtSetValues (XcuCell "cell", sequence "randomPermute")
  91.             if setCallback (x == String "random_colors")
  92.                 XtSetValues (XcuCell "cell", sequence "randomColor")
  93.             XcuButton { name "next_permute" label "Ordered Permute" set "True" }
  94.             XcuButton { name "random_permute" label "Random Permute" }
  95.             XcuButton { name "random_colors" label "Random Colors" }
  96.             }
  97.             }
  98.         XcuTbl
  99.             {
  100.             XcuBmgr
  101.             {
  102.             bmgrType "OneOfMany"
  103.             manage "n2" : Int "2"
  104.             manage "n3" : Int "3"
  105.             manage "n4" : Int "4"
  106.             manage "n5" : Int "5"
  107.             manage "n6" : Int "6"
  108.             manage "n7" : Int "7"
  109.             manage "n8" : Int "8"
  110.             if setCallback ()
  111.                 XtSetValues (XcuCell "cell", nColors "CALL")
  112.             XcuButton { name "n2" label "2" }
  113.             XcuButton { name "n3" label "3" }
  114.             XcuButton { name "n4" label "4" }
  115.             XcuButton { name "n5" label "5" }
  116.             XcuButton { name "n6" label "6" set "True" }
  117.             XcuButton { name "n7" label "7" }
  118.             XcuButton { name "n8" label "8" }
  119.             }
  120.             }
  121.         XcuTbl
  122.             {
  123.             formatString "c c c c."
  124.             *colorEntry "True"
  125.             *signalChar "\n"
  126.             *biggestLabel " MediumAquamarine "
  127.             XcuEntry
  128.             {
  129.             if callback ()
  130.                 XtSetValues (XcuCell "cell", color0 "CALL")
  131.             name "c0" label "Black"
  132.             }
  133.             XcuEntry
  134.             {
  135.             if callback ()
  136.                 XtSetValues (XcuCell "cell", color1 "CALL")
  137.             name "c1" label "White"
  138.             }
  139.             XcuEntry
  140.             {
  141.             if callback ()
  142.                 XtSetValues (XcuCell "cell", color2 "CALL")
  143.             name "c2" label "Blue"
  144.             }
  145.             XcuEntry
  146.             {
  147.             if callback ()
  148.                 XtSetValues (XcuCell "cell", color3 "CALL")
  149.             name "c3" label "Green"
  150.             }
  151.             XcuEntry
  152.             {
  153.             name "c4" label "Red"
  154.             if callback ()
  155.                 XtSetValues (XcuCell "cell", color4 "CALL")
  156.             }
  157.             XcuEntry
  158.             {
  159.             name "c5" label "Yellow"
  160.             if callback ()
  161.                 XtSetValues (XcuCell "cell", color5 "CALL")
  162.             }
  163.             XcuEntry
  164.             {
  165.             name "c6" label "Cyan"
  166.             if callback ()
  167.                 XtSetValues (XcuCell "cell", color6 "CALL")
  168.             }
  169.             XcuEntry
  170.             {
  171.             name "c7" label "Magenta"
  172.             if callback ()
  173.                 XtSetValues (XcuCell "cell", color7 "CALL")
  174.             }
  175.             }
  176.         }
  177.         }
  178.     XcuLabel { label "UR" }
  179.     XcuLabel { label "L" }
  180.  
  181.     XcuCell {
  182.         name "cell"
  183.         verticalMerge "True"
  184.         pickFile "PICK"
  185.         perCol "2"
  186.         /*
  187.          * This rulesFile is a NOP
  188.          * Note that the rulesFile will actually be determined
  189.          * by an XcuEntry!
  190.          */
  191.         rulesFile "LCR4/f.all"
  192.         width "401" height "401" name "cell"
  193.         facetWidth "10"
  194.         shadow "false"
  195.         }
  196.     XcuTbl
  197.         {
  198.         formatString "c."
  199.         interWidth "5"
  200.         interHeight "5"
  201.         *Tbl.internalWidth "5"
  202.         *Tbl.internalHeight "5"
  203.         *Tbl.background "LightGray"
  204.         *Tbl.equalColumns "True"
  205.         borderColor "White"
  206.         XcuTbl
  207.         {
  208.         formatString "c\nc c c."
  209.         XcuLabel { name "Cols" }
  210.         XcuBmgr
  211.             {
  212.             bmgrType "OneOfMany"
  213.             manage "v1" : Int "1"
  214.             manage "v2" : Int "2"
  215.             manage "v3" : Int "3"
  216.             manage "v4" : Int "4"
  217.             manage "v5" : Int "5"
  218.             manage "v6" : Int "6"
  219.             manage "v8" : Int "8"
  220.             manage "v10" : Int "10"
  221.             manage "v12" : Int "12"
  222.             if setCallback ()
  223.             XtSetValues (XcuCell "cell", perRow "CALL")
  224.             XcuButton { name "v1" label "1" set "True" }
  225.             XcuButton { name "v2" label "2" }
  226.             XcuButton { name "v3" label "3" }
  227.             XcuButton { name "v4" label "4" }
  228.             XcuButton { name "v5" label "5" }
  229.             XcuButton { name "v6" label "6" }
  230.             XcuButton { name "v8" label "8" }
  231.             XcuButton { name "v10" label "10" }
  232.             XcuButton { name "v12" label "12" }
  233.             }
  234.         }
  235.         XcuTbl
  236.         {
  237.         formatString "c\nc c c\nc c c\nc c c."
  238.         XcuLabel { name "Rows" }
  239.         XcuBmgr
  240.             {
  241.             bmgrType "OneOfMany"
  242.             manage "h1" : Int "1"
  243.             manage "h2" : Int "2"
  244.             manage "h3" : Int "3"
  245.             manage "h4" : Int "4"
  246.             manage "h5" : Int "5"
  247.             manage "h6" : Int "6"
  248.             manage "h8" : Int "8"
  249.             manage "h10" : Int "10"
  250.             manage "h12" : Int "12"
  251.             if setCallback ()
  252.             XtSetValues (XcuCell "cell", perCol "CALL")
  253.             XcuButton { name "h1" label "1" set "True" }
  254.             XcuButton { name "h2" label "2" }
  255.             XcuButton { name "h3" label "3" }
  256.             XcuButton { name "h4" label "4" }
  257.             XcuButton { name "h5" label "5" }
  258.             XcuButton { name "h6" label "6" }
  259.             XcuButton { name "h8" label "8" }
  260.             XcuButton { name "h10" label "10" }
  261.             XcuButton { name "h12" label "12" }
  262.             }
  263.         }
  264.         XcuTbl
  265.         {
  266.         XcuBmgr
  267.             {
  268.             bmgrType "SingleToggle"
  269.             manage "Alternate"
  270.             if setCallback ()
  271.             XtSetValues (XcuCell "cell", alternating "True")
  272.             if unsetCallback ()
  273.             XtSetValues (XcuCell "cell", alternating "False")
  274.             XcuButton { name "Alternate" set "False" }
  275.             }
  276.         }
  277.         XcuTbl
  278.         {
  279.         formatString "c\nc c."
  280.         XcuLabel { name "Vertical Merge" }
  281.         XcuBmgr
  282.             {
  283.             bmgrType "DoubleToggle"
  284.             manage "vmt" "vmf"
  285.             if setCallback (x == String "vmt")
  286.             XtSetValues (XcuCell "cell", verticalMerge "True")
  287.             if setCallback (x == String "vmf")
  288.             XtSetValues (XcuCell "cell", verticalMerge "False")
  289.             XcuButton { name "vmt" label "True" }
  290.             XcuButton { name "vmf" label "False" set "True" }
  291.             }
  292.         }
  293.         XcuTbl
  294.         {
  295.         formatString "c\nc c."
  296.         XcuLabel { name "Horizontal Merge" }
  297.         XcuBmgr
  298.             {
  299.             bmgrType "DoubleToggle"
  300.             manage "hmt" "hmf"
  301.             if setCallback (x == String "hmt")
  302.             XtSetValues (XcuCell "cell", horizontalMerge "True")
  303.             if setCallback (x == String "hmf")
  304.             XtSetValues (XcuCell "cell", horizontalMerge "False")
  305.             XcuButton { name "hmt" label "True" }
  306.             XcuButton { name "hmf" label "False" set "True" }
  307.             }
  308.         }
  309.         XcuTbl
  310.         {
  311.         formatString "c\nc c."
  312.         XcuLabel { name "Perturbation" }
  313.         XcuBmgr
  314.             {
  315.             name "perturb"
  316.             bmgrType "DoubleToggle"
  317.             manage "perturb_true" "perturb_false"
  318.             if setCallback (x == String "perturb_true")
  319.             XtSetValues (XcuCell "cell", perturb "True")
  320.             if setCallback (x == String "perturb_false")
  321.             XtSetValues (XcuCell "cell", perturb "False")
  322.             XcuButton { name "perturb_true" label "True" }
  323.             XcuButton { name "perturb_false" label "False" set "True" }
  324.             }
  325.         }
  326.         XcuTbl
  327.         {
  328.         formatString "c c."
  329.         XcuBmgr
  330.             {
  331.             name "Pause"
  332.             bmgrType "DoubleToggle"
  333.             manage "pause" : Boolean "False"
  334.             manage "go" : Boolean "True"
  335.             XcuButton { name "pause" label "Pause" }
  336.             XcuButton { name "go" label "Run" set "True" }
  337.             }
  338.         }
  339.         }
  340.     XcuLabel { label "LL" }
  341.     XcuTbl
  342.         {
  343.         formatString "padding(5);c c c c\nc c s s."
  344.         alignedColumns "True"
  345.         *Tbl.internalWidth "5"
  346.         *Tbl.internalHeight "5"
  347.         *Tbl.background "LightGray"
  348.         background "LightGray"
  349.         XcuLabel { name "Rule File" }
  350.         XcuEntry
  351.             {
  352.             name "RuleFile"
  353.             /*
  354.             label "random"
  355.             */
  356.             label "LCR4/f.all"
  357.             if callback ()
  358.             XtSetValues (XcuCell "cell", rulesFile "CALL")
  359.             if callback (x == String "")
  360.             SetChild (XcuBmgr "perturb", XcuButton "perturb_false")
  361.             if callback (x == String "")
  362.             XtSetValues (XcuEntry "RuleFile", label "random")
  363.             if callback (x == String "random")
  364.             SetChild (XcuBmgr "perturb", XcuButton "perturb_false")
  365.             biggestLabel " LCR4/f.0000000000 "
  366.             justify "left"
  367.             signalChar "\n"
  368.             }
  369.         XcuBmgr
  370.             {
  371.             name "order"
  372.             bmgrType "DoubleToggle"
  373.             manage "in_order"
  374.             manage "random_order"
  375.             if setCallback (x == String "in_order")
  376.             XtSetValues (XcuCell "cell", orderedRules "True")
  377.             if setCallback (x == String "random_order")
  378.             XtSetValues (XcuCell "cell", orderedRules "False")
  379.             XcuButton { name "in_order" label "Ordered" }
  380.             XcuButton { name "random_order" label "Random" set "True" }
  381.             }
  382.         XcuLabel { name "Pick File" }
  383.         XcuEntry
  384.             {
  385.             name "PickFile"
  386.             biggestLabel "OneHeckuvaBigFilename"
  387.             label "./_pick"
  388.             if callback ()
  389.             XtSetValues (XcuCell "cell", pickFile "CALL")
  390.             justify "left"
  391.             signalChar "\n"
  392.             }
  393.         XcuLabel { name "Ignore String" }
  394.         XcuEntry
  395.             {
  396.             name "IgnoreString"
  397.             label ""
  398.             biggestLabel "1, 2, 3, 4, 5, 6"
  399.             if callback ()
  400.             XtSetValues (XcuCell "cell", ignoreColors "CALL")
  401.             justify "left"
  402.             signalChar "\n"
  403.             }
  404.         XcuLabel { name "Seed:" }
  405.         XcuLabel { name "seedValue" label "" }
  406.         XcuLabel { name "Rule Type" }
  407.         XcuTbl
  408.         {
  409.         borderColor "LightGray"
  410.         XcuBmgr
  411.             {
  412.             name "types"
  413.             bmgrType "OneOfMany"
  414.             manage "lcr3" "lcr4" "lcr5"
  415.             manage "lccr4" "lccrrr4"
  416.             manage "klcrt3" "klcrt4" "klcrt5"
  417.             if setCallback ()
  418.             XtSetValues (XcuCell "cell", cellType "CALL")
  419.             if setCallback ()
  420.             SetChild (XcuBmgr "perturb", XcuButton "perturb_false")
  421.             XcuButton { name "lcr3" }
  422.             XcuButton { name "lcr4" set "True" }
  423.             XcuButton { name "lcr5" }
  424.             XcuButton { name "lccr4" }
  425.             XcuButton { name "lccrrr4" }
  426.             XcuButton { name "klcrt3" }
  427.             XcuButton { name "klcrt4" }
  428.             XcuButton { name "klcrt5" }
  429.             }
  430.         }
  431.         }
  432.     XcuLabel { label "LR" }
  433.     }
  434.     }
  435.