home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume19 / wkshTree / part02 < prev    next >
Text File  |  1993-04-28  |  47KB  |  2,059 lines
  1. Newsgroups: comp.sources.x
  2. From: Eric_Wallengren@univel.com (Eric Wallengren)
  3. Subject: v19i071:  wkshTree - Windowing Korn Shell Widget Tree. Examples of wksh widgets., Part02/02
  4. Message-ID: <1993Apr4.001406.1272@sparky.imd.sterling.com>
  5. X-Md4-Signature: 488020cb97e6c1d41529510b27eadd6f
  6. Date: Sun, 4 Apr 1993 00:14:06 GMT
  7. Approved: chris@sparky.imd.sterling.com
  8.  
  9. Submitted-by: Eric_Wallengren@univel.com (Eric Wallengren)
  10. Posting-number: Volume 19, Issue 71
  11. Archive-name: wkshTree/part02
  12. Environment: X11. wksh
  13.  
  14.  
  15. #!/bin/sh
  16. # This is part 02 of a multipart archive
  17. # ============= Stub ==============
  18. if test -f 'Stub' -a X"$1" != X"-c"; then
  19.     echo 'x - skipping Stub (File already exists)'
  20. else
  21. echo 'x - extracting Stub (Text)'
  22. sed 's/^X//' << 'SHAR_EOF' > 'Stub' &&
  23. Stub()
  24. {
  25. X    cmw POPUP transient transientShell $PANE \\\n
  26. X        title:"Stub"
  27. X
  28. X    cmw RT rubberTile rubberTile $POPUP \\\n
  29. X        orientation:vertical
  30. X
  31. X    cmw CAPTION caption caption $RT \\\n
  32. X        label:"Stub:" \\\n
  33. X        font:OlDefaultBoldFont \\\n
  34. X        position:top \\\n
  35. X        alignment:left    
  36. X
  37. X    cmw STUB stub stub $CAPTION \\\n
  38. X        width:100 \\\n
  39. X        traversalOn:true \\\n
  40. X        shadowThickness:10 \\\n
  41. X        height:25
  42. X
  43. X    cmw OK Ok flatButtons $RT \\\n
  44. X        gravity:center \\\n
  45. X        weight:0 \\\n
  46. X        numItems:1 \\\n
  47. X        numItemFields:1 \\\n
  48. X        itemFields:'{label}' \\\n
  49. X        items:'{Ok}'
  50. X
  51. X    sv $OK selectProc:"PopdownCB $POPUP"
  52. X
  53. X    orh $POPUP "Stub Source" -f `pwd`/Stub
  54. X
  55. X    pu $POPUP GrabNone
  56. }
  57. SHAR_EOF
  58. chmod 0644 Stub ||
  59. echo 'restore of Stub failed'
  60. Wc_c="`wc -c < 'Stub'`"
  61. test 637 -eq "$Wc_c" ||
  62.     echo 'Stub: original size 637, current size' "$Wc_c"
  63. fi
  64. # ============= Text ==============
  65. if test -f 'Text' -a X"$1" != X"-c"; then
  66.     echo 'x - skipping Text (File already exists)'
  67. else
  68. echo 'x - extracting Text (Text)'
  69. sed 's/^X//' << 'SHAR_EOF' > 'Text' &&
  70. Text()
  71. {
  72. X    cps POPUP popupWindowShell popupWindowShell $PANE \\\n
  73. X        title:"WkshTree: Text"
  74. X    
  75. X    acb $POPUP popdownCallback "DestroyCB $POPUP"
  76. X
  77. X    cmw CAPTION caption caption $POPUP_UCA \\\n
  78. X        label:"Text:" \\\n
  79. X        font:OlDefaultBoldFont \\\n
  80. X        position:top \\\n
  81. X        alignment:left
  82. X
  83. X    cmw TEXT text text $CAPTION \\\n
  84. X        width:200 \\\n
  85. X        height:100
  86. X
  87. X    cmw OK Ok $TYPEBUTTON $POPUP_LCA
  88. X
  89. X    orh $POPUP "Text Source" -f `pwd`/Text
  90. X
  91. X    pu $POPUP GrabNone
  92. } 
  93. SHAR_EOF
  94. chmod 0644 Text ||
  95. echo 'restore of Text failed'
  96. Wc_c="`wc -c < 'Text'`"
  97. test 438 -eq "$Wc_c" ||
  98.     echo 'Text: original size 438, current size' "$Wc_c"
  99. fi
  100. # ============= Textedit ==============
  101. if test -f 'Textedit' -a X"$1" != X"-c"; then
  102.     echo 'x - skipping Textedit (File already exists)'
  103. else
  104. echo 'x - extracting Textedit (Text)'
  105. sed 's/^X//' << 'SHAR_EOF' > 'Textedit' &&
  106. Textedit()
  107. {
  108. X    cps POPUP popupWindowShell popupWindowShell $PANE \\\n
  109. X        title:"WkshTree: TextEdit" 
  110. X
  111. X    acb $POPUP popdownCallback "dw $POPUP"
  112. X
  113. X    cmw CAPTION caption caption $POPUP_UCA \\\n
  114. X        label:"TextEdit" \\\n
  115. X        font:OlDefaultBoldFont \\\n
  116. X        position:top \\\n
  117. X        alignment:left
  118. X
  119. X    cmw TEXTEDIT textEdit textEdit $CAPTION \\\n
  120. X        source:"The TextEdit widget displays multi-line text. It can wrap on white space" \\\n
  121. X        width:200 \\\n
  122. X        height:100
  123. X
  124. X    cmw OK Ok flatButtons $POPUP_LCA \\\n
  125. X        numItems:1 \\\n
  126. X        numItemFields:1 \\\n
  127. X        itemFields:'{label}' \\\n
  128. X        items:'{Ok}' 
  129. X
  130. X    sv $OK selectProc:"PopdownCB $POPUP"
  131. X
  132. X    orh $POPUP "TextEdit Source" -f `pwd`/Textedit
  133. X
  134. X    pu $POPUP GrabNone 
  135. }
  136. SHAR_EOF
  137. chmod 0644 Textedit ||
  138. echo 'restore of Textedit failed'
  139. Wc_c="`wc -c < 'Textedit'`"
  140. test 680 -eq "$Wc_c" ||
  141.     echo 'Textedit: original size 680, current size' "$Wc_c"
  142. fi
  143. # ============= Textfield ==============
  144. if test -f 'Textfield' -a X"$1" != X"-c"; then
  145.     echo 'x - skipping Textfield (File already exists)'
  146. else
  147. echo 'x - extracting Textfield (Text)'
  148. sed 's/^X//' << 'SHAR_EOF' > 'Textfield' &&
  149. Textfield()
  150. {
  151. X    cps POPUP popupWindowShell popupWindowShell $PANE \\\n
  152. X        title:"WkshTree: TextField" 
  153. X        
  154. X    acb $POPUP popdownCallback "dw $POPUP"
  155. X
  156. X    cmw CAPTION caption caption $POPUP_UCA \\\n
  157. X        label:"TextField:" \\\n
  158. X        font:OlDefaultBoldFont \\\n
  159. X        position:left
  160. X
  161. X    cmw TEXT textField textField $CAPTION \\\n
  162. X        string:"initial string" \\\n
  163. X        charsVisible:15
  164. X
  165. X    cmw OK Ok flatButtons $POPUP_LCA \\\n
  166. X        numItems:1 \\\n
  167. X        numItemFields:1 \\\n
  168. X        itemFields:'{label}' \\\n
  169. X        items:'{Ok}' 
  170. X
  171. X    sv $OK selectProc:"PopdownCB $POPUP"
  172. X    
  173. X    orh $POPUP "TextField Source" -f `pwd`/Textfield
  174. X
  175. X    pu $POPUP GrabNone
  176. }
  177. SHAR_EOF
  178. chmod 0644 Textfield ||
  179. echo 'restore of Textfield failed'
  180. Wc_c="`wc -c < 'Textfield'`"
  181. test 595 -eq "$Wc_c" ||
  182.     echo 'Textfield: original size 595, current size' "$Wc_c"
  183. fi
  184. # ============= wkshTree ==============
  185. if test -f 'wkshTree' -a X"$1" != X"-c"; then
  186.     echo 'x - skipping wkshTree (File already exists)'
  187. else
  188. echo 'x - extracting wkshTree (Text)'
  189. sed 's/^X//' << 'SHAR_EOF' > 'wkshTree' &&
  190. #! /usr/X/bin/wksh -openlook
  191. X
  192. # wkshTree -          Eric Wallengren Univel 1993, extracted from 
  193. #             widgetTree from USL written by Betty Dall.
  194. #
  195. # A Windowing Korn Shell application used to display all widgets 
  196. # known by wksh and some resources for each of those widgets.
  197. #
  198. # Thanks to Steve Pendergrast and Betty Dall for their
  199. # help in putting this application together.
  200. #
  201. # Most widgets in wkshTree are created by creating a popupWindowShell
  202. # and defining the type of widget created as a child of the 
  203. # popupWindowShell. They follow the following basic outline:
  204. #
  205. #    createWidget WIDGET name widget PARENT \
  206. #        resource:value \
  207. #        resource:value
  208. #
  209. #    help PARENT title -f filename
  210. #    popup popupWindowShell    
  211. #
  212. # where
  213. #
  214. #    createWidget    - createManagedWidget - cmw
  215. #              createPopupShell    - cps
  216. #
  217. #    WIDGET        - name referenced by the shell
  218. #
  219. #    name        - unique name which can be referenced by
  220. #               some resources
  221. #
  222. #    widget        - the widget known to wksh
  223. #
  224. #    PARENT        - the parent widget 
  225. #
  226. #    resource    - the resource to be set
  227. #
  228. #    value        - the value to be applied to the resource
  229. #
  230. #    help        - OlRegisterHelp      - orh
  231. #
  232. #    PARENT        - parent to which attach help, in most cases
  233. #              here, the popupWindowShell
  234. #
  235. #    title        - title to print on help window
  236. #
  237. #    -f filename    - file to include for help, in this example
  238. #              all of the individual widgets would have to 
  239. #              be broken down into individual components
  240. X
  241. # Load widgets unknown to wksh
  242. widload category
  243. widload stub
  244. widload text
  245. X
  246. # Popdown callback. Popdown widget named in arg
  247. PopdownCB()
  248. {
  249. X    pd $1
  250. }
  251. X
  252. # Destroy callback. Destroy widget named in arg
  253. DestroyCB()
  254. {
  255. X    dw $1
  256. }
  257. X
  258. # Usefull for debugging. At needed point in app, make this a callback.
  259. Debug()
  260. {
  261. X    widlist >envfile
  262. X    for i in `widlist -h`
  263. X    do
  264. X        widlist -R $i >>envfile
  265. X    done
  266. }
  267. X
  268. # Create menuShell from button pressed by user
  269. MenuShell()
  270. {
  271. X    cps POPUP "WkshTree:Menu" popupWindowShell $PANE \
  272. X        maxHeight:100 maxWidth:200
  273. X
  274. X    acb $POPUP popdownCallback "PopdownCB $POPUP"
  275. X
  276. X    cps MENUSHELLPOP "Menu" menuShell $POPUP_UCA \
  277. X        pushpin:out
  278. X    cmw TMP ca controlArea $MENUSHELLPOP_MP \
  279. X        layoutType:fixedcols measure:1
  280. X
  281. X    cmw SAVE Save... oblongButton $TMP \
  282. X        buttonType:$BUTTON
  283. X    cmw OPEN Open... oblongButton $TMP \
  284. X        buttonType:$BUTTON
  285. X    cmw PROP Properties... oblongButton $TMP \
  286. X        buttonType:$BUTTON
  287. X    cmw EXIT Exit... oblongButton $TMP \
  288. X        buttonType:$BUTTON
  289. X
  290. X    cmw STRING text staticText $POPUP_UCA \
  291. X        string:"MenuShell: Press MenuButton for menu"
  292. X
  293. X    cmw OK Ok flatButtons $POPUP_LCA \
  294. X        numItems:1 \
  295. X        numItemFields:1 \
  296. X        itemFields:'{label}' \
  297. X        items:'{Ok}' 
  298. X
  299. X    orh $POPUP "MenuShell Source" -f `pwd`/MenuShell
  300. X
  301. X    pu $POPUP GrabNone
  302. }
  303. X
  304. # Create modalShell from button selected by user
  305. Modalshell()
  306. {
  307. X    cps POPUP modalshell modalShell $PANE \
  308. X        emanateWidget:$PANE 
  309. X
  310. X    acb $POPUP popdownCallback "pd $POPUP"
  311. X
  312. X    cmw TEXT staticText staticText $POPUP \
  313. X        string:"Error: ModalShell displays modal messages" \
  314. X        gravity:center
  315. X
  316. X    cmw OK Ok flatButtons $POPUP \
  317. X        numItems:1 \
  318. X        numItemFields:1 \
  319. X        itemFields:'{label}' \
  320. X        items:'{Ok}' 
  321. X
  322. X    sv $OK selectProc:"PopdownCB $POPUP"
  323. X
  324. X    orh $POPUP "ModalShell Source" -f `pwd`/Modalshell
  325. X
  326. X    pu $POPUP GrabExclusive
  327. }
  328. X
  329. # Create noticeShell from button selected by user
  330. NoticeShell()
  331. {
  332. X    cps NOTICE notice noticeShell $PANE \
  333. X        title:"Information Dialog" \
  334. X        noticeType:information \
  335. X        emanateWidget:$PANE
  336. X
  337. X    acb $NOTICE popdownCallback "dw $NOTICE"
  338. X
  339. X    sv $NOTICE_TA string:"Information: NoticeShell displays messages" 
  340. X
  341. X    cmw OK Ok flatButtons $NOTICE_CA \
  342. X        numItems:1 \
  343. X        numItemFields:2 \
  344. X        itemFields:'{label}' \
  345. X        items:'{Ok}'
  346. X
  347. X    orh $NOTICE "NoticeShell Source" -f `pwd`/Noticeshell
  348. X
  349. X    pu $NOTICE GrabExclusive
  350. X    
  351. }
  352. X
  353. # PopupMenuShell not fully implemented with this release but
  354. # provided as part of the wkshTree anyway
  355. PopupMenuShell()
  356. {
  357. X    cps POP PopupMenu popupWindowShell $PANE 
  358. X
  359. X    acb $POP popdownCallback "dw $POP"
  360. X
  361. X    cmw POPCAP PopupMenu caption $POP_UCA \
  362. X        font:OlDefaultBoldFont \
  363. X        label:"PopupMenu:"
  364. X    cmw TEXT text staticText $POPCAP \
  365. X        string:"Press MenuButton for menu"
  366. X
  367. X    cps PMS PopupMenu popupMenuShell $POP \
  368. X        ancestorSensitive:true \
  369. X        title:"PopupMenu" 
  370. X
  371. X    cmw SAVE Save... oblongButton $PMS \
  372. X        buttonType:$BUTTON
  373. X    cmw OPEN Open... oblongButton $PMS \
  374. X        buttonType:$BUTTON
  375. X    cmw PROP Properties... oblongButton $PMS \
  376. X        buttonType:$BUTTON
  377. X    cmw EXIT Exit oblongButton $PMS \
  378. X        buttonType:$BUTTON \
  379. X        select:"pd $PMS"
  380. X    cmw OK Ok flatButtons $POP_LCA \
  381. X        numItems:1 \
  382. X        numItemFields:2 \
  383. X        itemFields:'{label}' \
  384. X        items:'{Ok}'
  385. X
  386. X    orh $POP "PopupMenuShell Source" -f `pwd`/Popupmenushell
  387. X
  388. X    pu $POP GrabNone
  389. }
  390. X
  391. # PopupWindowShell
  392. PopupWindowShell()
  393. {
  394. X    cps POP PopupWindowShell popupWindowShell $PANE \
  395. X        title:"PopupWindowShell"  \
  396. X        apply:" " \
  397. X        reset:" " \
  398. X        resetFactory:" " \
  399. X        setDefaults:" "
  400. X
  401. X    acb $POP popdownCallback "dw $POP"
  402. X
  403. X    cmw CAP1 caption caption $POP_UCA \
  404. X        label:"Bell:"
  405. X
  406. X    cmw CAP1BUT buttons flatButtons $CAP1 \
  407. X        buttonType:rectbtn exclusives:true \
  408. X        numItems:2 itemFields:'{label}' \
  409. X        items:'{On}, {Off}'
  410. X        
  411. X    cmw CAP2 size caption $POP_UCA \
  412. X        label:"Point Size:"
  413. X
  414. X    cmw CAP2BUT buttons flatButtons $CAP2 \
  415. X        buttonType:rectbtn exclusives:true \
  416. X        numItems:7 itemFields:'{label}' \
  417. X        items:'{6}, {8}, {10}, {12}, {14}, {18}, {24}'
  418. X
  419. X    cmw FOOT footer footer $POP_FP \
  420. X        leftFoot:"Left" rightFoot:"Right"
  421. X
  422. X    orh $POP "PopupWindowShell Source" -f `pwd`/Popupwindowshell
  423. X
  424. X    pu $POP GrabNone
  425. }
  426. X
  427. # BulletinBoard
  428. BulletinBoard()
  429. {
  430. X    cps TRANSHELL transient transientShell $PANE \
  431. X        title:"WkshTree: BulletinBoard"
  432. X
  433. X    cmw CAP1 caption caption $TRANSHELL \
  434. X        font:OlDefaultBoldFont \
  435. X        label:"BulletinBoard:" \
  436. X        position:top \
  437. X        alignment:left
  438. X
  439. X    cmw BBOARD bulletinBoard bulletinBoard $CAP1 \
  440. X        width:200 \
  441. X        height:150 \
  442. X        borderWidth:1
  443. X
  444. X    cmw ONE 0x0 staticText $BBOARD \
  445. X        string:"(0,0)"
  446. X
  447. X    cmw TWO 100x100 staticText $BBOARD \
  448. X        string:"(150,100)" \
  449. X        x:100 y:100
  450. X
  451. X    cmw THREE 80x0 staticText $BBOARD \
  452. X        string:"(80,0)" \
  453. X        x:80 y:0
  454. X
  455. X    cmw OK OK flatButtons $BBOARD \
  456. X        x:90 y:130 \
  457. X        numItems:1 \
  458. X        itemFields:'{label}' \
  459. X        items:'{OK}' 
  460. X
  461. X    sv $OK selectProc:"PopdownCB $TRANSHELL"
  462. X    
  463. X    orh $TRANSHELL "BulletinBoard Source" -f `pwd`/Bulletinboard
  464. X
  465. X    pu $TRANSHELL GrabNone
  466. }
  467. X
  468. # Create caption widget
  469. Caption()
  470. {
  471. X    cmw POPCAPTION popupWidget popupWindowShell $PANE \
  472. X        title:"Caption" 
  473. X
  474. X    acb $POPCAPTION popdownCallback "dw $POPCAPTION"
  475. X
  476. X    cmw CAP1 leftcaption caption $POPCAPTION_UCA \
  477. X        label:"Position Left:" \
  478. X        font:OlDefaultBoldFont \
  479. X        position:left \
  480. X        borderWidth:0
  481. X
  482. X    cmw CAP2 rightcaption caption $CAP1 \
  483. X        label:":Position Right" \
  484. X        font:OlDefaultBoldFont \
  485. X        position:right \
  486. X        borderWidth:1
  487. X
  488. X    cmw CAP3 topcaption caption $CAP2 \
  489. X        label:"Position Top:" \
  490. X        font:OlDefaultBoldFont \
  491. X        position:top \
  492. X        borderWidth:1
  493. X
  494. X    cmw CAP4 topcaption caption $CAP3 \
  495. X        label:"Position Bottom:" \
  496. X        font:OlDefaultBoldFont \
  497. X        position:bottom \
  498. X        borderWidth:1
  499. X
  500. X    cmw ABV abbrevmenu abbrevMenuButton $CAP4 
  501. X
  502. X    
  503. X    cmw MENUITEMS menuitems flatButtons $ABV_MP \
  504. X        numItems:3 \
  505. X        itemFields:'{label}' \
  506. X        items:'{Open...}, {Save...}, {Exit}'
  507. X
  508. X    cmw OK Ok flatButtons $POPCAPTION_LCA \
  509. X        numItems:1 \
  510. X        itemFields:'{label}' \
  511. X        items:'{Ok}' 
  512. X
  513. X    orh $POPCAPTION "Caption Source" -f `pwd`/Caption
  514. X
  515. X    pu $POPCAPTION GrabNone 
  516. }
  517. X
  518. #Create Category widget
  519. Category()
  520. {
  521. X    PAGE1_ITEMS="{Red}, {Orange}, {Yellow}, {Green}, {Blue},
  522. X             {Indigo}, {Violet}"
  523. X
  524. X    PAGE2_ITEMS="{Apples}, {Oranges}, {Banannas}, {Grapes},
  525. X             {Watermellon}"
  526. X
  527. X    PAGE3_ITEMS="{Lions}, {Tigers}, {Bears}, {Elephants},
  528. X             {Zebras}, {Monkeys}, {Hippos}, {Deer}, 
  529. X             {Duck Billed Platypus}"
  530. X
  531. X    cps POPUP popup popupWindowShell $PANE \
  532. X        title:"WkshTree: Category"
  533. X
  534. X    cmw CATEGORY category category $POPUP_UCA \
  535. X        categoryLabel:"Category:" \
  536. X        leftFoot:"LeftFoot" \
  537. X        rightFoot:"RightFoot" \
  538. X        showFooter:true
  539. X
  540. X    cmw COLORS colors flatButtons $CATEGORY \
  541. X        pageLabel:"Colors" \
  542. X        layoutType:fixedcols \
  543. X        exclusives:true \
  544. X        buttonType:rectBtn \
  545. X        numItems:7 \
  546. X        numItemFields:1 \
  547. X        itemFields:'{label}' \
  548. X        items:"$PAGE1_ITEMS" 
  549. X
  550. X    cmw FRUITS fruits flatButtons $CATEGORY \
  551. X        pageLabel:"Fruits" \
  552. X        layoutType:fixedcols \
  553. X        exclusives:true \
  554. X        buttonType:rectBtn \
  555. X        numItems:5 \
  556. X        numItemFields:1 \
  557. X        itemFields:'{label}' \
  558. X        items:"$PAGE2_ITEMS"
  559. X    
  560. X    cmw ANIMALS animals flatButtons $CATEGORY \
  561. X        pageLabel:"Animals" \
  562. X        layoutType:fixedcols \
  563. X        exclusives:true \
  564. X        buttonType:rectBtn \
  565. X        numItems:9 \
  566. X        numItemFields:1 \
  567. X        itemFields:'{label}' \
  568. X        items:"$PAGE3_ITEMS" 
  569. X
  570. X    cmw OK Ok flatButtons $POPUP_LCA \
  571. X        numItems:1 \
  572. X        numItemFields:1 \
  573. X        itemFields:'{label}' \
  574. X        items:'{Ok}'
  575. X
  576. X    orh $POPUP "Catogory Source" -f `pwd`/Category
  577. X
  578. X    pu $POPUP GrabNone
  579. }
  580. X
  581. # Create controlArea
  582. ControlArea()
  583. {
  584. X    THEFRUIT="{Apples}, {Oranges}, {Banannas}, {Grapes},
  585. X          {Watermelon}, {Kiwi}"
  586. X
  587. X    THECOLOR="{Red}, {Orange}, {Yellow}, {Green}, {Blue},
  588. X          {Indigo}, {Violet}, {Black}"
  589. X    
  590. X    THEANIMAL="{Lions}, {Tigers}, {Bears}, {Elephants}, 
  591. X           {Zebras}, {Monkeys}, {Hippos}, {Deer},
  592. X           {Duck Billed Platypus}"
  593. X
  594. X    cps POPCONTROLA transientShell transientShell $PANE \
  595. X        title:"WkshTree: ControlArea"
  596. X
  597. X    cmw CAPTION caption caption $POPCONTROLA \
  598. X        label:"ControlArea:" \
  599. X        font:OlDefaultBoldFont \
  600. X        position:top \
  601. X        alignment:left
  602. X
  603. X    cmw CONTROLAREA controlarea controlArea $CAPTION \
  604. X        alignCaptions:true \
  605. X        layoutType:fixedcols \
  606. X        center:true \
  607. X        hSpace:10 
  608. X
  609. X    cmw FRUITS caption caption $CONTROLAREA \
  610. X        label:"Fruits:" 
  611. X
  612. X    cmw FRUITBUTTONS fruitbuttons flatButtons $FRUITS \
  613. X        layoutType:fixedcols \
  614. X        buttonType:rectBtn \
  615. X        exclusives:true \
  616. X        measure:3 \
  617. X        numItems:6 \
  618. X        itemFields:'{label}' \
  619. X        items:"$THEFRUIT" 
  620. X
  621. X    cmw COLORS caption caption $CONTROLAREA \
  622. X        label:"Colors:"
  623. X
  624. X    cmw COLORBUTTONS colorButtons flatButtons $COLORS \
  625. X        layoutType:fixedcols \
  626. X        buttonType:rectBtn \
  627. X        exclusives:true \
  628. X        measure:4 \
  629. X        numItems:8 \
  630. X        itemFields:'{label}' \
  631. X        items:"$THECOLOR" 
  632. X
  633. X    cmw ANIMALS caption caption $CONTROLAREA \
  634. X        label:"Animals:"
  635. X    
  636. X    cmw ANIMALBUTTONS animalButtons flatButtons $ANIMALS \
  637. X        layoutType:fixedcols \
  638. X        buttonType:rectBtn \
  639. X        exclusives:true \
  640. X        measure:3 \
  641. X        numItems:9 \
  642. X        itemFields:'{label}' \
  643. X        items:"$THEANIMAL" 
  644. X
  645. X    cmw OK Ok flatButtons $CONTROLAREA \
  646. X        numItems:1 \
  647. X        itemFields:'{label}' \
  648. X        items:'{Ok}'
  649. X                
  650. X    sv $OK selectProc:"PopdownCB $POPCONTROLA"
  651. X
  652. X    orh $POPCONTROLA "ControlArea Source" -f `pwd`/Controlarea
  653. X
  654. X    pu $POPCONTROLA GrabNone
  655. }
  656. X    
  657. # Create exclusives widget
  658. Exclusives()
  659. {
  660. X    cps POPEXCLUSIVES exclusives popupWindowShell $PANE \
  661. X        title:"Exclusives"
  662. X
  663. X    acb $POPEXCLUSIVES popdownCallback "dw $POPEXCLUSIVES"
  664. X
  665. X    cmw CAPTION caption caption $POPEXCLUSIVES_UCA \
  666. X        label:"Exclusives:" \
  667. X        font:OlDefaultFont
  668. X
  669. X    cmw EXCLUSIVES exclusives exclusives $CAPTION
  670. X
  671. X    cmw ON On rectButton $EXCLUSIVES 
  672. X
  673. X    cmw OFF Off rectButton $EXCLUSIVES 
  674. X
  675. X    cmw OK Ok oblongButton $POPEXCLUSIVES_LCA \
  676. X        buttonType:$BUTTON \
  677. X        select:"pd $POPEXCLUSIVES"
  678. X
  679. X    orh $POPEXCLUSIVES "Exclusives Source" -f `pwd`/Exclusives
  680. X
  681. X    pu $POPEXCLUSIVES GrabNone
  682. }
  683. X
  684. # Create form widget
  685. Form()
  686. {
  687. X    cps POPFORM transientShell transientShell $PANE \
  688. X        title:"WkshTree: Form" 
  689. X
  690. X    cmw CAPTION caption caption $POPFORM \
  691. X        label:"Form:" \
  692. X        position:top \
  693. X        alignment:left 
  694. X
  695. X    cmw FORM form form $CAPTION \
  696. X        width:150 \
  697. X        height:150 \
  698. X        shadowThickness:0
  699. X
  700. X    cmw ATTACHLEFT AttachLeft staticText $FORM \
  701. X        string:"Attach Left" \
  702. X        yOffset:50
  703. X
  704. X    cmw ATTACHTOP AttachTop staticText $FORM \
  705. X        string:"Attach Top" \
  706. X        xRefName:AttachLeft \
  707. X        xAddWidth:true
  708. X
  709. X    cmw ATTACHRIGHT AttachRight staticText $FORM \
  710. X        string:"Attach Right" \
  711. X        xAttachRight:true \
  712. X        xAddWidth:true \
  713. X        xVaryOffset:true \
  714. X        yOffset:50 \
  715. X        xRefName:AttachTop
  716. X
  717. X    cmw OK Ok oblongButton $FORM \
  718. X        buttonType:$BUTTON \
  719. X        yAttachBottom:true \
  720. X        yRefName:AttachTop \
  721. X        yAddHeight:true \
  722. X        yVaryOffset:true \
  723. X        xOffset:85
  724. X
  725. X    sv $OK select:"PopdownCB $POPFORM"
  726. X
  727. X    orh $POPFORM "Form Source" -f `pwd`/Form
  728. X
  729. X    pu $POPFORM GrabNone
  730. }
  731. X
  732. # Create scrollingList widget
  733. ScrollingList()
  734. {
  735. X    THECOLOR="Red Green Blue Orange Purple Pink Black White"
  736. X
  737. X    cps POPUP scrollinglist popupWindowShell $PANE \
  738. X        title:"WkshTree: ScrollingList" 
  739. X
  740. X    acb $POPUP popdownCallback "dw $POPUP"
  741. X
  742. X    cmw CAPTION caption caption $POPUP_UCA \
  743. X        label:"Scrolling List:" 
  744. X
  745. X    cmw SLIST scrollingList scrollingList $CAPTION \
  746. X        viewHeight:3 
  747. X
  748. X    sladd $SLIST $THECOLOR
  749. X
  750. X    cmw OK Ok flatButtons $POPUP_LCA \
  751. X        numItems:1 \
  752. X        numItemFields:1 \
  753. X        itemFields:'{label}' \
  754. X        items:'{Ok}'
  755. X
  756. X    orh $POPUP "ScrollingList Source" -f `pwd`/Scrollinglist
  757. X
  758. X    pu $POPUP GrabNone
  759. }
  760. X
  761. # Create nonexclusives widget
  762. Nonexclusives()
  763. {
  764. X    cps NONEXCPOPUP Nonexclusives popupWindowShell $PANE \
  765. X        title:"FlatNonexclusives" 
  766. X
  767. X    acb $NONEXCPOPUP popdownCallback "dw $NONEXCPOPUP"
  768. X
  769. X    cmw CAPTION caption caption $NONEXCPOPUP_UCA \
  770. X        label:"Nonexclusives"
  771. X
  772. X    cmw NEXC nonexclusives nonexclusives $CAPTION
  773. X
  774. X    cmw RED Red rectButton $NEXC 
  775. X
  776. X    cmw GREEN Green rectButton $NEXC 
  777. X
  778. X    cmw BLUE Blue rectButton $NEXC
  779. X
  780. X    cmw OK Ok oblongButton $NONEXCPOPUP_LCA \
  781. X        buttonType:$BUTTON
  782. X
  783. X    orh $NONEXCPOPUP "Nonexclusives Source" -f `pwd`/Nonexclusives
  784. X
  785. X    pu $NONEXCPOPUP GrabNone
  786. }
  787. X
  788. # Create panes widget
  789. Panes()
  790. {
  791. X    cps POPUP transientShell transientShell $PANE \
  792. X        title:"WkshTree: Panes" 
  793. X
  794. X    cmw CAPTION caption caption $POPUP \
  795. X        label:"Panes:" \
  796. X        font:OlDefaultBoldFont \
  797. X        position:top \
  798. X        alignment:left
  799. X
  800. X    cmw PANES panes panes $CAPTION 
  801. X
  802. X    cmw PANE_0 pane_0 $TYPEBUTTON $PANES \
  803. X        buttonType:$BUTTON \
  804. X        weight:0
  805. X
  806. X    cmw PANE_1 pane_1 $TYPEBUTTON $PANES \
  807. X        buttonType:$BUTTON \
  808. X        weight:1 \
  809. X        refName:"pane_0" \
  810. X        refPosition:bottom 
  811. X
  812. X    cmw PANE_2 pane_2 $TYPEBUTTON $PANES \
  813. X        buttonType:$BUTTON \
  814. X        weight:2 \
  815. X        refName:"pane_1" \
  816. X        refPosition:right
  817. X
  818. X    cmw PANE_3 pane_3 $TYPEBUTTON $PANES \
  819. X        buttonType:$BUTTON \
  820. X        weight:2 \
  821. X        refName:"pane_2" \
  822. X        refPosition:bottom
  823. X
  824. X    cmw OK Ok flatButtons $PANES \
  825. X        numItems:1 \
  826. X        numItemFields:1 \
  827. X        itemFields:'{label}' \
  828. X        items:'{Ok}' \
  829. X        gravity:center
  830. X
  831. X    acb $PANE_0 select "ButtonCB $PANE_0"
  832. X    acb $PANE_1 select "ButtonCB $PANE_1"
  833. X    acb $PANE_2 select "ButtonCB $PANE_2"
  834. X    acb $PANE_3 select "ButtonCB $PANE_3"
  835. X
  836. X    sv $OK selectProc:"PopdownCB $POPUP"
  837. X
  838. X    orh $POPUP "Panes Source" -f `pwd`/Panes
  839. X
  840. X    pu $POPUP GrabNone
  841. }
  842. X
  843. # This is the callback used to reset buttons when running in motif mode
  844. ButtonCB()
  845. {
  846. X    sv $1 set:false
  847. }
  848. X
  849. # Create rubberTile widget
  850. Rubbertile()
  851. {
  852. X    cps POPUP transientShell transientShell $PANE \
  853. X        title:"WkshTree: RubberTile" \
  854. X        sensitive:true
  855. X
  856. X    cmw CAPTION caption caption $POPUP \
  857. X        label:"RubberTile:" \
  858. X        font:OlDefaultBoldFont \
  859. X        position:top \
  860. X        alignment:left
  861. X
  862. X    cmw RUBBERTILE rubberTile rubberTile $CAPTION \
  863. X        orientation:vertical
  864. X
  865. X    cmw WEIGHT_0 weight_0 $TYPEBUTTON $RUBBERTILE \
  866. X        buttonType:$BUTTON \
  867. X        weight:0
  868. X
  869. X    cmw WEIGHT_1 weight_1 $TYPEBUTTON $RUBBERTILE \
  870. X        buttonType:$BUTTON \
  871. X        weight:1
  872. X
  873. X    cmw WEIGHT_2 weight_2 $TYPEBUTTON $RUBBERTILE \
  874. X        buttonType:$BUTTON \
  875. X        weight:2
  876. X
  877. X    cmw RUBBERTILE2 rubberTile2 rubberTile $RUBBERTILE \
  878. X        weight:0 \
  879. X        orientation:horizontal \
  880. X        shadowThickness:0
  881. X    
  882. X    cmw OK Ok flatButtons $RUBBERTILE2 \
  883. X        numItems:1 \
  884. X        numItemFields:1 \
  885. X        itemFields:'{label}' \
  886. X        items:'{Ok}' \
  887. X        weight:0
  888. X
  889. X    acb $WEIGHT_0 select "ButtonCB $WEIGHT_0"
  890. X    acb $WEIGHT_1 select "ButtonCB $WEIGHT_1"
  891. X    acb $WEIGHT_2 select "ButtonCB $WEIGHT_2"
  892. X
  893. X    sv $OK selectProc:"PopdownCB $POPUP"
  894. X
  895. X    orh $POPUP "RubberTile Source" -f `pwd`/Rubbertile
  896. X
  897. X    pu $POPUP GrabNone
  898. }
  899. X
  900. # Create footerPanel widget
  901. Footerpanel()
  902. {
  903. X    cps FOOTERPOPUP Footerpanel transientShell $PANE \
  904. X        title:"WkshTree: FooterPanel" 
  905. X
  906. X    cmw FOOTERPANEL footerpanel footerPanel $FOOTERPOPUP
  907. X
  908. X    cmw OK Ok flatButtons $FOOTERPANEL \
  909. X        gravity:center \
  910. X        numItems:1 \
  911. X        numItemFields:1 \
  912. X        itemFields:'{label}' \
  913. X        items:'{Ok}' 
  914. X
  915. X    sv $OK selectProc:"PopdownCB $FOOTERPOPUP"
  916. X
  917. X    cmw FOOTER footer footer $FOOTERPANEL \
  918. X        leftFoot:"Left Message" \
  919. X        rightFoot:"Right Message"
  920. X
  921. X    orh $FOOTERPOPUP "FooterPanel Source" -f `pwd`/Footerpanel
  922. X
  923. X    pu $FOOTERPOPUP GrabNone
  924. }
  925. X
  926. # This is used to describe how help is put together
  927. Help()
  928. {
  929. X    cps POPUP help popupWindowShell $PANE \
  930. X        title:"WkshTree: Help"
  931. X
  932. X    acb $POPUP popdownCallback "dw $POPUP"
  933. X
  934. X    cmw CAPTION caption caption $POPUP_UCA \
  935. X        font:OlDefaultBoldFont \
  936. X        label:"Help:" 
  937. X
  938. X    cmw TEXT statictext staticText $CAPTION \
  939. X        string:"The Help Widget is not explicitly created and manipulated by an application. The OlRegisterHelp function is used in an application to register a help file, a help string, or a help function that is displayed when the user presses the Hel key (F1).  The Help widget is a shell that contains a magnifying glass to indicate the context, and a TextEdit widget to display the help message. \n\nPosition the curser here and press F1 for help." \
  940. X        alignment:left \
  941. X        width:350 \
  942. X        recomputeSize:false
  943. X
  944. X    cmw OK Ok flatButtons $POPUP_LCA \
  945. X        numItems:1 \
  946. X        numItemFields:1 \
  947. X        itemFields:'{label}' \
  948. X        items:'{Ok}' 
  949. X        
  950. X    orh $POPUP "Help Source" -f `pwd`/Help
  951. X
  952. X    pu $POPUP GrabNone
  953. }
  954. X
  955. # Create flatButtons widget
  956. Flatbuttons()
  957. {
  958. X    LOWER_ITEMS="{Ok}, {Apply}, {Reset}, {Cancel},  {Help}"
  959. X    ONOFF_ITEMS="{On}, {Off}"
  960. X    COLOR_ITEMS="{Red}, {Green}, {Blue}"
  961. X    PERMISSION_ITEMS="{Read}, {Write}, {Execute}"
  962. X
  963. X    MENU_BUTTON_ITEMS="{Flat Menu Button}"
  964. X    MENU_ITEMS="{Menu Item 1}, {Menu Item 2}, {Menu Item 3}"
  965. X    SUB_MENU_ITEMS="{Menu Item 1}"
  966. X
  967. X    cmw POPUP popupWindowShell popupWindowShell $PANE \
  968. X        title:"WkshTree: Flatbuttons"
  969. X
  970. X    acb $POPUP popdownCallback "dw $POPUP"
  971. X
  972. X    cmw BELL bell caption $POPUP_UCA \
  973. X        label:"Bell:"
  974. X
  975. X    cmw ONOFF onoff flatButtons $BELL \
  976. X        buttonType:rectBtn \
  977. X        exclusives:true \
  978. X        numItems:2 \
  979. X        numItemFields:1 \
  980. X        itemFields:'{label}' \
  981. X        items:"$ONOFF_ITEMS"
  982. X
  983. X    cmw COLOR color caption $POPUP_UCA \
  984. X        label:"Color:"
  985. X
  986. X    cmw SIZE size flatButtons $COLOR \
  987. X        buttonType:rectBtn \
  988. X        numItems:3 \
  989. X        numItemFields:1 \
  990. X        itemFields:'{label}' \
  991. X        items:"$COLOR_ITEMS"
  992. X
  993. X    cmw PERMISSION permission caption $POPUP_UCA \
  994. X        label:"Permissions:"
  995. X
  996. X    cmw PERMISSIONS permissions flatButtons $PERMISSION \
  997. X        buttonType:checkbox \
  998. X        numItems:3 \
  999. X        numItemFields:1 \
  1000. X        itemFields:'{label}' \
  1001. X        items:"$PERMISSION_ITEMS"
  1002. X
  1003. X    cmw MENU_BUTTON menu_button caption $POPUP_UCA \
  1004. X        label:"Flat Menu Button:"
  1005. X
  1006. X    cmw MENU_BUTTON_ITEM menu_button_item menuButton $MENU_BUTTON \
  1007. X        buttonType:$BUTTON \
  1008. X        label:"Flat Menu Button"
  1009. X
  1010. X    cmw CA controlarea controlArea $MENU_BUTTON_ITEM_MP \
  1011. X        layoutType:fixedcols measure:1
  1012. X
  1013. X    cmw MENU_ITEM menu_items flatButtons $CA \
  1014. X        layoutType:fixedcols \
  1015. X        measure:1 \
  1016. X        numItems:3 \
  1017. X        numItemFields:1 \
  1018. X        itemFields:'{label}' \
  1019. X        items:"$MENU_ITEMS"
  1020. X
  1021. X    cmw OK Ok flatButtons $POPUP_LCA \
  1022. X        numItems:5 \
  1023. X        numItemFields:1 \
  1024. X        itemFields:'{label}' \
  1025. X        items:"$LOWER_ITEMS"
  1026. X
  1027. X    orh $POPUP "FlatButtons Source" -f `pwd`/Flatbuttons
  1028. X
  1029. X    pu $POPUP GrabNone
  1030. }
  1031. X
  1032. # Create flatList widget
  1033. Flatlist()
  1034. {
  1035. X    COLOR_ITEMS="{Red}, {Green}, {Blue}, {Orange}, {Purple},
  1036. X             {Pink}, {Black}, {White}"
  1037. X
  1038. X    cps POPUP popup popupWindowShell $PANE \
  1039. X        title:"WkshTree: FlatList"
  1040. X
  1041. X    cmw CAPTION caption caption $POPUP_UCA \
  1042. X        label:"Flat List:"
  1043. X
  1044. X    cmw SW sw scrolledWindow $CAPTION \
  1045. X        forceVerticalSB:true
  1046. X
  1047. X    cmw FLIST flist flatList $SW \
  1048. X        exclusives:true \
  1049. X        viewHeight:4 \
  1050. X        numItems:8 \
  1051. X        numItemFields:1 \
  1052. X        itemFields:'{label}' \
  1053. X        items:"$COLOR_ITEMS"
  1054. X
  1055. X    cmw OK Ok flatButtons $POPUP_LCA \
  1056. X        numItems:1 \
  1057. X        numItemFields:1 \
  1058. X        itemFields:'{label}' \
  1059. X        items:'{Ok}'
  1060. X
  1061. X    orh $POPUP "FlatList Source" -f `pwd`/Flatlist
  1062. X
  1063. X    pu $POPUP GrabNone
  1064. }
  1065. X
  1066. # Create scrollwdWindow widget
  1067. Scrolledwindow()
  1068. {
  1069. X    cps POPUP popupWindowShell popupWindowShell $PANE \
  1070. X        title:"WkshTree: ScrolledWindow"
  1071. X
  1072. X    acb $POPUP popdownCallback "dw $POPUP"
  1073. X
  1074. X    cmw CAPTION caption caption $POPUP_UCA \
  1075. X        label:"Scrolled Window:" \
  1076. X        font:OlDefaultBoldFont \
  1077. X        position:top \
  1078. X        alignment:left
  1079. X
  1080. X    cmw SCROLLEDWINDOW scrolledwindow scrolledWindow $CAPTION \
  1081. X        recomputeWidth:false \
  1082. X        recomputeHeight:false \
  1083. X        forceHorizontalSB:true \
  1084. X        forceVerticalSB:true 
  1085. X
  1086. X    cmw TEXT textedit textEdit $SCROLLEDWINDOW \
  1087. X        source:"The TextEdit widget displays multi-line text." \
  1088. X        width:200 \
  1089. X        height:200 
  1090. X
  1091. X    cmw OK Ok flatButtons $POPUP_LCA \
  1092. X        numItems:1 \
  1093. X        numItemFields:1 \
  1094. X        itemFields:'{label}' \
  1095. X        items:'{Ok}' 
  1096. X        
  1097. X    sv $OK selectProc:"PopdownCB $POPUP" 
  1098. X
  1099. X    orh $POPUP "ScrolledWindow Source" -f `pwd`/Scrolledwindow
  1100. X
  1101. X    pu $POPUP GrabNone
  1102. }
  1103. X
  1104. # CReate abbreviatedButton widget
  1105. Abbrevbutton()
  1106. {
  1107. X    MENUITEMS="{Restart}, {Cancel}, {Abort}"
  1108. X
  1109. X    cps POPUP popupWindowShell popupWindowShell $PANE \
  1110. X        title:"WkshClass: AbbreviatedMenuButton"
  1111. X
  1112. X    acb $POPUP popdownCallback "pd $POPUP"
  1113. X
  1114. X    cps WINDOW popup popupWindowShell $POPUP \
  1115. X        title:"AbbreviatedButton Window"
  1116. X
  1117. X    cmw CAPTION caption caption $POPUP_UCA \
  1118. X        label:"AbbreviatedButton (Window):" \
  1119. X        font:OlDefaultBoldFont
  1120. X
  1121. X    cmw ABW abbreviatedButton abbreviatedButton $CAPTION \
  1122. X        buttonType:windowBtn \
  1123. X        popupWidget:$WINDOW
  1124. X
  1125. X    cps MENU menu popupMenuShell $POPUP 
  1126. X
  1127. X    cmw BUTTONS buttons flatButtons $MENU \
  1128. X        numItems:3 \
  1129. X        numItemFields:1 \
  1130. X        itemFields:'{label}' \
  1131. X        items:"${MENUITEMS}" 
  1132. X
  1133. X    cmw CAPTION2 caption caption $POPUP_UCA \
  1134. X        label:"AbbreviatedButton (Menu):" \
  1135. X        font:OlDefaultBoldFont
  1136. X
  1137. X    cmw ABWC abbreviatedButton abbreviatedButton $CAPTION2 \
  1138. X        popupWidget:$MENU
  1139. X        
  1140. X    cmw OK Ok flatButtons $POPUP_LCA \
  1141. X        numItems:1 \
  1142. X        numItemFields:1 \
  1143. X        itemFields:'{label}' \
  1144. X        items:'{Ok}' 
  1145. X
  1146. X    sv $OK selectProc:"PopdownCB $POPUP"    
  1147. X
  1148. X    orh $POPUP "AbbreviatedButton Source" -f `pwd`/Abbrevbutton
  1149. X
  1150. X    pu $POPUP GrabNone
  1151. }
  1152. X
  1153. # Create abbreviatedMenuButton widget
  1154. AbbrevMenuButton()
  1155. {
  1156. X    cps POPUP popupWindowShell popupWindowShell $PANE \
  1157. X        title:"AbbreviatedMenuButton"
  1158. X
  1159. X    acb $POPUP popdownCallback "dw $POPUP"
  1160. X
  1161. X    cmw CAPTION caption caption $POPUP_UCA \
  1162. X        label:"AbbreviatedMenuButton:" \
  1163. X        font:OlDefaultBoldFont
  1164. X
  1165. X    cmw ABBREV abbrevMenuButton abbrevMenuButton $CAPTION 
  1166. X        
  1167. X    cmw OPEN Open... oblongButton $ABBREV_MP \
  1168. X        buttonType:$BUTTON
  1169. X
  1170. X    cmw SAVE Save... oblongButton $ABBREV_MP \
  1171. X        buttonType:$BUTTON
  1172. X
  1173. X    cmw EXIT Exit oblongButton $ABBREV_MP \
  1174. X        buttonType:$BUTTON
  1175. X
  1176. X    cmw OK Ok oblongButton $POPUP_LCA \
  1177. X        buttonType:$BUTTON
  1178. X
  1179. X    orh $POPUP "AbbreviatedMenuButton Source" -f `pwd`/Abbrevmenubutton
  1180. X
  1181. X    pu $POPUP GrabNone
  1182. }
  1183. X
  1184. # Create checkBox widget
  1185. Checkbox()
  1186. {
  1187. X    cps POPUP popupWindowShell popupWindowShell $PANE \
  1188. X        title:"Checkbox"
  1189. X
  1190. X    acb $POPUP popdownCallback "dw $POPUP"
  1191. X
  1192. X    cmw CHECKBOX checkbox checkBox $POPUP_UCA \
  1193. X        label:"Checkbox:" \
  1194. X        font:OlDefaultBoldFont \
  1195. X        set:true
  1196. X
  1197. X    cmw OK Ok flatButtons $POPUP_LCA \
  1198. X        numItems:1 \
  1199. X        numItemFields:1 \
  1200. X        itemFields:'{label}' \
  1201. X        items:'{Ok}' 
  1202. X
  1203. X    orh $POPUP "CheckBox Source" -f `pwd`/Checkbox
  1204. X
  1205. X    pu $POPUP GrabNone
  1206. }
  1207. X
  1208. # Create flatCheckBox widget
  1209. Flatcheckbox()
  1210. {
  1211. X    RWXITEMS="{Read}, {Write}, {Execute}"
  1212. X
  1213. X    cps POPUP popupWindowShell popupWindowShell $PANE \
  1214. X        title:"FlatCheckBox"
  1215. X
  1216. X    acb $POPUP popdownCallback "dw $POPUP"
  1217. X
  1218. X    cmw CAPTION caption caption $POPUP_UCA \
  1219. X        label:"FlatCheckBox:"
  1220. X
  1221. X    cmw FLATCBOX perrmission flatCheckBox $CAPTION \
  1222. X        numItems:3 \
  1223. X        numItemFields:1 \
  1224. X        itemFields:'{label}' \
  1225. X        items:"$RWXITEMS" 
  1226. X
  1227. X    cmw OK Ok flatButtons $POPUP_LCA \
  1228. X        numItems:1 \
  1229. X        numItemFields:1 \
  1230. X        itemFields:'{label}' \
  1231. X        items:'{Ok}' 
  1232. X
  1233. X    orh $POPUP "FlatCheckBox Source" -f `pwd`/Flatcheckbox
  1234. X
  1235. X    pu $POPUP GrabNone
  1236. }
  1237. X            
  1238. # Create flatExclusives widget
  1239. Flatexclusives()
  1240. {
  1241. X    ONOFFITEMS="{On}, {Off}"
  1242. X
  1243. X    cps POPUP popupWindowShell popupWindowShell $PANE \
  1244. X        title:"FlatExclusives"
  1245. X
  1246. X    acb $POPUP popdownCallback "dw $POPUP"
  1247. X
  1248. X    cmw EXCLUSIVE exclusive caption $POPUP_UCA \
  1249. X        label:"FlatExclusive:"
  1250. X
  1251. X    cmw ONOFF onoff flatExclusives $EXCLUSIVE \
  1252. X        numItems:2 \
  1253. X        numItemFields:1 \
  1254. X        itemFields:'{label}' \
  1255. X        items:"$ONOFFITEMS" 
  1256. X
  1257. X    cmw OK Ok flatButtons $POPUP_LCA \
  1258. X        numItems:1 \
  1259. X        numItemFields:1 \
  1260. X        itemFields:'{label}' \
  1261. X        items:'{Ok}' 
  1262. X
  1263. X    orh $POPUP "FlatExclusives Source" -f `pwd`/Flatexclusives
  1264. X
  1265. X    pu $POPUP GrabNone
  1266. }
  1267. X
  1268. # Create flatNonexclusives widget
  1269. Flatnonexclusives()
  1270. {
  1271. X    RWXITEMS="{Read}, {Write}, {Execute}"
  1272. X
  1273. X    cps POPUP popupWindowShell popupWindowShell $PANE \
  1274. X        title:"FlatNonexclusives" 
  1275. X
  1276. X    acb $POPUP popdownCallback "dw $POPUP"
  1277. X
  1278. X    cmw CAPTION lights caption $POPUP_UCA \
  1279. X        label:"FlatNonexclusive:"
  1280. X
  1281. X    cmw PERMS permission flatNonexclusives $CAPTION \
  1282. X        numItems:3 \
  1283. X        numItemFields:1 \
  1284. X        itemFields:'{label}' \
  1285. X        items:"$RWXITEMS" 
  1286. X
  1287. X    cmw OK Ok flatButtons $POPUP_LCA \
  1288. X        numItems:1 \
  1289. X        numItemFields:1 \
  1290. X        itemFields:'{label}' \
  1291. X        items:'{Ok}' 
  1292. X
  1293. X    orh $POPUP "FlatNonexclusives Source" -f `pwd`/Flatnonexclusives
  1294. X
  1295. X    pu $POPUP GrabNone
  1296. }
  1297. X
  1298. # Create foorter widget
  1299. Footer()
  1300. {
  1301. X    cps POPUP popupWindowShell popupWindowShell $PANE \
  1302. X        resizeCorners:true \
  1303. X        title:"WkshTree: Footer"
  1304. X
  1305. X    acb $POPUP popdownCallback "dw $POPUP"
  1306. X
  1307. X    sv $POPUP_UCA width:295 
  1308. X
  1309. X    cmw FOOTER footer footer $POPUP_FP \
  1310. X        leftFoot:"Left footer message" \
  1311. X        leftWeight:1 \
  1312. X        rightFoot:"Right footer message" \
  1313. X        rightWeight:1
  1314. X    
  1315. X    cmw OK Ok flatButtons $POPUP_LCA \
  1316. X        numItems:1 \
  1317. X        numItemFields:1 \
  1318. X        itemFields:'{label}' \
  1319. X        items:'{Ok}' 
  1320. X
  1321. X    orh $POPUP "Footer Source" -f `pwd`/Footer
  1322. X
  1323. X    pu $POPUP GrabNone
  1324. }
  1325. X
  1326. Gauge()
  1327. {
  1328. X    cps POPUP popupWindowShell popupWindowShell $PANE \
  1329. X        title:"Gauge" 
  1330. X
  1331. X    acb $POPUP popdownCallback "dw $POPUP"
  1332. X
  1333. X    cmw CAPTION caption caption $POPUP_UCA \
  1334. X        label:"Gauge:" \
  1335. X        font:OlDefaultBoldFont \
  1336. X        position:left
  1337. X
  1338. X    cmw GAUGE gauge gauge $CAPTION \
  1339. X        span:100 \
  1340. X        sliderValue:33 \
  1341. X        minLabel:"0" \
  1342. X        maxLabel:"100" \
  1343. X        ticks:10 \
  1344. X        tickUnit:percent \
  1345. X        showValue:true
  1346. X
  1347. X    cmw OK Ok flatButtons $POPUP_LCA \
  1348. X        numItems:1 \
  1349. X        numItemFields:1 \
  1350. X        itemFields:'{label}' \
  1351. X        items:'{Ok}' 
  1352. X
  1353. X    orh $POPUP "Gauge Source" -f `pwd`/Gauge
  1354. X
  1355. X    pu $POPUP GrabNone
  1356. }
  1357. X
  1358. # Create menuButton widget
  1359. Menubutton()
  1360. {
  1361. X    cps POPUP popupWindowShell popupWindowShell $PANE \
  1362. X        title:"MenuButton"
  1363. X
  1364. X    acb $POPUP popdownCallback "dw $POPUP"
  1365. X
  1366. X    cmw MENUBUTTON menuButton menuButton $POPUP_UCA \
  1367. X        label:"Menu Button Widget" 
  1368. X
  1369. X    cmw OPEN Open... oblongButton $MENUBUTTON_MP \
  1370. X        buttonType:$BUTTON
  1371. X
  1372. X    cmw SAVE Save... oblongButton $MENUBUTTON_MP \
  1373. X        buttonType:$BUTTON
  1374. X
  1375. X    cmw EXIT Exit oblongButton $MENUBUTTON_MP \
  1376. X        buttonType:$BUTTON
  1377. X
  1378. X    cmw OK Ok oblongButton $POPUP_LCA \
  1379. X        buttonType:$BUTTON
  1380. X
  1381. X    orh $POPUP "MenuButton Source" -f `pwd`/Menubutton
  1382. X
  1383. X    pu $POPUP GrabNone
  1384. }
  1385. X
  1386. # Create oblongButton widget
  1387. Oblongbutton()
  1388. {
  1389. X    cps POPUP popupWindowShell popupWindowShell $PANE \
  1390. X        title:"Oblongbutton"
  1391. X
  1392. X    acb $POPUP popdownCallback "dw $POPUP"
  1393. X
  1394. X    cmw OBW "Oblong Button Widget" oblongButton $POPUP_LCA \
  1395. X        buttonType:$BUTTON \
  1396. X        accelerator:"Ctrl<z>"
  1397. X
  1398. X    orh $POPUP "Oblongbutton Source" -f `pwd`/Oblongbutton
  1399. X
  1400. X    pu $POPUP GrabNone
  1401. }
  1402. X
  1403. # Create rectButton widget
  1404. Rectbutton()
  1405. {
  1406. X    cps POPUP popupWindowShell popupWindowShell $PANE \
  1407. X        title:"RectButton"
  1408. X
  1409. X    acb $POPUP popdownCallback "dw $POPUP"
  1410. X
  1411. X    cmw RECTB "Rect Button Widget" rectButton $POPUP_UCA 
  1412. X
  1413. X    cmw OK Ok oblongButton $POPUP_LCA \
  1414. X        buttonType:$BUTTON
  1415. X
  1416. X    orh $POPUP "RectButton Source" -f `pwd`/Rectbutton
  1417. X
  1418. X    pu $POPUP GrabNone
  1419. }
  1420. X
  1421. # Create scrollbar widget
  1422. Scrollbar()
  1423. {
  1424. X    cps POPUP popupWindowShell popupWindowShell $PANE \
  1425. X        title:"Scrollbar"
  1426. X
  1427. X    acb $POPUP popdownCallback "dw $POPUP" 
  1428. X
  1429. X    cmw CAPTION caption caption $POPUP_UCA \
  1430. X        label:"Scrollbar" \
  1431. X        font:OlDefaultBoldFont \
  1432. X        position:left \
  1433. X        width:200
  1434. X
  1435. X    cmw SCROLLBAR scrollbar scrollbar $CAPTION \
  1436. X        height:100 \
  1437. X        proportionLength:40 \
  1438. X        showPage:right \
  1439. X        currentPage:2
  1440. X
  1441. X    cmw OK Ok flatButtons $POPUP_LCA \
  1442. X        numItems:1 \
  1443. X        numItemFields:1 \
  1444. X        itemFields:'{label}' \
  1445. X        items:'{Ok}' 
  1446. X            
  1447. X    orh $POPUP "Scrollbar Source" -f `pwd`/Scrollbar
  1448. X
  1449. X    pu $POPUP GrabNone
  1450. }
  1451. X
  1452. # Create slider widget
  1453. Slider()
  1454. {
  1455. X    cps POPUP popupWindowShell popupWindowShell $PANE \
  1456. X        title:"Slider"
  1457. X
  1458. X    acb $POPUP popdownCallback "dw $POPUP"
  1459. X
  1460. X    cmw CAPTION caption caption $POPUP_UCA \
  1461. X        label:"Slider:" \
  1462. X        font:OlDefaultBoldFont \
  1463. X        position:left
  1464. X
  1465. X    cmw SLIDER slider slider $CAPTION \
  1466. X        span:100 \
  1467. X        sliderValue:33 \
  1468. X        minLabel:0 \
  1469. X        maxLabel:100 \
  1470. X        ticks:10 \
  1471. X        tickUnit:percent \
  1472. X        showValue:true
  1473. X
  1474. X    cmw OK Ok flatButtons $POPUP_LCA \
  1475. X        numItems:1 \
  1476. X        numItemFields:1 \
  1477. X        itemFields:'{label}' \
  1478. X        items:'{Ok}' 
  1479. X
  1480. X    orh $POPUP "Slider Source" -f `pwd`/Slider
  1481. X
  1482. X    pu $POPUP GrabNone
  1483. }
  1484. X
  1485. # Create staticText widget
  1486. Statictext()
  1487. {
  1488. X    cps POPUP popupWindowShell popupWindowShell $PANE \
  1489. X        title:"WkshTree: StaticText" 
  1490. X
  1491. X    acb $POPUP popdownCallback "dw $POPUP"
  1492. X
  1493. X    cmw CAPTION caption caption $POPUP_UCA \
  1494. X        label:"StaticText:" \
  1495. X        font:OlDefaultBoldFont
  1496. X
  1497. X    cmw STEXT1 staticText staticText $CAPTION \
  1498. X        string:"StaticText can be selected and copied.\nEach line cane be centered.\nIt is not editable." \
  1499. X        alignment:center
  1500. X
  1501. X    cmw STEXT2 staticText staticText $POPUP_UCA \
  1502. X        string:"olDefaultFont" \
  1503. X        font:OlDefaultFont \
  1504. X        alignment:center
  1505. X
  1506. X    cmw TEXT3 staticText staticText $POPUP_UCA \
  1507. X        string:"olDefaultBoldFont" \
  1508. X        font:OlDefaultBoldFont \
  1509. X        alignment:center
  1510. X
  1511. X    cmw TEXT4 staticText staticText $POPUP_UCA \
  1512. X        string:"olDefaultFixedFont" \
  1513. X        font:OlDefaultFixedFont \
  1514. X        alignment:center
  1515. X
  1516. X    cmw TEXT5 staticText staticText $POPUP_UCA \
  1517. X        string:"olDefaultItalicFont" \
  1518. X        font:OlDefaultItalicFont \
  1519. X        alignment:center
  1520. X
  1521. X    cmw TEXT6 staticText staticText $POPUP_UCA \
  1522. X        string:"olDefaultBoldItalicFont" \
  1523. X        font:OlDefaultBoldItalicFont \
  1524. X        alignment:center
  1525. X
  1526. X    cmw TEXT7 staticText staticText $POPUP_UCA \
  1527. X        string:"olDefaultNoticeFont" \
  1528. X        font:OlDefaultNoticeFont \
  1529. X        alignment:center
  1530. X
  1531. X    cmw TEXT8 staticText staticText $POPUP_UCA \
  1532. X        string:"xtDefaultFont" \
  1533. X        font:XtDefaultFont \
  1534. X        alignment:center
  1535. X
  1536. X    cmw OK Ok flatButtons $POPUP_LCA \
  1537. X        numItems:1 \
  1538. X        numItemFields:1 \
  1539. X        itemFields:'{label}' \
  1540. X        items:'{Ok}' 
  1541. X
  1542. X    orh $POPUP "StaticText Source" -f `pwd`/Statictext
  1543. X
  1544. X    pu $POPUP GrabNone
  1545. }
  1546. X
  1547. # Used for stub widget
  1548. SeperatorInitialize()
  1549. {
  1550. X    gv $STUB width:w
  1551. X    gv $STUB height:h
  1552. X    XDraw -lin $STUB width $w height $h
  1553. }
  1554. X
  1555. # Create Stub widget
  1556. Stub()
  1557. {
  1558. X    cmw POPUP transient transientShell $PANE \
  1559. X        title:"Stub"
  1560. X
  1561. X    cmw RT rubberTile rubberTile $POPUP \
  1562. X        orientation:vertical
  1563. X
  1564. X    cmw CAPTION caption caption $RT \
  1565. X        label:"Stub:" \
  1566. X        font:OlDefaultBoldFont \
  1567. X        position:top \
  1568. X        alignment:left    
  1569. X
  1570. X    cmw STUB stub stub $CAPTION \
  1571. X        width:100 \
  1572. X        traversalOn:true \
  1573. X        shadowThickness:10 \
  1574. X        height:25
  1575. X
  1576. X    cmw OK Ok flatButtons $RT \
  1577. X        gravity:center \
  1578. X        weight:0 \
  1579. X        numItems:1 \
  1580. X        numItemFields:1 \
  1581. X        itemFields:'{label}' \
  1582. X        items:'{Ok}'
  1583. X
  1584. X    sv $OK selectProc:"PopdownCB $POPUP"
  1585. X
  1586. X    orh $POPUP "Stub Source" -f `pwd`/Stub
  1587. X
  1588. X    pu $POPUP GrabNone
  1589. }
  1590. X
  1591. # Create Text widget
  1592. Text()
  1593. {
  1594. X    cps POPUP popupWindowShell popupWindowShell $PANE \
  1595. X        title:"WkshTree: Text"
  1596. X    
  1597. X    acb $POPUP popdownCallback "DestroyCB $POPUP"
  1598. X
  1599. X    cmw CAPTION caption caption $POPUP_UCA \
  1600. X        label:"Text:" \
  1601. X        font:OlDefaultBoldFont \
  1602. X        position:top \
  1603. X        alignment:left
  1604. X
  1605. X    cmw TEXT text text $CAPTION \
  1606. X        width:200 \
  1607. X        height:100
  1608. X
  1609. X    cmw OK Ok $TYPEBUTTON $POPUP_LCA
  1610. X
  1611. X    orh $POPUP "Text Source" -f `pwd`/Text
  1612. X
  1613. X    pu $POPUP GrabNone
  1614. } 
  1615. X
  1616. # Create Textedit widget
  1617. Textedit()
  1618. {
  1619. X    cps POPUP popupWindowShell popupWindowShell $PANE \
  1620. X        title:"WkshTree: TextEdit" 
  1621. X
  1622. X    acb $POPUP popdownCallback "dw $POPUP"
  1623. X
  1624. X    cmw CAPTION caption caption $POPUP_UCA \
  1625. X        label:"TextEdit" \
  1626. X        font:OlDefaultBoldFont \
  1627. X        position:top \
  1628. X        alignment:left
  1629. X
  1630. X    cmw TEXTEDIT textEdit textEdit $CAPTION \
  1631. X        source:"The TextEdit widget displays multi-line text. It can wrap on white space" \
  1632. X        width:200 \
  1633. X        height:100
  1634. X
  1635. X    cmw OK Ok flatButtons $POPUP_LCA \
  1636. X        numItems:1 \
  1637. X        numItemFields:1 \
  1638. X        itemFields:'{label}' \
  1639. X        items:'{Ok}' 
  1640. X
  1641. X    sv $OK selectProc:"PopdownCB $POPUP"
  1642. X
  1643. X    orh $POPUP "TextEdit Source" -f `pwd`/Textedit
  1644. X
  1645. X    pu $POPUP GrabNone 
  1646. }
  1647. X
  1648. # Create Textfield widget
  1649. Textfield()
  1650. {
  1651. X    cps POPUP popupWindowShell popupWindowShell $PANE \
  1652. X        title:"WkshTree: TextField" 
  1653. X        
  1654. X    acb $POPUP popdownCallback "dw $POPUP"
  1655. X
  1656. X    cmw CAPTION caption caption $POPUP_UCA \
  1657. X        label:"TextField:" \
  1658. X        font:OlDefaultBoldFont \
  1659. X        position:left
  1660. X
  1661. X    cmw TEXT textField textField $CAPTION \
  1662. X        string:"initial string" \
  1663. X        charsVisible:15
  1664. X
  1665. X    cmw OK Ok flatButtons $POPUP_LCA \
  1666. X        numItems:1 \
  1667. X        numItemFields:1 \
  1668. X        itemFields:'{label}' \
  1669. X        items:'{Ok}' \
  1670. X
  1671. X    sv $OK selectProc:"PopdownCB $POPUP"
  1672. X    
  1673. X    orh $POPUP "TextField Source" -f `pwd`/Textfield
  1674. X
  1675. X    pu $POPUP GrabNone
  1676. }
  1677. X
  1678. # Create IntegerField widget
  1679. Integerfield()
  1680. {
  1681. X    cps POPUP popupWindowShell popupWindowShell $PANE \
  1682. X        title:"IntegerField"
  1683. X
  1684. X    acb $POPUP popdownCallback "dw $POPUP"
  1685. X
  1686. X    cmw CAPTION caption caption $POPUP_UCA \
  1687. X        label:"IntegerField:" \
  1688. X        font:OlDefaultBoldFont \
  1689. X        position:left
  1690. X
  1691. X    cmw INTFIELD integerField integerField $CAPTION \
  1692. X        value:10 \
  1693. X        charsVisible:3
  1694. X
  1695. X    cmw OK Ok flatButtons $POPUP_LCA \
  1696. X        numItems:1 \
  1697. X        numItemFields:1 \
  1698. X        itemFields:'{label}' \
  1699. X        items:'{Ok}' 
  1700. X
  1701. X    sv $OK selectProc:"PopdownCB $POPUP"
  1702. X
  1703. X    orh $POPUP "IntegerField Source" -f `pwd`/Integerfield
  1704. X
  1705. X    pu $POPUP GrabNone
  1706. }    
  1707. X
  1708. # Create StepField widget
  1709. Stepfield()
  1710. {
  1711. X    NUM=0
  1712. X
  1713. X    MONTHS="January February March April May June July
  1714. X        August September October November December"
  1715. X
  1716. X    for i in `echo $MONTHS`
  1717. X    do
  1718. X        MON[NUM]=$i
  1719. X        ((NUM=$NUM+1))
  1720. X    done
  1721. X
  1722. X    WHERE=0
  1723. X    INC=true
  1724. X
  1725. X    cps POPUP popupWindowShell popupWindowShell $PANE \
  1726. X        title:"StepField:" 
  1727. X
  1728. X    acb $POPUP popdownCallback "dw $POPUP"
  1729. X
  1730. X    cmw CAPTION caption caption $POPUP_UCA \
  1731. X        label:"Stepfield" \
  1732. X        font:OlDefaultBoldFont \
  1733. X        position:left
  1734. X
  1735. X    cmw STEP stepField stepField $CAPTION \
  1736. X        string:"January" \
  1737. X        charsVisible:8 \
  1738. X        canIncrement:true \
  1739. X        canDecrement:false \
  1740. X        displayPosition:1
  1741. X
  1742. X    acb $STEP stepped "SteppedCB $WHERE"
  1743. X
  1744. X    cmw OK Ok flatButtons $POPUP_LCA \
  1745. X        numItems:1 \
  1746. X        numItemFields:1 \
  1747. X        itemFields:'{label}' \
  1748. X        items:'{Ok}' 
  1749. X
  1750. X    sv $OK selectProc:"PopdownCB $POPUP"
  1751. X
  1752. X    orh $POPUP "StepField Source" -f `pwd`/Stepfield
  1753. X    
  1754. X    pu $POPUP GrabNone
  1755. }
  1756. X
  1757. # Callback used for StepField widget
  1758. SteppedCB()
  1759. {
  1760. X
  1761. X    MIN=0
  1762. X    MAX=11
  1763. X
  1764. X    if [[ $INC = "true" ]]
  1765. X    then
  1766. X        ((WHERE=$WHERE+1))
  1767. X    else
  1768. X        ((WHERE=$WHERE-1))
  1769. X    fi
  1770. X    
  1771. X    if [[ $WHERE -eq $MAX ]]
  1772. X    then
  1773. X        INC=false
  1774. X        sv $STEP canDecrement:true
  1775. X        sv $STEP canIncrement:false
  1776. X    fi
  1777. X
  1778. X    if [[ $WHERE -eq $MIN ]]
  1779. X    then
  1780. X        INC=true
  1781. X        sv $STEP canDecrement:false
  1782. X        sv $STEP canIncrement:true
  1783. X    fi
  1784. X
  1785. X    sv $STEP string:"${MON[$WHERE]}"
  1786. X
  1787. }    
  1788. X
  1789. # Create oblongButtonGadget widget
  1790. Oblongbuttongadget()
  1791. {
  1792. X    cps POPUP popupWindowShell popupWindowShell $PANE \
  1793. X        title:"OblongButtonGadget"
  1794. X
  1795. X    acb $POPUP popdownCallback "dw $POPUP"
  1796. X
  1797. X    cmw OBG oblongButtongadget oblongButtonGadget $POPUP_LCA \
  1798. X        label:"Oblong Button Gadget"
  1799. X
  1800. X    orh $POPUP "OblongButtonGadget Source" -f `pwd`/Oblongbuttongadget
  1801. X
  1802. X    pu $POPUP GrabNone
  1803. }
  1804. X
  1805. # Create menuButtonGadget widget
  1806. Menubuttongadget()
  1807. {
  1808. X    cps POPUP popupWindowShell popupWindowShell $PANE \
  1809. X        title:"Menu Button Gadget" 
  1810. X    
  1811. X    acb $POPUP popdownCallback "dw $POPUP"
  1812. X
  1813. X    cmw MENUGADGET menuGadget menuButtonGadget $POPUP_UCA \
  1814. X        label:"Menu Button Gadget"
  1815. X
  1816. X    cmw OPEN Open... oblongButtonGadget $MENUGADGET_MP
  1817. X    
  1818. X    cmw SAVE Save... oblongButtonGadget $MENUGADGET_MP
  1819. X
  1820. X    cmw EXIT Exit oblongButtonGadget $MENUGADGET_MP
  1821. X
  1822. X    cmw OK Ok oblongButtonGadget $POPUP_LCA
  1823. X
  1824. X    orh $POPUP "MenuButtonGadget Source" -f `pwd`/Menubuttongadget
  1825. X
  1826. X    pu $POPUP GrabNone
  1827. }    
  1828. X
  1829. # Callback used for motif metaphore
  1830. BusyCB()
  1831. {
  1832. X    sv $1 busy:true
  1833. }
  1834. X
  1835. # Definitions used for parent panes widget
  1836. CLASS="transientShell core rectObject menuShell modalShell popupMenuShell 
  1837. X       popupWindowShell noticeShell manager primitive bulletinBoard
  1838. X       caption category controlArea exclusives form nonexclusives 
  1839. X       panes scrolledWindow scrollingList abbreviatedButton 
  1840. X       abbreviatedMenuButton checkbox flat footer guage menuButton 
  1841. X       oblongButton rectButton scrollBar slider staticText stub text
  1842. X       textEdit rubberTile footerPanel help flatRowColumn flatButtons
  1843. X       flatList flatCheckBox flatExclusives flatNonexclusives textField
  1844. X       integerField stepField eventObject oblongButtonGadget 
  1845. X       menuButtonGadget"
  1846. X
  1847. REFERENCE="NULL transientShell core transientShell menuShell modalShell
  1848. X       popupMenuShell modalShell core manager manager bulletinBoard            caption category controlArea exclusives form nonexclusives 
  1849. X       panes form primitive abbreviatedButton abbreviatedMenuButton 
  1850. X       checkbox flat
  1851. X       footer guage menuButton oblongButton rectButton scrollBar
  1852. X       slider staticText stub text panes rubberTile footerPanel
  1853. X       flat flatRowColumn flatButtons flatButtons flatCheckBox 
  1854. X       flatExclusives textEdit textField integerField rectObject 
  1855. X       eventObject oblongButtonGadget"
  1856. X
  1857. POSITION="bottom bottom bottom right bottom bottom bottom right right
  1858. X      bottom right bottom bottom bottom bottom bottom bottom bottom
  1859. X      bottom right right bottom bottom bottom bottom bottom bottom
  1860. X      bottom bottom bottom bottom bottom bottom bottom bottom 
  1861. X      right right bottom right right bottom right bottom bottom
  1862. X      right right bottom right right bottom"
  1863. X
  1864. SELECT="NULL NULL NULL MenuShell Modalshell PopupMenuShell 
  1865. X    PopupWindowShell NoticeShell NULL NULL BulletinBoard 
  1866. X    Caption Category ControlArea Exclusives Form Nonexclusives Panes 
  1867. X    Scrolledwindow ScrollingList Abbrevbutton AbbrevMenuButton
  1868. X    Checkbox NULL Footer Gauge Menubutton Oblongbutton Rectbutton
  1869. X    Scrollbar Slider Statictext Stub Text Textedit Rubbertile
  1870. X    Footerpanel Help NULL Flatbuttons Flatlist Flatcheckbox 
  1871. X    Flatexclusives Flatnonexclusives Textfield Integerfield 
  1872. X    Stepfield NULL Oblongbuttongadget Menubuttongadget"
  1873. X
  1874. EXTRA="1 1 1 0 1 1 1 1 1 1 1 1 1 1 0 1 0 1 1 0 1 0 1 1 1 1 0 0 0
  1875. X       1 1 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0"
  1876. X
  1877. WIDGETID="W5 W6 W7 W8 W9 W10 W11 W12 W13 W14 W15 W16 W17 W18 W19 W20
  1878. X      W21 W22 W23 W24 W25 W26 W27 W28 W29 W30 W31 W32 W33 W34 W35
  1879. X      W36 W37 W38 W39 W40 W41 W42 W43 W44 W45 W46 W47 W48 W49 W50
  1880. X      W51 W52 W53 W54"
  1881. X
  1882. A=0
  1883. X
  1884. # Create arrays from definitions used above
  1885. for i in `echo $CLASS`
  1886. do
  1887. X    Class[$A]=$i
  1888. X    ((A=$A+1))
  1889. done
  1890. X
  1891. A=0
  1892. X
  1893. for i in `echo $REFERENCE`
  1894. do
  1895. X    Reference[$A]=$i
  1896. X    ((A=$A+1))
  1897. done
  1898. X
  1899. A=0
  1900. X
  1901. for i in `echo $POSITION`
  1902. do
  1903. X    Position[$A]=$i
  1904. X    ((A=$A+1))
  1905. done
  1906. X
  1907. A=0
  1908. X
  1909. for i in `echo $SELECT`
  1910. do
  1911. X    Select[$A]=$i
  1912. X    ((A=$A+1))
  1913. done
  1914. X
  1915. A=0
  1916. X
  1917. for i in `echo $EXTRA`
  1918. do
  1919. X    Extra[$A]=$i
  1920. X    ((A=$A+1))
  1921. done
  1922. X
  1923. A=0
  1924. X
  1925. for i in `echo $WIDGETID`
  1926. do
  1927. X    WidgetID[$A]=$i
  1928. X    ((A=$A+1))
  1929. done
  1930. X
  1931. # Initialize the widget hierarchy
  1932. oi TOP wkshTree WkshTree "$@"
  1933. X
  1934. # Create rubberTile widget as child of $TOP
  1935. cmw RUBBER rubber rubberTile $TOP
  1936. X
  1937. # Create widget used for title
  1938. cmw TITLE staticText staticText $RUBBER \
  1939. X    string:"Wksh Widget Class Hierarchy" \
  1940. X    font:OlDefaultNoticeFont \
  1941. X    weight:0
  1942. X
  1943. # Create scrolledWindow to contain definitions for buttons in pane 
  1944. cmw MAINWINDOW scrolledWindow scrolledWindow $RUBBER \
  1945. X    viewWidth:375
  1946. X
  1947. # Create the pane
  1948. cmw PANE pane panes $MAINWINDOW \
  1949. X    shadowThickness:0
  1950. X
  1951. # Set counter to 0
  1952. A=0
  1953. X
  1954. # Test for the type of metaphore running
  1955. if [[ $XGUI = "OPEN_LOOK" ]]
  1956. then
  1957. X    TYPEBUTTON=oblongButton
  1958. X    BUTTON="oblong"
  1959. X    SENSITIVE="true"
  1960. else
  1961. X    TYPEBUTTON=rectButton
  1962. X    BUTTON="rectButton"
  1963. fi
  1964. X
  1965. # Create all buttons, references, names, and types
  1966. # by using arrays defined earlier. Creation of widgets 
  1967. # from these arrays is extremely fast, nearly as fast 
  1968. # as it's "c" counterpart "widgetTree"
  1969. while [[ $A -lt 50 ]]
  1970. do
  1971. X    if [[ "$XGUI" != "OPEN_LOOK" ]]
  1972. X    then
  1973. X        if [[ "${Extra[$A]}" -eq "1" ]]
  1974. X        then
  1975. X            SENSITIVE="true"
  1976. X        else
  1977. X            SENSITIVE="false"
  1978. X        fi
  1979. X    fi
  1980. X
  1981. X    if [[ ${Select[$A]} != "NULL" ]] 
  1982. X    then
  1983. X        typeset -u THECLASS=${Class[$A]}
  1984. X        cmw $THECLASS ${Class[$A]} $TYPEBUTTON $PANE \
  1985. X            buttonType:$BUTTON \
  1986. X            refName:"${Reference[$A]}" \
  1987. X            refPosition:${Position[$A]} \
  1988. X            width:150 \
  1989. X            select:"\"${Select[$A]}\";sv ${WidgetID[$A]} set:false" \
  1990. X            sensitive:$SENSITIVE 
  1991. X
  1992. X    else
  1993. X        cmw ${Class[$A]} ${Class[$A]} rectButton $PANE \
  1994. X            refName:"${Reference[$A]}" \
  1995. X            refPosition:${Position[$A]} \
  1996. X            width:150 \
  1997. X            font:OlDefaultItalicFont \
  1998. X            sensitive:$SENSITIVE 
  1999. X    fi
  2000. X
  2001. # Increment counter 
  2002. ((A=$A+1))
  2003. done
  2004. X
  2005. # Realize widget hierarchy
  2006. rw $TOP
  2007. X
  2008. # Loop processing starts here
  2009. ml
  2010. SHAR_EOF
  2011. chmod 0755 wkshTree ||
  2012. echo 'restore of wkshTree failed'
  2013. Wc_c="`wc -c < 'wkshTree'`"
  2014. test 39051 -eq "$Wc_c" ||
  2015.     echo 'wkshTree: original size 39051, current size' "$Wc_c"
  2016. fi
  2017. # ============= README ==============
  2018. if test -f 'README' -a X"$1" != X"-c"; then
  2019.     echo 'x - skipping README (File already exists)'
  2020. else
  2021. echo 'x - extracting README (Text)'
  2022. sed 's/^X//' << 'SHAR_EOF' > 'README' &&
  2023. Contents -
  2024. X
  2025. wkshTree is an example of widgets known by the Windowing Korn Shell 
  2026. under UnixWare. It is usefull for looking at each widget, and it's 
  2027. resources. The shell script is called "wkshTree", the rest of the 
  2028. files are help files called when pressing the "F1" key. The way it 
  2029. is here, the help files and wkshTree *must* reside in the same 
  2030. directory, and wkshTree *must* be called from the command-line. 
  2031. If you wish to change the location of the helpfiles, copy the help
  2032. files to the location desired then change all occurances of `pwd`
  2033. in "wkshTree" to the absolute pathname of the helpfile. To get 
  2034. help on a particular widget, select the widget, move the mouse to 
  2035. the widget displayed, click once and press "F1".
  2036. X
  2037. Enjoy
  2038. X
  2039. X
  2040. Eric Wallengren
  2041. eric@univel.COM
  2042. SHAR_EOF
  2043. chmod 0664 README ||
  2044. echo 'restore of README failed'
  2045. Wc_c="`wc -c < 'README'`"
  2046. test 767 -eq "$Wc_c" ||
  2047.     echo 'README: original size 767, current size' "$Wc_c"
  2048. fi
  2049. exit 0
  2050.  
  2051.  
  2052.  
  2053. exit 0 # Just in case...
  2054. -- 
  2055.   // chris@IMD.Sterling.COM            | Send comp.sources.x submissions to:
  2056. \X/  Amiga - The only way to fly!      |
  2057.  "It's intuitively obvious to the most |    sources-x@imd.sterling.com
  2058.   casual observer..."                  |
  2059.