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 / bw_menu.wl < prev    next >
Text File  |  1991-10-03  |  2KB  |  74 lines

  1. XcuWlm
  2.     {
  3.     *shadow "True"
  4.     *dimFacetColor "Black"
  5.     *facetWidth "5"
  6.     *Tbl.facetWidth "0"
  7.     *Label.background "white"
  8.     *Label.borderColor "white"
  9.     *Label.foreground "black"
  10.     *Tbl.internalWidth "20"
  11.     *Tbl.internalHeight "20"
  12.     *Tbl.interWidth "10"
  13.     *Tbl.interHeight "10"
  14.     XcuTbl
  15.     {
  16.     formatString "c."
  17.     background "White"
  18.     internalWidth "20"
  19.     internalHeight "20"
  20.     interWidth "10"
  21.     interHeight "10"
  22.  
  23.     XcuTbl
  24.         {
  25.         formatString "c."
  26.         background "white"
  27.         XcuLabel { dimFacetColor "Green" borderColor "red" facetWidth "0" name "Variable Menu Pages" }
  28.         XcuDeck
  29.         {
  30.         name "menu"
  31.         background "white"
  32.         facetWidth "0"
  33.         *Label.internalWidth "50"
  34.         *Label.internalHeight "100"
  35.         *Label.background "white"
  36.         XcuLabel { name "Menu Page 1" }
  37.         XcuLabel { name "Menu Page 2" }
  38.         XcuLabel { name "Menu Page 3" }
  39.         XcuLabel { name "Menu Page 4" }
  40.         }
  41.         }
  42.  
  43.     XcuTbl
  44.         {
  45.         formatString "c."
  46.         background "white"
  47.         XcuLabel { facetWidth "0" name "Permanent Menu Buttons" }
  48.         XcuTbl
  49.         {
  50.         formatString "c c."
  51.         background "white"
  52.         XcuBmgr
  53.             {
  54.             bmgrType "OneOfMany"
  55.             if setCallback ( String "Page\n1" == x )
  56.             RaiseWidget (XcuDeck "menu", XcuLabel "Menu Page 1")
  57.             if setCallback ( String "Page\n2" == x )
  58.             RaiseWidget (XcuDeck "menu", XcuLabel "Menu Page 2")
  59.             if setCallback ( String "Page\n3" == x )
  60.             RaiseWidget (XcuDeck "menu", XcuLabel "Menu Page 3")
  61.             if setCallback ( String "Page\n4" == x )
  62.             RaiseWidget (XcuDeck "menu", XcuLabel "Menu Page 4")
  63.             manage "Page\n1" "Page\n2" "Page\n3" "Page\n4"
  64.             XcuButton { name "Page\n1" set "True" }
  65.             XcuButton { name "Page\n2" }
  66.             XcuButton { name "Page\n3" }
  67.             XcuButton { name "Page\n4" }
  68.             }
  69.         }
  70.         }
  71.     }
  72.     }
  73.  
  74.