home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / vmsnet / sources / 475 < prev    next >
Encoding:
Internet Message Format  |  1993-01-05  |  47.4 KB

  1. Path: sparky!uunet!munnari.oz.au!network.ucsd.edu!mvb.saic.com!vmsnet-sources
  2. From: tanner@cerritos.edu
  3. Newsgroups: vmsnet.sources
  4. Subject: DWProfile V3.3, part 04/06
  5. Message-ID: <9908601@MVB.SAIC.COM>
  6. Date: Mon, 04 Jan 1993 20:47:29 GMT
  7. Organization: Cerritos College, Norwalk CA
  8. Lines: 1566
  9. Approved: Mark.Berryman@Mvb.Saic.Com
  10.  
  11. Submitted-by: tanner@cerritos.edu
  12. Posting-number: Volume 4, Issue 29
  13. Archive-name: dwprofile/part04
  14.  
  15. -+-+-+-+-+-+-+-+ START OF PART 4 -+-+-+-+-+-+-+-+
  16. X    if (XtIsManaged(help_box)) `7B  /* there's already a help box up, make a
  17. Vnother one */
  18. X        XtSetArg(arglist`5Bac`5D, DXmNfirstTopic, topic); ac++;
  19. X        temp_help_box = DXmCreateHelpDialog (toplevel, "help_box", arglist,
  20. V ac);
  21. X        XtAddCallback(temp_help_box, XmNunmapCallback, DestroyHelpCallback,
  22. V NULL);
  23. X        XmStringFree(appname);
  24. X        XmStringFree(overviewtopic);
  25. X        XmStringFree(libspec);
  26. X        XmStringFree(topic);
  27. X        XtManageChild(temp_help_box);
  28. X        return;
  29. X    `7D
  30. X    else `7B /* exists but is unmanaged */
  31. X        ac = 0;
  32. X        XtSetArg(arglist`5Bac`5D, DXmNfirstTopic, topic); ac++;
  33. X        XtSetValues(help_box, arglist, ac);
  34. X    `7D
  35. X
  36. X    XmStringFree(topic);
  37. X    XtManageChild(help_box);
  38. X`7D
  39. X
  40. X
  41. X/*
  42. X *  Destroy generic help widget when it gets unmapped
  43. X */
  44. X
  45. Xstatic XtCallbackProc DestroyHelpCallback(Widget widget, XtPointer data,
  46. X                XmAnyCallbackStruct *reason)
  47. X`7B
  48. X    XtDestroyWidget(widget);
  49. X`7D
  50. $ CALL UNPACK DWPROFILE.C;445 1188484934
  51. $ create 'f'
  52. X# local configuration
  53. X#DWProfile.quota: 2000
  54. X#DWProfile.overdraft: 100
  55. X#DWProfile.defaultIdent: STAFF
  56. X#DWProfile.showAccounts: True
  57. X#DWProfile.showIdents: True
  58. X#DWProfile.PopupTime: 2000
  59. X#DWProfile.minimumGroup: 128
  60. X#DWProfile.maximumGroup: 230
  61. X
  62. XDWProfile*fontList: -Adobe-Helvetica-Bold-R-Normal--12-120-75-75-P-*-*-*
  63. X
  64. XDWProfile.x: 15
  65. XDWProfile.y: 40
  66. X
  67. XDWProfile.dwprofile_main.height: 610
  68. XDWProfile.dwprofile_main.width: 620
  69. XDWProfile.dwprofile_main*main_box*XmText*marginHeight: 1
  70. X#DWProfile.dwprofile_main*main_box*XmToggleButton*marginHeight: 0
  71. X
  72. XDWProfile*access_box.x: 10
  73. XDWProfile*access_box.y: 690
  74. X
  75. XDWProfile*accounts_box.x: 720
  76. XDWProfile*accounts_box.y: 540
  77. X
  78. XDWProfile*idents_box.x: 100
  79. XDWProfile*idents_box.y: 700
  80. X
  81. XDWProfile*privs_box.x: 660
  82. XDWProfile*privs_box.y: 45
  83. XDWProfile*privs_box.height: 460
  84. XDWProfile*privs_box.width: 330
  85. XDWProfile*privs_box*numColumns: 4
  86. $ CALL UNPACK DWPROFILE.DAT;91 53547320
  87. $ create 'f'
  88. X1 overview`20
  89. X=Title Overview of DWProfile
  90. X=Keyword overview
  91. X=Include menus
  92. X=Include fields
  93. X
  94. XDWProfile is a DECwindows application that provides
  95. Xmost of the functionality of the Authorize utility.`20
  96. XYou can add, delete, modify accounts and grant and
  97. Xrevoke identifiers.
  98. X
  99. X2 create
  100. X=Title Create new user
  101. X=Keyword create new_user
  102. X=Include menus file read
  103. X=Include menus file write
  104. X
  105. XTo create a new UAF record, perform the following steps:
  106. X 1. Place the new username in the User: field.
  107. X 2. Press return or click on the Read button.
  108. X 3. Edit the Owner field.
  109. X 4. Bring up the Accounts window.
  110. X 5. Double click on the account the user will have
  111. X    or enter a new account name and select Apply
  112. X    or enter the account name in the Account: field
  113. X       and press return.
  114. X 6. Update any other information specific to the user.
  115. X 7. Click on the Write button.
  116. X
  117. X(Write will also create a directory for the user).
  118. X
  119. X2 modify
  120. X=Title Modify an existing record
  121. X=Keyword Modify
  122. X=Include menus file read
  123. X=Include menus file write
  124. X
  125. XTo modify a UAF record, perform the following steps:
  126. X 1. Place the username in the User: field.
  127. X 2. Press return or click on the Read button.
  128. X 3. Update any of the information in the windows.
  129. X 4. Click on the Write button.
  130. X
  131. X(If the UIC has changed, Write will reset the ownership
  132. Xof all the user's files).
  133. X
  134. X2 delete
  135. X=Title Delete an existing record
  136. X=Keyword Delete
  137. X=Include menus file remove
  138. X
  139. XTo delete a UAF record, perform the following steps:
  140. X 1. Place the username in the User: field.
  141. X 4. Click on the Remove button.
  142. X
  143. X(Remove will delete the user's files and directory).
  144. X
  145. X1 version
  146. X=Title About DWProfile
  147. X=Keyword about version
  148. X
  149. XDWProfile V3.3
  150. X
  151. XWritten by Bruce Tanner (TANNER@Cerritos.EDU)
  152. X
  153. XIf you find this program useful, drop me a note so I
  154. Xcan have an idea of how many copies are being used out
  155. Xthere.
  156. X
  157. X1 menus
  158. X=Title DWProfile Menus
  159. X=Keyword menus
  160. X
  161. XThere are three menus in DWProfile:
  162. X
  163. X* A File menu to perform operations on UAF records.
  164. X
  165. X* A Windows menu to bring up secondary windows.
  166. X
  167. X* A Select menu to specify which attributes to find.
  168. X
  169. X2 file
  170. X=Title The File Menu
  171. X=Keyword file
  172. X
  173. XThe File menu controls the actions performed by
  174. XDWProfile.  Most of these actions are also available as
  175. Xbuttons at the bottom of the main window.
  176. X
  177. X3 read_identifiers
  178. X=Title Read Identifiers menu item
  179. X
  180. XRead Identifiers will read all the identifiers from the
  181. Xrightslist file.  This is normally not needed since
  182. Xthose actions that require identifiers will initiate
  183. Xthis action automatically.  It may be necessary to
  184. Xperform a Read Identifiers if any identifiers have been
  185. Xcreated outside DWProfile since a Read Identifiers has
  186. Xbeen performed.
  187. X
  188. X3 read
  189. X=Title Read button/menu item
  190. X
  191. XRead will display the UAF record specified by the User:
  192. Xtext field.  If there is no UAF record matching the
  193. Xuser name, the DEFAULT record's entries will be
  194. Xdisplayed.  An optional warning box will pop up to
  195. Xindicate that the user does not currently exist.
  196. X
  197. X3 find_next
  198. X=Title Find Next button/menu item
  199. X=Include menus select
  200. X
  201. XFind Next will display the next UAF record that matches
  202. Xthe selection criteria given by the Select menu.  If
  203. Xthere are no selection criteria, or if there are no
  204. Xmore records that match the criteria, the menu item
  205. Xwill be disabled.  If the selection background process
  206. Xis still running, a box will pop up showing how many of
  207. Xthe UAF records have been searched.
  208. X
  209. X3 write
  210. X=Title Write button/menu item
  211. X
  212. XWrite will create or update the UAF user record with
  213. Xthe values that have been set in the windows.  No
  214. Xmodifications will be made until the Write menu item or
  215. XWrite button is selected.  An optional message box will
  216. Xpop up indicating that a write operation has been
  217. Xperformed.
  218. X
  219. X3 remove
  220. X=Title Remove button/menu item
  221. X
  222. XRemove will delete the UAF user record specified by the
  223. XUser: text field.  A confirmation box will allow you to
  224. Xcancel the removal.
  225. X
  226. X3 quit
  227. X=Title Quit button/menu item
  228. X
  229. XQuit exits DWprofile.  Any user record currently
  230. Xdisplayed will not be modified.
  231. X
  232. X2 windows
  233. X=Title The Windows Menu
  234. X=Keyword windows
  235. X
  236. XThe Windows menu controls the secondary windows
  237. Xdisplayed by DWProfile.  If a window is displayed, its`20
  238. Xtoggle button will be 'on'.
  239. X
  240. X3 access
  241. X=Title Access window
  242. X=Keyword access
  243. X
  244. XThe Access window displays the days of the week that
  245. Xare primary as 'on' toggle buttons.  Click on the
  246. Xtoggle buttons to change the primary days.
  247. X
  248. XThis window also shows which hours of the day the user
  249. Xcan login on network, batch, local, dialup and remote
  250. Xterminals.  Click (or click and drag) on the black bars
  251. Xto change the hours of the day for each category.
  252. X
  253. X3 accounts
  254. X=Title Accounts window
  255. X=Keyword accounts
  256. X
  257. XThe Accounts window displays a list of identifiers that
  258. Xhave the value `5Bn,177777`5D which should correspond to
  259. Xall the possible account strings.  If you select
  260. X(double click on a list item or click and Accept) an
  261. Xaccount, the Account field will be updated and a new
  262. XUIC will be assigned to the next higher member number
  263. Xin the selected group.
  264. X
  265. X3 idents
  266. X=Title Idents window
  267. X=Keyword identifiers
  268. X
  269. XThe Idents window displays two lists of identifiers;
  270. Xa list of all the identifiers assignable to the user
  271. Xand a list of the identifiers held by the user.
  272. X
  273. XTo assign a new identifier to the user, click on the
  274. Xidentifier in the left list.  To revoke an identifier,
  275. Xclick on the identifier in the right list.
  276. X
  277. X3 privs
  278. X=Title Privs window
  279. X=Keyword privileges
  280. X
  281. XThe Privs window displays a set of toggle buttons for
  282. Xboth assigned and default privileges.  Privileges that
  283. Xare 'on' are enabled.
  284. X
  285. X2 select
  286. X=Title The Select Menu
  287. X=Keyword select find_next
  288. X=Include menus file find_next
  289. X
  290. XThe select menu allows you to choose a field to
  291. Xassociate with the 'Find Next' button.  When a
  292. Xmenu item is chosen, the value in that text field
  293. X(which may contain * and % wild cards) is saved and a
  294. Xbackground process is started that matches each UAF
  295. Xrecord against the chosen field.
  296. X
  297. X3 restart
  298. X=Title Reset Last Search
  299. X
  300. XThis menu item resets the pointer used by 'Find Next'
  301. Xto the beginning of the list of found UAF records
  302. Xwithout actually performing the search again.
  303. X
  304. X1 fields
  305. X=Title UAF Fields
  306. X=Keyword UAF_Fields
  307. X=Include menus windows access
  308. X=Include menus windows idents
  309. X=Include menus windows privs
  310. X
  311. XThe UAF fields available through DWProfile can be
  312. Xcategorized by their placement on the various windows.
  313. X
  314. XThe Text group is on the top of the main window and
  315. Xcontains mostly textual items.
  316. X
  317. XThe Flags group is in the middle of the main window and
  318. Xare all on/off items.
  319. X
  320. XThe Quotas group is on the bottom of the main window
  321. Xand contains numerical quotas.
  322. X
  323. XThe Access group is on a separate window and contains
  324. Xthe times and days of the week for various types of
  325. Xlogin.
  326. X
  327. XThe Identifiers group is on a separate window and
  328. Xcontains all the assignable identifiers and the
  329. Xidentifiers held by a user.
  330. X
  331. XThe Privs group is on a separate window and contains
  332. Xthe authorized and default privileges.
  333. X
  334. X2 text
  335. X=Title The Text Group
  336. X
  337. XThe Text group contains 13 fields.  Most of these
  338. Xfields can be used by the 'Select' menu.
  339. X
  340. X3 user
  341. X=Title User field
  342. X=Include menus select
  343. X
  344. XThe user field contains the user name, 12 characters
  345. Xmaximum.  It is required for the Read, Write and Remove
  346. Xfunctions.
  347. X
  348. XIf a return is pressed while in this field, a Read
  349. Xfunction is performed.
  350. X
  351. XThis field (including * and % wildcard characters) is
  352. Xalso used by the 'Select User' menu item to select the
  353. Xpattern to match against user names.
  354. X
  355. X3 owner
  356. X=Title Owner field
  357. X=Include menus select
  358. X
  359. XThe owner field contains the full name of the user, 32
  360. Xcharacters maximum.  It is required for the Write
  361. Xfunction.
  362. X
  363. XThis field (including * and % wildcard characters) is
  364. Xalso used by the 'Select Owner' menu item to select the
  365. Xpattern to match against owner fields.
  366. X
  367. X3 account
  368. X=Title Account field
  369. X=Include menus windows accounts
  370. X=Include menus select
  371. X
  372. XThe account field contains the account string for the
  373. Xuser, 8 characters maximum.  It is required for the
  374. XWrite function.
  375. X
  376. XIf a return is pressed in this field and the UIC is
  377. X`5B0,0`5D, a new UIC will be calculated.
  378. X
  379. XThis field (including * and % wildcard characters) is
  380. Xalso used by the 'Select Account' menu item to select
  381. Xthe pattern to match against account strings.
  382. X
  383. X3 password
  384. X=Title Password field
  385. X
  386. XThe password field contains the password, 32
  387. Xcharacters maximum.  It is not displayed when a UAF
  388. Xrecord is read.
  389. X
  390. X3 pwdmin
  391. X=Title Password Length field
  392. X
  393. XThe password length field specifies the minimum
  394. Xpassword length given to the SET PASSWORD command. It
  395. Xdoes not apply to the passwords set by DWProfile.
  396. X
  397. X3 uic
  398. X=Title UIC field
  399. X=Include menus select
  400. X
  401. XThe UIC field contains the User Identification Code for
  402. Xthe user in the form `5Bgroup,member`5D, where group and
  403. Xmember are octal numbers.  It is required for the Write
  404. Xoperation.
  405. X
  406. XIf it is modified, the ownership of the files in the
  407. Xdirectory specified by the Device and Directory fields
  408. Xis changed to the new UIC.
  409. X
  410. XThis field (including * and % wildcard characters) is
  411. Xalso used by the 'Select Account' menu item to select
  412. Xthe pattern to match against UICs.
  413. X
  414. X3 device
  415. X=Title Device field
  416. X=Include menus select
  417. X
  418. XThe device field contains the disk (or logical) name
  419. Xthat forms the root directory tree used with the
  420. Xdirectory field to form the user home directory.
  421. X
  422. XIf the device is changed, the MOVE_DIRECTORY command
  423. Xfile is spawned to move the directory tree to the new
  424. Xdevice.
  425. X
  426. XThis field (including * and % wildcard characters) is
  427. Xalso used by the 'Select Account' menu item to select
  428. Xthe pattern to match against devices.
  429. X
  430. X
  431. X3 directory
  432. X=Title Directory field
  433. X=Include menus select
  434. X
  435. XThe directory field contains the name of the home
  436. Xdirectory for the user.
  437. X
  438. XIf the directory is changed, the MOVE_DIRECTORY command
  439. Xfile is spawned to move the directory tree.
  440. X
  441. XThis field (including * and % wildcard characters) is
  442. Xalso used by the 'Select Account' menu item to select
  443. Xthe pattern to match against directories.
  444. X
  445. X3 cli
  446. X=Title CLI field
  447. X=Include menus select
  448. X
  449. XThe CLI field contains the name of the Command Line
  450. XInterpreter (DCL, Posix, etc.) for the user.
  451. X
  452. XThis field (including * and % wildcard characters) is
  453. Xalso used by the 'Select Account' menu item to select
  454. Xthe pattern to match against CLIs.
  455. X
  456. X3 lgicmd
  457. X=Title LGICMD field
  458. X=Include menus select
  459. X
  460. XThe LGICMD field contains the name of the login command
  461. Xfile (normally LOGIN) for the user.
  462. X
  463. XThis field (including * and % wildcard characters) is
  464. Xalso used by the 'Select Account' menu item to select
  465. Xthe pattern to match against LGICMDs.
  466. X
  467. X3 table
  468. X=Title Table field
  469. X=Include menus select
  470. X
  471. XThe table field contains the name of the default DCL
  472. Xcommand table (normally DCLTABLES) for the user.
  473. X
  474. XThis field (including * and % wildcard characters) is
  475. Xalso used by the 'Select Account' menu item to select
  476. Xthe pattern to match against tables.
  477. X
  478. X3 lifetime
  479. X=Title Password Lifetime field
  480. X=Include menus select
  481. X
  482. XThe password lifetime field contains the delta time
  483. X(dddd hh:mm:ss.cc) that specifies the number of days,
  484. Xhours and minutes between mandatory password changes.`20
  485. XIf hh:mm:ss.cc is omitted, 00:00:00.00 is assumed.
  486. X
  487. XThis field is also used by the 'Select Account' menu
  488. Xitem to select the time to match against password
  489. Xlifetimes.
  490. X
  491. X3 expiration
  492. X=Title Expiration field
  493. X=Include menus select
  494. X
  495. XThe expiration field contains the date and time that
  496. Xthe UAF record will be denied login.  Normally it is
  497. X(none), meaning no expiration.  The syntax for the
  498. Xfield is dd-mmm-yyyy hh:mm:ss.cc.  If hh:mm:ss.cc is
  499. Xomitted, 00:00:00.00 (midnight) is assumed.
  500. X
  501. X2 flags
  502. X=Title The Flags group
  503. X
  504. XThe Flags group has 20 toggle buttons.  The buttons
  505. Xindicate on/off capabilities, with the 'on' condition
  506. Xindicating that the capability is enabled.
  507. X
  508. X2 quotas
  509. X=Title The Quotas group
  510. X
  511. XThe Quotas group has 21 fields that contain
  512. Xnumeric values indicating per-process and per-job
  513. Xquotas.
  514. X
  515. $ CALL UNPACK DWPROFILE.HLP;21 1886389860
  516. $ create 'f'
  517. Xmodule DWProfile
  518. X`09names = case_sensitive
  519. X
  520. X        objects = `7B
  521. X                XmSeparator = gadget;
  522. X                XmLabel = gadget;
  523. X                XmPushButton = gadget;
  524. X                XmToggleButton = gadget;
  525. X                `7D
  526. X
  527. X
  528. Xprocedure
  529. X`09WidgetCreated(integer);
  530. X`09WidgetChanged(integer);
  531. X`09Help(string);
  532. X
  533. Xvalue
  534. X`09k_label_deltax:`09`095;`09! offset from left side of form to XmLabel
  535. X`09k_text_deltax:`09`0990;`09! part 3 offset from left side of form to text
  536. V widget
  537. X`09k_text_deltax1:`09`0980;`09! col 1 offset from left side of form to text
  538. V widget
  539. X`09k_text_deltax2:`09`0990;`09! col 2 offset from left side of form to text
  540. V widget
  541. X`09k_text_deltax3:`09`0975;`09! col 3 offset from left side of form to text
  542. V widget
  543. X`09k_label_form_offset:`095;`09! offset from top of form to XmLabel (to alig
  544. Vn with widget)
  545. X`09k_flag_margin:`09`090;
  546. X`09k_tab1:`09`09`090;
  547. X`09k_tab2:`09`09`09220;
  548. X`09k_tab3:`09`09`09420;
  549. X`09k_col1:`09`09`090;
  550. X`09k_col2:`09`09`09200;
  551. X`09k_col3:`09`09`09400;
  552. X
  553. X`09k_line_height:`09`0930;
  554. X`09k_dialog_y:`09`0930;
  555. X`09k_line_1_y:`09`0910;
  556. X`09k_line_2_y:`09`09k_line_1_y + k_line_height;
  557. X`09k_line_3_y:`09`09k_line_2_y + k_line_height;
  558. X`09k_line_4_y:`09`09k_line_3_y + k_line_height;
  559. X`09k_line_5_y:`09`09k_line_4_y + k_line_height;
  560. X`09k_line_login_y:`09`09k_line_5_y + k_line_height + 5;
  561. X`09k_flags_y:`09`09k_line_login_y + k_line_height;
  562. X`09k_line_6_y:`09`09k_flags_y + 105;
  563. X`09k_line_7_y:`09`09k_line_6_y + k_line_height;
  564. X`09k_line_8_y:`09`09k_line_7_y + k_line_height;
  565. X`09k_line_9_y:`09`09k_line_8_y + k_line_height;
  566. X`09k_line_10_y:`09`09k_line_9_y + k_line_height;
  567. X`09k_line_11_y:`09`09k_line_10_y + k_line_height;
  568. X`09k_line_12_y:`09`09k_line_11_y + k_line_height;
  569. X`09k_functions_y:`09`09k_line_12_y + k_line_height + 20;
  570. X
  571. X`09k_main_height:`09`09k_functions_y + 80;
  572. X`09k_main_width:`09`09620;
  573. X
  574. X
  575. Xobject
  576. X`09dwprofile_main: XmMainWindow `7B
  577. X`09`09arguments `7B
  578. X`09`09`09`7D;
  579. X`09`09controls `7B
  580. X`09`09`09XmMenuBar`09menu;
  581. X`09`09`09XmBulletinBoard`09main_box;
  582. X`09`09`09`7D;
  583. X`09`09callbacks `7B
  584. X`09`09`09XmNhelpCallback = procedure Help("overview");
  585. X`09`09`09`7D;
  586. X`09`09`7D;
  587. X
  588. X`09main_box: XmBulletinBoard `7B
  589. X`09`09arguments `7B
  590. X`09`09`09XmNy = k_dialog_y;
  591. X`09`09`09`7D;
  592. X`09`09controls `7B
  593. X`09`09`09XmForm`09user;
  594. X`09`09`09XmForm`09owner;
  595. X`09`09`09XmForm`09account;
  596. X`09`09`09XmForm`09uic;
  597. X`09`09`09XmLabel`09uic_trans;
  598. X`09`09`09XmForm`09device;
  599. X`09`09`09XmForm`09table;
  600. X`09`09`09XmForm`09cli;
  601. X`09`09`09XmForm`09directory;
  602. X`09`09`09XmForm`09lgicmd;
  603. X`09`09`09XmForm`09password;
  604. X`09`09`09XmForm`09lastlogin_i;
  605. X`09`09`09XmForm`09lastlogin_n;
  606. X`09`09`09XmForm`09logfails;
  607. X`09`09`09XmSeparator`09sep1;
  608. X`09`09`09XmRowColumn`09flags;
  609. X`09`09`09XmSeparator`09sep2;
  610. X`09`09`09XmForm`09expiration;
  611. X`09`09`09XmForm`09pwdlifetime;
  612. X`09`09`09XmForm`09pwdlength;
  613. X`09`09`09XmForm`09maxjobs;
  614. X`09`09`09XmForm`09fillm;
  615. X`09`09`09XmForm`09bytlm;
  616. X`09`09`09XmForm`09maxacctjobs;
  617. X`09`09`09XmForm`09shrfillm;
  618. X`09`09`09XmForm`09pbytlm;
  619. X`09`09`09XmForm`09maxdetach;
  620. X`09`09`09XmForm`09biolm;
  621. X`09`09`09XmForm`09jtquota;
  622. X`09`09`09XmForm`09prclm;
  623. X`09`09`09XmForm`09diolm;
  624. X`09`09`09XmForm`09wsdef;
  625. X`09`09`09XmForm`09prio;
  626. X`09`09`09XmForm`09astlm;
  627. X`09`09`09XmForm`09wsquota;
  628. X`09`09`09XmForm`09queprio;
  629. X`09`09`09XmForm`09tqelm;
  630. X`09`09`09XmForm`09wsextent;
  631. X`09`09`09XmForm`09cpu;
  632. X`09`09`09XmForm`09enqlm;
  633. X`09`09`09XmForm`09pgflquo;
  634. X`09`09`09XmRowColumn`09functions;
  635. X`09`09`09`7D;
  636. X`09`09`7D;
  637. X
  638. X
  639. Xinclude file '`5B`5Dtext.uil';
  640. Xinclude file '`5B`5Dflags.uil';
  641. Xinclude file '`5B`5Dquotas.uil';
  642. Xinclude file '`5B`5Dbuttons.uil';
  643. Xend module;
  644. $ CALL UNPACK DWPROFILE.UIL;44 436301396
  645. $ create 'f'
  646. Xvalue
  647. X`09k_disctly_button:`090;
  648. X`09k_defcli_button:`091;
  649. X`09k_lockpwd_button:`092;
  650. X`09k_restricted_button:`093;
  651. X`09k_disacnt_button:`094;
  652. X`09k_diswelcom_button:`095;
  653. X`09k_dismail_button:`096;
  654. X`09k_nomail_button:`097;
  655. X`09k_genpwd_button:`098;
  656. X`09k_pwd_button:`09`099;
  657. X`09k_pwd2_button:`09`0910;
  658. X`09k_audit_button:`09`0911;
  659. X`09k_disreport_button:`0912;
  660. X`09k_disreconnect_button:`0913;
  661. X`09k_autologin_button:`0914;
  662. X`09k_disforce_button:`0915;
  663. X`09k_captive_button:`0916;
  664. X`09k_disimage_button:`0917;
  665. X`09k_dispwddic_button:`0918;
  666. X`09k_dispwdhis_button:`0919;
  667. X
  668. X`09k_disctly_label_text:`09`09"Disctly";
  669. X`09k_defcli_label_text:`09`09"Defcli";
  670. X`09k_lockpwd_label_text:  `09`09"Lockpwd";
  671. X`09k_restricted_label_text:`09"Restricted";`09! old captive becomes restrict
  672. Ved
  673. X`09k_disacnt_label_text:`09`09"Disuser";`09! disable accnt = disable user ?
  674. X`09k_diswelcom_label_text:`09`09"Diswelcome";`09! looks better with the 'e'
  675. X`09k_dismail_label_text:`09`09"Dismail";
  676. X`09k_nomail_label_text:`09`09"Disnewmail";`09! ??
  677. X`09k_genpwd_label_text:`09`09"Genpwd";
  678. X`09k_pwd_label_text:      `09`09"Pwd Exp";
  679. X`09k_pwd2_label_text:`09`09"Pwd2 Exp";
  680. X`09k_audit_label_text:`09`09"Audit";
  681. X`09k_disreport_label_text:`09`09"Disreport";
  682. X`09k_disreconnect_label_text:`09"Disreconnect";
  683. X`09k_autologin_label_text:`09`09"Autologin";
  684. X`09k_disforce_label_text:`09`09"Disforce";
  685. X`09k_disimage_label_text:`09`09"Disimage";
  686. X`09k_captive_label_text:`09`09"Captive";
  687. X`09k_dispwddic_label_text:`09`09"Dispwddic";
  688. X`09k_dispwdhis_label_text:`09`09"Dispwdhis";
  689. X
  690. X`09k_widget_disctly:`09k_disctly_button;
  691. X`09k_widget_defcli:`09k_defcli_button;
  692. X`09k_widget_lockpwd:`09k_lockpwd_button;
  693. X`09k_widget_restricted:`09k_restricted_button;
  694. X`09k_widget_disacnt:`09k_disacnt_button;
  695. X`09k_widget_diswelcom:`09k_diswelcom_button;
  696. X`09k_widget_dismail:`09k_dismail_button;
  697. X`09k_widget_nomail:`09k_nomail_button;
  698. X`09k_widget_genpwd:`09k_genpwd_button;
  699. X`09k_widget_pwd:`09`09k_pwd_button;
  700. X`09k_widget_pwd2:`09`09k_pwd2_button;
  701. X`09k_widget_audit:`09`09k_audit_button;
  702. X`09k_widget_disreport:`09k_disreport_button;
  703. X`09k_widget_disreconnect:`09k_disreconnect_button;
  704. X`09k_widget_autologin:`09k_autologin_button;
  705. X`09k_widget_disforce:`09k_disforce_button;
  706. X`09k_widget_captive:`09k_captive_button;
  707. X`09k_widget_disimage:`09k_disimage_button;
  708. X`09k_widget_dispwddic:`09k_dispwddic_button;
  709. X`09k_widget_dispwdhis:`09k_dispwdhis_button;
  710. X
  711. Xprocedure
  712. X`09FlagsCreated(integer);
  713. X`09FlagsChanged(integer);
  714. X
  715. Xobject
  716. X`09sep1: XmSeparator `7B
  717. X`09`09arguments `7B
  718. X`09`09`09XmNx = k_main_width / 10;
  719. X`09`09`09XmNwidth = k_main_width * 8 / 10;
  720. X`09`09`09XmNy = k_flags_y - 2;
  721. X`09`09`09`7D;
  722. X`09`09`7D;
  723. X
  724. Xobject
  725. X`09sep2: XmSeparator `7B
  726. X`09`09arguments `7B
  727. X`09`09`09XmNx = k_main_width / 10;
  728. X`09`09`09XmNwidth = k_main_width * 8 / 10;
  729. X`09`09`09XmNy = k_line_6_y - 10;
  730. X`09`09`09`7D;
  731. X`09`09`7D;
  732. X
  733. Xobject
  734. X`09flags: XmRowColumn `7B
  735. X`09`09arguments `7B
  736. X`09`09`09XmNy = k_flags_y;
  737. X`09`09`09XmNx = 30;
  738. X`09`09`09XmNnumColumns = 4;
  739. X`09`09`09XmNorientation = XmHORIZONTAL;
  740. X`09`09`09XmNpacking = XmPACK_COLUMN;
  741. X`09`09`09XmNspacing = 0;
  742. X`09`09`09`7D;
  743. X`09`09controls `7B
  744. X`09`09`09XmToggleButton audit_button;
  745. X`09`09`09XmToggleButton autologin_button;
  746. X`09`09`09XmToggleButton captive_button;
  747. X`09`09`09XmToggleButton defcli_button;
  748. X`09`09`09XmToggleButton disctly_button;
  749. X`09`09`09XmToggleButton disforce_button;
  750. X`09`09`09XmToggleButton disimage_button;
  751. X`09`09`09XmToggleButton dismail_button;
  752. X`09`09`09XmToggleButton nomail_button;
  753. X`09`09`09XmToggleButton dispwddic_button;
  754. X`09`09`09XmToggleButton dispwdhis_button;
  755. X`09`09`09XmToggleButton disreconnect_button;
  756. X`09`09`09XmToggleButton disreport_button;
  757. X`09`09`09XmToggleButton disacnt_button;
  758. X`09`09`09XmToggleButton diswelcom_button;
  759. X`09`09`09XmToggleButton genpwd_button;
  760. X`09`09`09XmToggleButton lockpwd_button;
  761. X`09`09`09XmToggleButton pwd_button;
  762. X`09`09`09XmToggleButton pwd2_button;
  763. X`09`09`09XmToggleButton restricted_button;
  764. X`09`09`09`7D;
  765. X`09`09callbacks `7B
  766. X`09`09`09XmNhelpCallback = procedure Help("fields flags");
  767. X`09`09`09`7D;
  768. X`09`09`7D;
  769. X
  770. X`09disctly_button: XmToggleButton `7B
  771. X`09`09arguments `7B
  772. X`09`09`09XmNlabelString = k_disctly_label_text;
  773. X`09`09`09XmNmarginHeight = k_flag_margin;
  774. X`09`09`09`7D;
  775. X`09`09callbacks `7B
  776. X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_disctly_button);
  777. X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_disctly);
  778. X`09`09`09`7D;
  779. X`09`09`7D;
  780. X
  781. X`09defcli_button: XmToggleButton `7B
  782. X`09`09arguments `7B
  783. X`09`09`09XmNlabelString = k_defcli_label_text;
  784. X`09`09`09XmNmarginHeight = k_flag_margin;
  785. X`09`09`09`7D;
  786. X`09`09callbacks `7B
  787. X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_defcli_button);
  788. X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_defcli);
  789. X`09`09`09`7D;
  790. X`09`09`7D;
  791. X
  792. X`09lockpwd_button: XmToggleButton `7B
  793. X`09`09arguments `7B
  794. X`09`09`09XmNlabelString = k_lockpwd_label_text;
  795. X`09`09`09XmNmarginHeight = k_flag_margin;
  796. X`09`09`09`7D;
  797. X`09`09callbacks `7B
  798. X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_lockpwd_button);
  799. X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_lockpwd);
  800. X`09`09`09`7D;
  801. X`09`09`7D;
  802. X
  803. X`09restricted_button: XmToggleButton `7B
  804. X`09`09arguments `7B
  805. X`09`09`09XmNlabelString = k_restricted_label_text;
  806. X`09`09`09XmNmarginHeight = k_flag_margin;
  807. X`09`09`09`7D;
  808. X`09`09callbacks `7B
  809. X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_restricted_butto
  810. Vn);
  811. X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_restricted);
  812. X`09`09`09`7D;
  813. X`09`09`7D;
  814. X
  815. X`09disacnt_button: XmToggleButton `7B
  816. X`09`09arguments `7B
  817. X`09`09`09XmNlabelString = k_disacnt_label_text;
  818. X`09`09`09XmNmarginHeight = k_flag_margin;
  819. X`09`09`09`7D;
  820. X`09`09callbacks `7B
  821. X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_disacnt_button);
  822. X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_disacnt);
  823. X`09`09`09`7D;
  824. X`09`09`7D;
  825. X
  826. X`09diswelcom_button: XmToggleButton `7B
  827. X`09`09arguments `7B
  828. X`09`09`09XmNlabelString = k_diswelcom_label_text;
  829. X`09`09`09XmNmarginHeight = k_flag_margin;
  830. X`09`09`09`7D;
  831. X`09`09callbacks `7B
  832. X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_diswelcom_button
  833. V);
  834. X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_diswelcom);
  835. X`09`09`09`7D;
  836. X`09`09`7D;
  837. X
  838. X`09dismail_button: XmToggleButton `7B
  839. X`09`09arguments `7B
  840. X`09`09`09XmNlabelString = k_dismail_label_text;
  841. X`09`09`09XmNmarginHeight = k_flag_margin;
  842. X`09`09`09`7D;
  843. X`09`09callbacks `7B
  844. X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_dismail_button);
  845. X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_dismail);
  846. X`09`09`09`7D;
  847. X`09`09`7D;
  848. X
  849. X`09nomail_button: XmToggleButton `7B
  850. X`09`09arguments `7B
  851. X`09`09`09XmNlabelString = k_nomail_label_text;
  852. X`09`09`09XmNmarginHeight = k_flag_margin;
  853. X`09`09`09`7D;
  854. X`09`09callbacks `7B
  855. X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_nomail_button);
  856. X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_nomail);
  857. X`09`09`09`7D;
  858. X`09`09`7D;
  859. X
  860. X`09genpwd_button: XmToggleButton `7B
  861. X`09`09arguments `7B
  862. X`09`09`09XmNlabelString = k_genpwd_label_text;
  863. X`09`09`09XmNmarginHeight = k_flag_margin;
  864. X`09`09`09`7D;
  865. X`09`09callbacks `7B
  866. X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_genpwd_button);
  867. X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_genpwd);
  868. X`09`09`09`7D;
  869. X`09`09`7D;
  870. X
  871. X`09pwd_button: XmToggleButton `7B
  872. X`09`09arguments `7B
  873. X`09`09`09XmNlabelString = k_pwd_label_text;
  874. X`09`09`09XmNmarginHeight = k_flag_margin;
  875. X`09`09`09`7D;
  876. X`09`09callbacks `7B
  877. X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_pwd_button);
  878. X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_pwd);
  879. X`09`09`09`7D;
  880. X`09`09`7D;
  881. X
  882. X`09pwd2_button: XmToggleButton `7B
  883. X`09`09arguments `7B
  884. X`09`09`09XmNlabelString = k_pwd2_label_text;
  885. X`09`09`09XmNmarginHeight = k_flag_margin;
  886. X`09`09`09`7D;
  887. X`09`09callbacks `7B
  888. X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_pwd2_button);
  889. X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_pwd2);
  890. X`09`09`09`7D;
  891. X`09`09`7D;
  892. X
  893. X`09audit_button: XmToggleButton `7B
  894. X`09`09arguments `7B
  895. X`09`09`09XmNlabelString = k_audit_label_text;
  896. X`09`09`09XmNmarginHeight = k_flag_margin;
  897. X`09`09`09`7D;
  898. X`09`09callbacks `7B
  899. X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_audit_button);
  900. X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_audit);
  901. X`09`09`09`7D;
  902. X`09`09`7D;
  903. X
  904. X`09disreport_button: XmToggleButton `7B
  905. X`09`09arguments `7B
  906. X`09`09`09XmNlabelString = k_disreport_label_text;
  907. X`09`09`09XmNmarginHeight = k_flag_margin;
  908. X`09`09`09`7D;
  909. X`09`09callbacks `7B
  910. X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_disreport_button
  911. V);
  912. X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_disreport);
  913. X`09`09`09`7D;
  914. X`09`09`7D;
  915. X
  916. X`09disreconnect_button: XmToggleButton `7B
  917. X`09`09arguments `7B
  918. X`09`09`09XmNlabelString = k_disreconnect_label_text;
  919. X`09`09`09XmNmarginHeight = k_flag_margin;
  920. X`09`09`09`7D;
  921. X`09`09callbacks `7B
  922. X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_disreconnect_but
  923. Vton);
  924. X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_disreconnect);
  925. X`09`09`09`7D;
  926. X`09`09`7D;
  927. X
  928. X`09autologin_button: XmToggleButton `7B
  929. X`09`09arguments `7B
  930. X`09`09`09XmNlabelString = k_autologin_label_text;
  931. X`09`09`09XmNmarginHeight = k_flag_margin;
  932. X`09`09`09`7D;
  933. X`09`09callbacks `7B
  934. X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_autologin_button
  935. V);
  936. X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_autologin);
  937. X`09`09`09`7D;
  938. X`09`09`7D;
  939. X
  940. X`09disforce_button: XmToggleButton `7B
  941. X`09`09arguments `7B
  942. X`09`09`09XmNlabelString = k_disforce_label_text;
  943. X`09`09`09XmNmarginHeight = k_flag_margin;
  944. X`09`09`09`7D;
  945. X`09`09callbacks `7B
  946. X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_disforce_button)
  947. V;
  948. X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_disforce);
  949. X`09`09`09`7D;
  950. X`09`09`7D;
  951. X
  952. X`09disimage_button: XmToggleButton `7B
  953. X`09`09arguments `7B
  954. X`09`09`09XmNlabelString = k_disimage_label_text;
  955. X`09`09`09XmNmarginHeight = k_flag_margin;
  956. X`09`09`09`7D;
  957. X`09`09callbacks `7B
  958. X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_disimage_button)
  959. V;
  960. X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_disimage);
  961. X`09`09`09`7D;
  962. X`09`09`7D;
  963. X
  964. X`09captive_button: XmToggleButton `7B
  965. X`09`09arguments `7B
  966. X`09`09`09XmNlabelString = k_captive_label_text;
  967. X`09`09`09XmNmarginHeight = k_flag_margin;
  968. X`09`09`09`7D;
  969. X`09`09callbacks `7B
  970. X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_captive_button);
  971. X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_captive);
  972. X`09`09`09`7D;
  973. X`09`09`7D;
  974. X
  975. X`09dispwddic_button: XmToggleButton `7B
  976. X`09`09arguments `7B
  977. X`09`09`09XmNlabelString = k_dispwddic_label_text;
  978. X`09`09`09XmNmarginHeight = k_flag_margin;
  979. X`09`09`09`7D;
  980. X`09`09callbacks `7B
  981. X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_dispwddic_button
  982. V);
  983. X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_dispwddic);
  984. X`09`09`09`7D;
  985. X`09`09`7D;
  986. X
  987. X`09dispwdhis_button: XmToggleButton `7B
  988. X`09`09arguments `7B
  989. X`09`09`09XmNlabelString = k_dispwdhis_label_text;
  990. X`09`09`09XmNmarginHeight = k_flag_margin;
  991. X`09`09`09`7D;
  992. X`09`09callbacks `7B
  993. X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_dispwdhis_button
  994. V);
  995. X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_dispwdhis);
  996. X`09`09`09`7D;
  997. X`09`09`7D;
  998. $ CALL UNPACK FLAGS.UIL;51 86073164
  999. $ create 'f'
  1000. Xmodule Idents
  1001. X`09names = case_sensitive
  1002. X
  1003. X        objects = `7B
  1004. X                XmSeparator = gadget;
  1005. X                XmLabel = gadget;
  1006. X                XmPushButton = gadget;
  1007. X                XmToggleButton = gadget;
  1008. X                `7D
  1009. X
  1010. Xprocedure
  1011. X`09WidgetCreated(integer);
  1012. X`09ListSelect(integer);
  1013. X`09Help(string);
  1014. X
  1015. Xvalue
  1016. X`09k_widget_held_list:`098;
  1017. X`09k_widget_all_list:`099;
  1018. X
  1019. Xobject
  1020. X`09idents_box: XmBulletinBoardDialog `7B
  1021. X`09`09arguments `7B
  1022. X`09`09`09XmNdialogTitle = "DWProfile: Rightslist Identifiers";
  1023. X`09`09`09XmNdefaultPosition = false;
  1024. X`09`09`7D;
  1025. X`09`09controls `7B
  1026. X`09`09`09XmForm`09`09idents_form;
  1027. X`09`09`09`7D;
  1028. X`09`09callbacks `7B
  1029. X`09`09`09XmNhelpCallback = procedure Help("menus windows idents");
  1030. X`09`09`09`7D;
  1031. X`09`09`7D;
  1032. X
  1033. X`09idents_form: XmForm `7B
  1034. X`09`09controls `7B
  1035. X`09`09`09XmForm`09`09all_form;
  1036. X`09`09`09XmForm`09`09held_form;
  1037. X`09`09`09`7D;
  1038. X`09`09`7D;
  1039. X
  1040. X`09all_form: XmForm `7B
  1041. X`09`09controls `7B
  1042. X`09`09`09XmLabel`09`09all_label;
  1043. X`09`09`09XmScrolledList`09all_idents;
  1044. X`09`09`09`7D;
  1045. X`09`09`7D;
  1046. X
  1047. X`09held_form: XmForm `7B
  1048. X`09`09arguments `7B
  1049. X`09`09`09XmNleftAttachment = XmATTACH_WIDGET;
  1050. X`09`09`09XmNleftWidget = all_form;
  1051. X`09`09`09XmNleftOffset = 10;
  1052. X`09`09`09`7D;
  1053. X`09`09controls `7B
  1054. X`09`09`09XmLabel`09`09held_label;
  1055. X`09`09`09XmScrolledList`09held_idents;
  1056. X`09`09`09`7D;
  1057. X`09`09`7D;
  1058. X
  1059. X`09all_label: XmLabel `7B
  1060. X`09`09arguments `7B
  1061. X`09`09`09XmNlabelString = "Click here to add identifiers";
  1062. X`09`09`09`7D;
  1063. X`09`09`7D;
  1064. X
  1065. X`09all_idents: XmScrolledList `7B
  1066. X`09`09arguments `7B
  1067. X`09`09`09XmNtopAttachment = XmATTACH_WIDGET;              `20
  1068. X`09`09`09XmNtopWidget = all_label;
  1069. X`09`09`09XmNleftAttachment = XmATTACH_FORM;              `20
  1070. X`09`09`09XmNrightAttachment = XmATTACH_FORM;              `20
  1071. X`09`09`09XmNvisibleItemCount = 6;
  1072. X`09`09`09XmNselectionPolicy = XmSINGLE_SELECT;
  1073. X`09`09`09XmNscrollBarDisplayPolicy = XmSTATIC;
  1074. X`09`09`09`7D;
  1075. X`09`09callbacks `7B
  1076. X`09`09`09MrmNcreateCallback = procedure WidgetCreated(k_widget_all_list);
  1077. X`09`09`09XmNsingleSelectionCallback = procedure ListSelect(k_widget_all_list
  1078. V);
  1079. X`09`09`09`7D;
  1080. X`09`09`7D;
  1081. X
  1082. X`09held_label: XmLabel `7B
  1083. X`09`09arguments `7B
  1084. X`09`09`09XmNlabelString = "Click here to remove identifiers";
  1085. X`09`09`09`7D;
  1086. X`09`09`7D;
  1087. X
  1088. X`09held_idents: XmScrolledList `7B
  1089. X`09`09arguments `7B
  1090. X`09`09`09XmNtopAttachment = XmATTACH_WIDGET;              `20
  1091. X`09`09`09XmNtopWidget = held_label;
  1092. X`09`09`09XmNleftAttachment = XmATTACH_FORM;
  1093. X`09`09`09XmNrightAttachment = XmATTACH_FORM;
  1094. X`09`09`09XmNvisibleItemCount = 6;
  1095. X`09`09`09XmNselectionPolicy = XmSINGLE_SELECT;
  1096. X`09`09`09XmNscrollBarDisplayPolicy = XmSTATIC;
  1097. X`09`09`09`7D;
  1098. X`09`09callbacks `7B
  1099. X`09`09`09MrmNcreateCallback = procedure WidgetCreated(k_widget_held_list);
  1100. X`09`09`09XmNsingleSelectionCallback = procedure ListSelect(k_widget_held_lis
  1101. Vt);
  1102. X`09`09`09`7D;
  1103. X`09`09`7D;
  1104. Xend module;
  1105. $ CALL UNPACK IDENTS.UIL;33 694426748
  1106. $ create 'f'
  1107. Xsys$library:decw$xmlibshr.exe/share
  1108. Xsys$library:decw$dxmlibshr.exe/share
  1109. $ CALL UNPACK MOTIF.OPT;3 2036425042
  1110. $ create 'f'
  1111. X$! move a directory from p1p2 to p3p4
  1112. X$ if p1 .eqs. "" .or. p2 .eqs. "" .or. p3 .eqs. "" .or. p4 .eqs. "" then exi
  1113. Vt
  1114. X$ if "''p1'''p2'" .eqs. "''p3'''p4'" then exit
  1115. X$
  1116. X$ p2dir = p2 - "`5B" - "`5D"
  1117. X$ p4dir = p4 - "`5B" - "`5D"
  1118. X$ backup 'p1'`5B000000`5D'p2dir'.dir 'p3'`5B000000`5D'p4dir'.dir/by_owner=or
  1119. Viginal
  1120. X$ backup 'p1'`5B'p2dir'...`5D*.*;* 'p3'`5B'p4dir'...`5D*.*;*/by_owner=origin
  1121. Val
  1122. X$ @dwpuid:deltree 'p1''p2'
  1123. X$ exit
  1124. $ CALL UNPACK MOVE_DIRECTORY.COM;10 426015537
  1125. $ create 'f'
  1126. Xmodule Privs
  1127. X`09names = case_sensitive
  1128. X
  1129. X        objects = `7B
  1130. X                XmSeparator = gadget;
  1131. X                XmLabel = gadget;
  1132. X                XmPushButton = gadget;
  1133. X                XmToggleButton = gadget;
  1134. X                `7D
  1135. X
  1136. X
  1137. Xvalue
  1138. X`09k_title:`09`09"DWProfile: Privileges";
  1139. X
  1140. X`09k_cmkrnl_button:`090;
  1141. X`09k_cmexec_button:`091;
  1142. X`09k_sysnam_button:`092;
  1143. X`09k_grpnam_button:`093;
  1144. X`09k_allspool_button:`094;
  1145. X`09k_detach_button:`095;
  1146. X`09k_diagnose_button:`096;
  1147. X`09k_log_io_button:`097;
  1148. X`09k_group_button:`09`098;
  1149. X`09k_noacnt_button:`099;
  1150. X`09k_prmceb_button:`0910;
  1151. X`09k_prmmbx_button:`0911;
  1152. X`09k_pswapm_button:`0912;
  1153. X`09k_setpri_button:`0913;
  1154. X`09k_setprv_button:`0914;
  1155. X`09k_tmpmbx_button:`0915;
  1156. X`09k_world_button:`09`0916;
  1157. X`09k_mount_button:`09`0917;
  1158. X`09k_oper_button:`09`0918;
  1159. X`09k_exquota_button:`0919;
  1160. X`09k_netmbx_button:`0920;
  1161. X`09k_volpro_button:`0921;
  1162. X`09k_phy_io_button:`0922;
  1163. X`09k_bugchk_button:`0923;
  1164. X`09k_prmgbl_button:`0924;
  1165. X`09k_sysgbl_button:`0925;
  1166. X`09k_pfnmap_button:`0926;
  1167. X`09k_shmem_button:`09`0927;
  1168. X`09k_sysprv_button:`0928;
  1169. X`09k_bypass_button:`0929;
  1170. X`09k_syslck_button:`0930;
  1171. X`09k_share_button:`09`0931;
  1172. X`09k_upgrade_button:`0932;
  1173. X`09k_downgrade_button:`0933;
  1174. X`09k_grpprv_button:`0934;
  1175. X`09k_readall_button:`0935;
  1176. X`09k_security_button:`0938;
  1177. X
  1178. X`09k_def_bias:`09`0940;
  1179. X
  1180. X`09k_widget_cmkrnl:`09k_cmkrnl_button;
  1181. X`09k_widget_cmexec:`09k_cmexec_button;
  1182. X`09k_widget_sysnam:`09k_sysnam_button;
  1183. X`09k_widget_grpnam:`09k_grpnam_button;
  1184. X`09k_widget_allspool:`09k_allspool_button;
  1185. X`09k_widget_detach:`09k_detach_button;
  1186. X`09k_widget_diagnose:`09k_diagnose_button;
  1187. X`09k_widget_log_io:`09k_log_io_button;
  1188. X`09k_widget_group:`09`09k_group_button;
  1189. X`09k_widget_noacnt:`09k_noacnt_button;
  1190. X`09k_widget_prmceb:`09k_prmceb_button;
  1191. X`09k_widget_prmmbx:`09k_prmmbx_button;
  1192. X`09k_widget_pswapm:`09k_pswapm_button;
  1193. X`09k_widget_setpri:`09k_setpri_button;
  1194. X`09k_widget_setprv:`09k_setprv_button;
  1195. X`09k_widget_tmpmbx:`09k_tmpmbx_button;
  1196. X`09k_widget_world:`09`09k_world_button;
  1197. X`09k_widget_mount:`09`09k_mount_button;
  1198. X`09k_widget_oper:`09`09k_oper_button;
  1199. X`09k_widget_exquota:`09k_exquota_button;
  1200. X`09k_widget_netmbx:`09k_netmbx_button;
  1201. X`09k_widget_volpro:`09k_volpro_button;
  1202. X`09k_widget_phy_io:`09k_phy_io_button;
  1203. X`09k_widget_bugchk:`09k_bugchk_button;
  1204. X`09k_widget_prmgbl:`09k_prmgbl_button;
  1205. X`09k_widget_sysgbl:`09k_sysgbl_button;
  1206. X`09k_widget_pfnmap:`09k_pfnmap_button;
  1207. X`09k_widget_shmem:`09`09k_shmem_button;
  1208. X`09k_widget_sysprv:`09k_sysprv_button;
  1209. X`09k_widget_bypass:`09k_bypass_button;
  1210. X`09k_widget_syslck:`09k_syslck_button;
  1211. X`09k_widget_share:`09`09k_share_button;
  1212. X`09k_widget_upgrade:`09k_upgrade_button;
  1213. X`09k_widget_downgrade:`09k_downgrade_button;
  1214. X`09k_widget_grpprv:`09k_grpprv_button;
  1215. X`09k_widget_readall:`09k_readall_button;
  1216. X`09k_widget_security:`09k_security_button;
  1217. X
  1218. X`09k_cmkrnl_label_text:`09"Cmkrnl";
  1219. X`09k_cmexec_label_text:`09"Cmexec";
  1220. X`09k_sysnam_label_text:`09"Sysnam";
  1221. X`09k_grpnam_label_text:`09"Grpnam";
  1222. X`09k_allspool_label_text:`09"Allspool";
  1223. X`09k_detach_label_text:`09"Detach";
  1224. X`09k_diagnose_label_text:`09"Diagnose";
  1225. X`09k_log_io_label_text:`09"Log_io";
  1226. X`09k_group_label_text:`09"Group";
  1227. X`09k_noacnt_label_text:`09"Noacnt";
  1228. X`09k_prmceb_label_text:`09"Prmceb";
  1229. X`09k_prmmbx_label_text:`09"Prmmbx";
  1230. X`09k_pswapm_label_text:`09"Pswapm";
  1231. X`09k_setpri_label_text:`09"Setpri";
  1232. X`09k_setprv_label_text:`09"Setprv";
  1233. X`09k_tmpmbx_label_text:`09"Tmpmbx";
  1234. X`09k_world_label_text:`09"World";
  1235. X`09k_mount_label_text:`09"Mount";
  1236. X`09k_oper_label_text:`09"Oper";
  1237. X`09k_exquota_label_text:`09"Exquota";
  1238. X`09k_netmbx_label_text:`09"Netmbx";
  1239. X`09k_volpro_label_text:`09"Volpro";
  1240. X`09k_phy_io_label_text:`09"Phy_io";
  1241. X`09k_bugchk_label_text:`09"Bugchk";
  1242. X`09k_prmgbl_label_text:`09"Prmgbl";
  1243. X`09k_sysgbl_label_text:`09"Sysgbl";
  1244. X`09k_pfnmap_label_text:`09"Pfnmap";
  1245. X`09k_shmem_label_text:`09"Shmem";
  1246. X`09k_sysprv_label_text:`09"Sysprv";
  1247. X`09k_bypass_label_text:`09"Bypass";
  1248. X`09k_syslck_label_text:`09"Syslck";
  1249. X`09k_share_label_text:`09"Share";
  1250. X`09k_upgrade_label_text:`09"Upgrade";
  1251. X`09k_downgrade_label_text:`09"Downgrade";
  1252. X`09k_grpprv_label_text:`09"Grpprv";
  1253. X`09k_readall_label_text:`09"Readall";
  1254. X`09k_security_label_text:`09"Security";
  1255. X
  1256. X`09k_auth_label_text:`09"Authorized Privileges";
  1257. X`09k_def_label_text:`09"Default Privileges";
  1258. X
  1259. X`09k_margin_height:`09-2;
  1260. X
  1261. Xprocedure
  1262. X`09PrivsCreated(integer);
  1263. X`09PrivsChanged(integer);
  1264. X`09Help(string);
  1265. X
  1266. Xobject
  1267. X`09privs_box: XmFormDialog `7B
  1268. X`09`09arguments `7B
  1269. X`09`09`09XmNdialogTitle = k_title;
  1270. X`09`09`09XmNdefaultPosition = false;
  1271. X`09`09`09`7D;
  1272. X`09`09controls `7B
  1273. X`09`09`09XmForm`09`09auth_privs;
  1274. X`09`09`09XmSeparator`09sep;
  1275. X`09`09`09XmForm`09`09def_privs;
  1276. X`09`09`09`7D;
  1277. X`09`09callbacks `7B
  1278. X`09`09`09XmNhelpCallback = procedure Help("menus windows privs");
  1279. X`09`09`09`7D;
  1280. X`09`09`7D;
  1281. X
  1282. X`09sep:`09XmSeparator `7B
  1283. X`09`09arguments `7B
  1284. X`09`09`09XmNtopAttachment = XmATTACH_WIDGET;
  1285. X`09`09`09XmNtopWidget = auth_privs;
  1286. X`09`09`09XmNtopOffset = 10;
  1287. X`09`09`09XmNleftAttachment = XmATTACH_FORM;
  1288. X`09`09`09XmNrightAttachment = XmATTACH_FORM;
  1289. X`09`09`09`7D;
  1290. X`09`09`7D;
  1291. X
  1292. X`09auth_privs: XmForm `7B
  1293. X`09`09controls `7B
  1294. X`09`09`09XmLabel`09`09auth_privs_label;
  1295. X`09`09`09XmRowColumn`09auth_privs_box;
  1296. X`09`09`09`7D;
  1297. X`09`09`7D;
  1298. X
  1299. X`09auth_privs_label: XmLabel `7B
  1300. X`09`09arguments `7B
  1301. X`09`09`09XmNx = 100;
  1302. X`09`09`09XmNy = 10;
  1303. X`09`09`09XmNlabelString = k_auth_label_text;
  1304. X`09`09`7D;
  1305. X`09`7D;
  1306. X
  1307. X`09auth_privs_box: XmRowColumn `7B
  1308. X`09`09arguments `7B
  1309. X`09`09`09XmNtopAttachment = XmATTACH_WIDGET;
  1310. X`09`09`09XmNtopWidget = auth_privs_label;
  1311. X`09`09`09XmNpacking = XmPACK_COLUMN;
  1312. X`09`09`09`7D;
  1313. X`09`09controls `7B
  1314. X`09`09`09XmToggleButton`09auth_allspool_button;
  1315. X`09`09`09XmToggleButton`09auth_bugchk_button;
  1316. X`09`09`09XmToggleButton`09auth_bypass_button;
  1317. X`09`09`09XmToggleButton`09auth_cmexec_button;
  1318. X`09`09`09XmToggleButton`09auth_cmkrnl_button;
  1319. X`09`09`09XmToggleButton`09auth_detach_button;
  1320. X`09`09`09XmToggleButton`09auth_diagnose_button;
  1321. X/*`09`09`09XmToggleButton`09auth_downgrade_button; */
  1322. X`09`09`09XmToggleButton`09auth_exquota_button;
  1323. X`09`09`09XmToggleButton`09auth_group_button;
  1324. X`09`09`09XmToggleButton`09auth_grpnam_button;
  1325. X`09`09`09XmToggleButton`09auth_grpprv_button;
  1326. X`09`09`09XmToggleButton`09auth_log_io_button;
  1327. X`09`09`09XmToggleButton`09auth_mount_button;
  1328. X`09`09`09XmToggleButton`09auth_netmbx_button;
  1329. X`09`09`09XmToggleButton`09auth_noacnt_button;
  1330. X`09`09`09XmToggleButton`09auth_oper_button;
  1331. X`09`09`09XmToggleButton`09auth_pfnmap_button;
  1332. X`09`09`09XmToggleButton`09auth_phy_io_button;
  1333. X`09`09`09XmToggleButton`09auth_prmceb_button;
  1334. X`09`09`09XmToggleButton`09auth_prmgbl_button;
  1335. X`09`09`09XmToggleButton`09auth_prmmbx_button;
  1336. X`09`09`09XmToggleButton`09auth_pswapm_button;
  1337. X`09`09`09XmToggleButton`09auth_readall_button;
  1338. X`09`09`09XmToggleButton`09auth_security_button;
  1339. X`09`09`09XmToggleButton`09auth_setpri_button;
  1340. X`09`09`09XmToggleButton`09auth_setprv_button;
  1341. X`09`09`09XmToggleButton`09auth_share_button;
  1342. X`09`09`09XmToggleButton`09auth_shmem_button;
  1343. X`09`09`09XmToggleButton`09auth_sysgbl_button;
  1344. X`09`09`09XmToggleButton`09auth_syslck_button;
  1345. X`09`09`09XmToggleButton`09auth_sysnam_button;
  1346. X`09`09`09XmToggleButton`09auth_sysprv_button;
  1347. X`09`09`09XmToggleButton`09auth_tmpmbx_button;
  1348. X/*`09`09`09XmToggleButton`09auth_upgrade_button;   */
  1349. X`09`09`09XmToggleButton`09auth_volpro_button;
  1350. X`09`09`09XmToggleButton`09auth_world_button;
  1351. X`09`09`09`7D;
  1352. X`09`09`7D;
  1353. X
  1354. X
  1355. X`09auth_cmkrnl_button: XmToggleButton `7B
  1356. X`09`09arguments `7B
  1357. X`09`09`09XmNlabelString = k_cmkrnl_label_text;
  1358. X`09`09`09XmNmarginHeight = k_margin_height;
  1359. X`09`09`09`7D;
  1360. X`09`09callbacks `7B
  1361. X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_cmkrnl);
  1362. X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_cmkrnl_button);
  1363. X`09`09`09`7D;
  1364. X`09`09`7D;
  1365. X
  1366. X`09auth_cmexec_button: XmToggleButton `7B
  1367. X`09`09arguments `7B
  1368. X`09`09`09XmNlabelString = k_cmexec_label_text;
  1369. X`09`09`09XmNmarginHeight = k_margin_height;
  1370. X`09`09`09`7D;
  1371. X`09`09callbacks `7B
  1372. X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_cmexec);
  1373. X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_cmexec_button);
  1374. X`09`09`09`7D;
  1375. X`09`09`7D;
  1376. X
  1377. X`09auth_sysnam_button: XmToggleButton `7B
  1378. X`09`09arguments `7B
  1379. X`09`09`09XmNlabelString = k_sysnam_label_text;
  1380. X`09`09`09XmNmarginHeight = k_margin_height;
  1381. X`09`09`09`7D;
  1382. X`09`09callbacks `7B
  1383. X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_sysnam);
  1384. X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_sysnam_button);
  1385. X`09`09`09`7D;
  1386. X`09`09`7D;
  1387. X
  1388. X`09auth_grpnam_button: XmToggleButton `7B
  1389. X`09`09arguments `7B
  1390. X`09`09`09XmNlabelString = k_grpnam_label_text;
  1391. X`09`09`09XmNmarginHeight = k_margin_height;
  1392. X`09`09`09`7D;
  1393. X`09`09callbacks `7B
  1394. X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_grpnam);
  1395. X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_grpnam_button);
  1396. X`09`09`09`7D;
  1397. X`09`09`7D;
  1398. X
  1399. X`09auth_allspool_button: XmToggleButton `7B
  1400. X`09`09arguments `7B
  1401. X`09`09`09XmNlabelString = k_allspool_label_text;
  1402. X`09`09`09XmNmarginHeight = k_margin_height;
  1403. X`09`09`09`7D;
  1404. X`09`09callbacks `7B
  1405. X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_allspool);
  1406. X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_allspool_button)
  1407. V;
  1408. X`09`09`09`7D;
  1409. X`09`09`7D;
  1410. X
  1411. X`09auth_detach_button: XmToggleButton `7B
  1412. X`09`09arguments `7B
  1413. X`09`09`09XmNlabelString = k_detach_label_text;
  1414. X`09`09`09XmNmarginHeight = k_margin_height;
  1415. X`09`09`09`7D;
  1416. X`09`09callbacks `7B
  1417. X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_detach);
  1418. X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_detach_button);
  1419. X`09`09`09`7D;
  1420. X`09`09`7D;
  1421. X
  1422. X`09auth_diagnose_button: XmToggleButton `7B
  1423. X`09`09arguments `7B
  1424. X`09`09`09XmNlabelString = k_diagnose_label_text;
  1425. X`09`09`09XmNmarginHeight = k_margin_height;
  1426. X`09`09`09`7D;
  1427. X`09`09callbacks `7B
  1428. X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_diagnose);
  1429. X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_diagnose_button)
  1430. V;
  1431. X`09`09`09`7D;
  1432. X`09`09`7D;
  1433. X
  1434. X`09auth_log_io_button: XmToggleButton `7B
  1435. X`09`09arguments `7B
  1436. X`09`09`09XmNlabelString = k_log_io_label_text;
  1437. X`09`09`09XmNmarginHeight = k_margin_height;
  1438. X`09`09`09`7D;
  1439. X`09`09callbacks `7B
  1440. X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_log_io);
  1441. X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_log_io_button);
  1442. X`09`09`09`7D;
  1443. X`09`09`7D;
  1444. X
  1445. X`09auth_group_button: XmToggleButton `7B
  1446. X`09`09arguments `7B
  1447. X`09`09`09XmNlabelString = k_group_label_text;
  1448. X`09`09`09XmNmarginHeight = k_margin_height;
  1449. X`09`09`09`7D;
  1450. X`09`09callbacks `7B
  1451. X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_group);
  1452. X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_group_button);
  1453. X`09`09`09`7D;
  1454. X`09`09`7D;
  1455. X
  1456. X`09auth_noacnt_button: XmToggleButton `7B
  1457. X`09`09arguments `7B
  1458. X`09`09`09XmNlabelString = k_noacnt_label_text;
  1459. X`09`09`09XmNmarginHeight = k_margin_height;
  1460. X`09`09`09`7D;
  1461. X`09`09callbacks `7B
  1462. X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_noacnt);
  1463. X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_noacnt_button);
  1464. X`09`09`09`7D;
  1465. X`09`09`7D;
  1466. X
  1467. X`09auth_prmceb_button: XmToggleButton `7B
  1468. X`09`09arguments `7B
  1469. X`09`09`09XmNlabelString = k_prmceb_label_text;
  1470. X`09`09`09XmNmarginHeight = k_margin_height;
  1471. X`09`09`09`7D;
  1472. X`09`09callbacks `7B
  1473. X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_prmceb);
  1474. X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_prmceb_button);
  1475. X`09`09`09`7D;
  1476. X`09`09`7D;
  1477. X
  1478. X`09auth_prmmbx_button: XmToggleButton `7B
  1479. X`09`09arguments `7B
  1480. X`09`09`09XmNlabelString = k_prmmbx_label_text;
  1481. X`09`09`09XmNmarginHeight = k_margin_height;
  1482. X`09`09`09`7D;
  1483. X`09`09callbacks `7B
  1484. X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_prmmbx);
  1485. X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_prmmbx_button);
  1486. X`09`09`09`7D;
  1487. X`09`09`7D;
  1488. X
  1489. X`09auth_pswapm_button: XmToggleButton `7B
  1490. X`09`09arguments `7B
  1491. X`09`09`09XmNlabelString = k_pswapm_label_text;
  1492. X`09`09`09XmNmarginHeight = k_margin_height;
  1493. X`09`09`09`7D;
  1494. X`09`09callbacks `7B
  1495. X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_pswapm);
  1496. X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_pswapm_button);
  1497. X`09`09`09`7D;
  1498. X`09`09`7D;
  1499. X
  1500. X`09auth_setpri_button: XmToggleButton `7B
  1501. X`09`09arguments `7B
  1502. X`09`09`09XmNlabelString = k_setpri_label_text;
  1503. X`09`09`09XmNmarginHeight = k_margin_height;
  1504. X`09`09`09`7D;
  1505. X`09`09callbacks `7B
  1506. X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_setpri);
  1507. X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_setpri_button);
  1508. X`09`09`09`7D;
  1509. X`09`09`7D;
  1510. X
  1511. X`09auth_setprv_button: XmToggleButton `7B
  1512. X`09`09arguments `7B
  1513. X`09`09`09XmNlabelString = k_setprv_label_text;
  1514. X`09`09`09XmNmarginHeight = k_margin_height;
  1515. X`09`09`09`7D;
  1516. X`09`09callbacks `7B
  1517. X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_setprv);
  1518. X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_setprv_button);
  1519. X`09`09`09`7D;
  1520. X`09`09`7D;
  1521. X
  1522. X`09auth_tmpmbx_button: XmToggleButton `7B
  1523. X`09`09arguments `7B
  1524. X`09`09`09XmNlabelString = k_tmpmbx_label_text;
  1525. X`09`09`09XmNmarginHeight = k_margin_height;
  1526. X`09`09`09`7D;
  1527. X`09`09callbacks `7B
  1528. X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_tmpmbx);
  1529. X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_tmpmbx_button);
  1530. X`09`09`09`7D;
  1531. X`09`09`7D;
  1532. X
  1533. X`09auth_world_button: XmToggleButton `7B
  1534. X`09`09arguments `7B
  1535. X`09`09`09XmNlabelString = k_world_label_text;
  1536. X`09`09`09XmNmarginHeight = k_margin_height;
  1537. X`09`09`09`7D;
  1538. X`09`09callbacks `7B
  1539. X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_world);
  1540. X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_world_button);
  1541. X`09`09`09`7D;
  1542. X`09`09`7D;
  1543. X
  1544. X`09auth_mount_button: XmToggleButton `7B
  1545. X`09`09arguments `7B
  1546. X`09`09`09XmNlabelString = k_mount_label_text;
  1547. X`09`09`09XmNmarginHeight = k_margin_height;
  1548. X`09`09`09`7D;
  1549. X`09`09callbacks `7B
  1550. X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_mount);
  1551. X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_mount_button);
  1552. X`09`09`09`7D;
  1553. X`09`09`7D;
  1554. X
  1555. X`09auth_oper_button: XmToggleButton `7B
  1556. X`09`09arguments `7B
  1557. X`09`09`09XmNlabelString = k_oper_label_text;
  1558. X`09`09`09XmNmarginHeight = k_margin_height;
  1559. X`09`09`09`7D;
  1560. X`09`09callbacks `7B
  1561. X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_oper);
  1562. X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_oper_button);
  1563. X`09`09`09`7D;
  1564. X`09`09`7D;
  1565. X
  1566. X`09auth_exquota_button: XmToggleButton `7B
  1567. X`09`09arguments `7B
  1568. X`09`09`09XmNlabelString = k_exquota_label_text;
  1569. X`09`09`09XmNmarginHeight = k_margin_height;
  1570. X`09`09`09`7D;
  1571. X`09`09callbacks `7B
  1572. X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_exquota);
  1573. +-+-+-+-+-+-+-+-  END  OF PART 4 +-+-+-+-+-+-+-+-
  1574. -- 
  1575. Bruce Tanner        (310) 860-2451 x 596    Tanner@Cerritos.EDU
  1576. Cerritos College    Norwalk, CA             DoD #0161  NOMAD #007
  1577.