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 / xlayout / menu.wl < prev    next >
Text File  |  1991-10-03  |  2KB  |  77 lines
  1. XcuWlm
  2.     {
  3.     *dimFacetColor "SteelBlue"
  4.     *brightFacetColor "LightSteelBlue"
  5.     *facetWidth "5"
  6.     *Command.background "white"
  7.     *Command.foreground "black"
  8.     *Command.cursor "dot"
  9.     *Label.background "LightGray"
  10.     *Label.borderColor "LightGray"
  11.     *Label.foreground "black"
  12.     *Label.facetWidth "0"
  13.     *Tbl.internalWidth "20"
  14.     *Tbl.internalHeight "20"
  15.     *Tbl.interWidth "10"
  16.     *Tbl.interHeight "10"
  17.     XcuTbl
  18.     {
  19.     formatString "c."
  20.     background "White"
  21.     internalWidth "20"
  22.     internalHeight "20"
  23.     interWidth "10"
  24.     interHeight "10"
  25.  
  26.     XcuTbl
  27.         {
  28.         formatString "c."
  29.         background "LightGray"
  30.         XcuLabel { name "Variable Menu Pages" }
  31.         XcuDeck
  32.         {
  33.         name "menu"
  34.         background "Wheat"
  35.         internalWidth "50"
  36.         internalHeight "100"
  37.         *Label.background "Wheat"
  38.         *Label.borderColor "Wheat"
  39.         XcuLabel { name "Menu Page 1" }
  40.         XcuLabel { name "Menu Page 2" }
  41.         XcuLabel { name "Menu Page 3" }
  42.         XcuLabel { name "Menu Page 4" }
  43.         }
  44.         }
  45.  
  46.     XcuTbl
  47.         {
  48.         formatString "c."
  49.         background "LightGray"
  50.         XcuLabel { name "Permanent Menu Buttons" }
  51.         XcuTbl
  52.         {
  53.         formatString "c c."
  54.         background "Wheat"
  55.         XcuBmgr
  56.             {
  57.             bmgrType "OneOfMany"
  58.             if setCallback ( String "Page\n1" == x )
  59.             RaiseWidget (XcuDeck "menu", XcuLabel "Menu Page 1")
  60.             if setCallback ( String "Page\n2" == x )
  61.             RaiseWidget (XcuDeck "menu", XcuLabel "Menu Page 2")
  62.             if setCallback ( String "Page\n3" == x )
  63.             RaiseWidget (XcuDeck "menu", XcuLabel "Menu Page 3")
  64.             if setCallback ( String "Page\n4" == x )
  65.             RaiseWidget (XcuDeck "menu", XcuLabel "Menu Page 4")
  66.             manage "Page\n1" "Page\n2" "Page\n3" "Page\n4"
  67.             XcuButton { name "Page\n1" set "True" }
  68.             XcuButton { name "Page\n2" }
  69.             XcuButton { name "Page\n3" }
  70.             XcuButton { name "Page\n4" }
  71.             }
  72.         }
  73.         }
  74.     }
  75.     }
  76.  
  77.