(DEFINE-FILE-INFO PACKAGE "IL" READTABLE "XCL") (FILECREATED " 9-Sep-94 09:36:34" ("compiled on " |{DSK}lispusers>DIRGRAPHER.;1|) "28-Jul-94 17:28:46" |bcompl'd| |in| "Medley 25-Aug-94 ..." |dated| "25-Aug-94 10:02:49") (FILECREATED "26-Jan-88 15:45:41" {ERINYES}LYRIC>DIRGRAPHER.\;2 102873 |changes| |to:| ( VARS DIRGRAPHERCOMS) (FNS DG.ADVISE-GENERATE-FILE) |previous| |date:| "20-Aug-87 19:28:44" {ERINYES}LYRIC>DIRGRAPHER.\;1) DG.ADD-ITEM-TO-BACKGROUND-MENU :D8 (I 3 SUBITEMLIST I 2 MESSAGE I 1 COMMAND I 0 LABEL) /@`` d@ABChh h(38 \\NCONC2 16 REMOVE) (44 |BackgroundMenu| 21 |BackgroundMenuCommands| 11 |BackgroundMenuCommands| 5 |BackgroundMenuCommands|) () DG.ADVISE-GENERATE-FILE :D8 NIL 0ggio ogo(45 ADVISE 25 UNADVISE 15 MOVD) (35 AROUND 9 DG.GENERATE-NEXT-FILE 4 \\GENERATENEXTFILE) ( 40 (PROG* ((WINDOW (TB.WINDOW (FB.TABLEBROWSER BROWSER))) (PATTERN (DG.GET-FB-PATTERN WINDOW)) (FBDIR (U-CASE (FILENAMEFIELD PATTERN (QUOTE DIRECTORY)))) (FBHOST (U-CASE (FILENAMEFIELD PATTERN (QUOTE HOST)))) NEXT-FILE TEMP-HOST) (DECLARE (GLOBAL DG.STAND-ALONE-HOSTS)) (SETQ FBHOST (|if| (FMEMB FBHOST DG.STAND-ALONE-HOSTS) |then| FBHOST |else| (OR (CANONICAL.HOSTNAME FBHOST) FBHOST))) NEXT (SETQ NEXT-FILE (DG.GENERATE-NEXT-FILE GENOBJ NAMEONLY)) (|if| (NULL NEXT-FILE) |then| (RETURN NIL)) (|if| (LISTP NEXT-FILE) |then| (SETQ NEXT-FILE (PACKC NEXT-FILE))) (|if| (OR (NOT (WINDOWPROP (MAINWINDOW WINDOW) (QUOTE DG.DIRECTORY-ONLY))) (AND (EQ (U-CASE (FILENAMEFIELD NEXT-FILE (QUOTE DIRECTORY))) FBDIR) (EQ (FILENAMEFIELD NEXT-FILE (QUOTE HOST)) FBHOST))) |then| (RETURN NEXT-FILE) |else| (GO NEXT))) 30 (\\GENERATENEXTFILE IN FB.UPDATEBROWSERITEMS) 20 ((\\GENERATENEXTFILE IN FB.UPDATEBROWSERITEMS))) DG.APPLY-DIRGRAPHER-COMMAND :D8 (P 3 TEMP-STRING P 2 FB-WINDOW P 1 DIR-FILE-LIST P 0 CURRENT-PATH I 0 WINDOW) /@@o Xd´@ ¿H ¿@ h(43 INVERTW 36 DIRGRAPHER 31 DG.CREATE-PREFIX-FROM-PATH 24 INVERTW 13 DG.WAIT-FOR-DIR-SELECTION) NIL ( 8 "Select directory on which to apply DirGrapher.") DG.APPLY-FB-ON-DIR-AND-SUBDIRS-COMMAND :D8 (I 0 WINDOW) @i (6 DG.APPLY-FILEBROWSER-COMMAND) NIL () DG.APPLY-FILEBROWSER-COMMAND :D8 (P 3 TEMP-STRING P 2 FB-WINDOW P 1 DIR-FILE-LIST P 0 CURRENT-PATH I 1 SUBDIRS I 0 WINDOW) O@@o Xd´<@ ¿H ºA¬Jgi¿Jgg¿@ h(75 INVERTW 68 PUTWINDOWPROP 51 PUTWINDOWPROP 36 FILEBROWSER 31 DG.CREATE-PREFIX-FROM-PATH 24 INVERTW 13 DG.WAIT-FOR-DIR-SELECTION) (63 DG.FBICONFN 58 ICONFN 45 DG.DIRECTORY-ONLY) ( 8 "Select directory on which to apply FileBrowser.") DG.ASK-FOR-BACKUP-TYPE :D8 (P 0 BACKUP-TYPE I 0 CURRENT-DIRECTORY F 3 BIGFONT) f0@¥g`oohoohh¹dI¿dS¿dg ¿dg¿jdnÿdhºdJ ¿hi(99 MENU) (72 DEFAULTMENUHELDFN 63 CLRPROMPT 16 |MENUTYPE#| 10 FILES-ONLY) ( 40 (QUOTE FILES-AND-SUBS) 35 "Backup files of this directory and subdirectories" 27 (QUOTE FILES-ONLY) 22 "Back up files in this directory (but not in subdirectories)") DG.ATTACH-DIRECTORY-FILES-MENU :D8 (P 19 ROW P 15 I P 13 WIDTH P 12 F P 6 MENU-WINDOW P 5 MAX-WIDTH P 4 LENGTH-FILE-LIST P 3 NUMBER-OF-ROWS P 2 NUMBER-OF-COLUMNS P 1 FILE-LIST P 0 MENU I 4 INCLUDEFULLNAMES I 3 FILE-SELECTION-FN I 2 MAIN-WINDOW I 1 WINDOW I 0 PATH) ×Cµgbg0@ °3dDœO Oh†O _¿Oµ Oh_‚O&_¿µÎOYd´‚±ud ¼l½I! OµB MÛ_¿kOó²*k°)_¿D“OO` _dMó]¿O_°ÄOºLJÛLJÜj ‘j€kØ»IJKÚLkØ2OOó³'o_$¿O"µO$h_"_ ¿OkÔ_°àO$&_"¿°òO ¹KkO&O$ó³KO(0IO& °&d_¿Oµ Oh_‚O&_¿OKkØ µÛO _(¿O&kÔ_&°´O(¹`dI¿dC¿dJ¿d`¿dg ¿dg¿jdnÿdh_¿dO ¿Bd B lÛØ`lÛó•g„gg(468 ATTACHMENU 432 WINDOWSIZE 424 WINDOWREGION 334 \\NCONC2 322 NTH 285 NTH 259 \\APPEND2 191 EQP 161 STRINGWIDTH 124 WINDOWSIZE 104 LENGTH 60 DG.PACK-NAME-VER-EXT 47 DG.PACK-NAME-VER-EXT 31 DG.EXCLUSIVE-DIRECTORY 26 DG.CREATE-PREFIX-FROM-PATH) (463 JUSTIFY 458 TOP 452 BOTTOM 442 SCREENHEIGHT 394 DEFAULTMENUHELDFN 385 CLRPROMPT 376 LITTLEFONT 354 |MENUTYPE#| 156 LITTLEFONT 17 \ STOP 10 DG.FILE-SELECTION-FN) ( 219 " ") DG.BACKUP-COMMAND :D8 (P 24 I P 22 F2 P 21 F1 P 18 F P 9 SOURCE-WINDOW P 8 SOURCE-PATH-AND-WINDOW P 7 OLDCOPYRIGHTFLG P 6 BACKUP-HOST P 5 FILES-BACKUP-NAMES P 4 ROUND-OF-FILES P 3 FILES-TO-BACKUP P 2 SOURCE-DIRECTORY P 1 SOURCE-PATH P 0 BACKUP-TYPE I 1 BACKUP-DIR I 0 WINDOW) cð@oi_dYO_IO Zd XAg Ag b€Ag ^@ Hgð›I ŠI [@K°"d_$IJ_¿O µ Oh_"‚O&_ ¿µßO"]dJg o gggHgð´J¿Ngð²1@ ¿@ _ ¿oO ¿¿@ ¿`_hAJggg OK¢±õMK"O(µˆ_*¿O&µgK¢±Û@ ¿@ ¿@ _ ¿oO ¿@ l ¿nèldO0dO.ó¢±wi ¿@ ¿°„_,¿`³nAO, ²XO*AO, ³G@ _ ¿oO ¿O*O ¿oO ¿AO ¿oO±Ï`²AO, AO, ¿Ngð²O*g nØó¢±¡O*AO, `²0@ _ ¿oO ¿O*O ¿oO°D@ _ ¿oO ¿O*O ¿oO ¿AO ¿oO ¿O*K »O,M ½O(_(¿O&_&¿±þ,nˆh ¿O0lÈÔ_0±þqg` @ h(863 INVERTW 852 REMOVE 826 PLAYTUNE 799 REMOVE 790 REMOVE 781 PRIN1 768 PRIN1 759 PRIN1 746 PRIN1 736 PRIN1 723 TERPRI 716 DG.PROMPTWINDOW 700 PRIN1 690 PRIN1 677 TERPRI 670 DG.PROMPTWINDOW 662 DG.FILECOPY 652 PACK* 633 GETFILEINFO 621 FLOPPY.FREE.PAGES 606 DELFILE 601 PACK* 592 DG.FILE-EXISTS 587 PACK* 561 PRIN1 552 PRIN1 539 PRIN1 529 PRIN1 516 TERPRI 509 DG.PROMPTWINDOW 501 DG.NEWER-FILE 496 PACK* 484 DG.FILE-EXISTS 479 PACK* 457 INVERTW 450 FLOPPY.WAIT.FOR.FLOPPY 424 FLASHWINDOW 417 DG.PROMPTWINDOW 410 PRIN1 397 TERPRI 390 DG.PROMPTWINDOW 383 CLEARW 378 DG.PROMPTWINDOW 371 INVERTW 327 MAKEFILE 317 PACK* 285 INVERTW 278 FLOPPY.WAIT.FOR.FLOPPY 272 PRIN1 259 TERPRI 252 DG.PROMPTWINDOW 245 INVERTW 214 PUTPROP 194 SET 184 FILECOMS 134 DG.CREATE-BACKUP-NAME 116 DG.EXCLUSIVE-DIRECTORY 111 DG.CREATE-PREFIX-FROM-PATH 104 DIRECTORY 99 DG.CREATE-PREFIX-FROM-PATH 85 INVERTW 78 FILENAMEFIELD 64 PACK* 52 FILENAMEFIELD 40 DG.ASK-FOR-BACKUP-TYPE 33 DG.FIND-DIRECTORY-SUBTREE 14 DG.WAIT-FOR-DIR-SELECTION) (857 FILELST 847 FILELST 842 BACKUPINFO 657 DG.COPY-OVER 628 SIZE 613 FLOPPY 577 DG.COPY-OVER 469 DG.COPY-OVER 334 COPYRIGHTFLG 322 NEW 312 BACKUPINFO 307 > 299 COPYRIGHTFLG 291 COPYRIGHTFLG 236 FLOPPY 229 DG.DIRECTORY-SUBTREE 220 FILES-AND-SUBS 209 DON\'TLIST 204 FILETYPE 199 BACKUPINFO 179 BACKUPINFO 174 DG.DIRECTORY-SUBTREE 168 DG.FILES-BACKUP-NAMES 91 FILES-AND-SUBS 73 HOST 59 < 47 DIRECTORY) ( 774 " and was not copied." 752 " exists on " 729 "File " 706 " is backed up." 683 "File " 567 " and was not copied." 545 " exists on " 522 "File " 403 "No more space on this floppy. Insert a new one. " 265 "Insert floppy ." 189 ((VARS DG.FILES-BACKUP-NAMES DG.DIRECTORY-SUBTREE)) 8 "Select the directory that you want to back up.") DG.FILE-EXISTS :D8 (I 0 F) @ (5 INFILEP) NIL () DG.FILE-INFO-COMMAND :D8 (P 13 I-WITH-BLANKS P 12 I P 10 PWINDOW P 9 DATEWIDTH P 8 COLUMNS P 7 TITLE P 6 TITLE-WIDTH P 5 WREGION P 4 SOURCE-PATH-WINDOW P 3 MENU-WINDOW P 2 SOURCE-PREFIX P 1 SELECTED-FILES P 0 SOURCE-PATH I 0 WINDOW) Ä° @ _@o Xd´‚±ò@ ¿H ºo_¿o` O` ó’±û` _¿`! Oµ‚±ç@gO¿O` ^O Éó²6@ ]MNO ÉÙØ¿@ ¿@M ¿@ ¿OgO¿H@dgi »@ ¿KµOghhgi¿@ ¿@g o ¿K ¿K ¿°µOo ±þÙ_¿OO` h _¿O_o ²$OO` ó²Oo _¿°àOOo_¿O_±þ±(439 CONCAT 420 CONCAT 405 STRINGWIDTH 389 MEMBER 372 \\NCONC2 365 STRINGWIDTH 344 CONCAT 329 CLOSEW 322 DETACHWINDOW 315 AWAIT.EVENT 305 GETWINDOWUSERPROP 293 CLEARW 288 DG.PROMPTWINDOW 281 PUTWINDOWPROP 268 PUTWINDOWPROP 251 INVERTW 244 DG.ATTACH-DIRECTORY-FILES-MENU 228 PUTWINDOWPROP 213 INVERTW 206 RESHAPEALLWINDOWS 198 INVERTW 183 \\INSUREWINDOW 168 WINDOWREGION 154 \\INSUREWINDOW 146 STRINGWIDTH 133 PUTWINDOWPROP 99 STRINGWIDTH 89 DATE 79 STRINGWIDTH 67 STRINGWIDTH 43 DG.CREATE-PREFIX-FROM-PATH 36 INVERTW 21 DG.WAIT-FOR-DIR-SELECTION 8 DG.PROMPTWINDOW) (400 LITTLEFONT 360 LITTLEFONT 300 DG.FILE-SELECTION-ENDED-EVENT 275 DG.DETACH 262 TITLE 237 DG.FILE-INFO-SELECTION-FN 221 TITLE 141 LITTLEFONT 126 DG.INFO-COLUMNS 107 DG.FILE-INFO-ATTRIBUTES 94 DG.PROMPTWINDOWFONT 74 LITTLEFONT 62 DG.PROMPTWINDOWFONT) ( 434 " " 415 " " 384 (WRITEDATE READDATE CREATIONDATE) 339 " " 310 1000000 57 "MMMMMMMMMMMMMMMMMMMM : " 49 " " 16 "Select directory from which you want to files info.") DG.FILE-INFO-SELECTION-FN :D8 (P 6 COL P 5 ATT P 0 WINDOW I 2 KEY I 1 MENU I 0 ITEM) ¼0A X@dgð²¿dg ¿°aoô³Y@´WH Y ¿@k@l I ¿oI ¿Hg `"Lµ…½Kµh^H ¿H º@M J ¿L¼K»°È(177 PRIN1 171 GETFILEINFO 161 DG.PROMPTWINDOW 154 DSPXPOSITION 149 DG.PROMPTWINDOW 120 GETWINDOWUSERPROP 108 PRIN1 96 PRIN1 90 SUBSTRING 85 MIN 80 NCHARS 67 TERPRI 61 DG.PROMPTWINDOW 41 NOTIFY.EVENT 36 GETWINDOWUSERPROP 13 MAINWINDOW 8 WFROMMENU) (125 DG.FILE-INFO-ATTRIBUTES 115 DG.INFO-COLUMNS 31 DG.FILE-SELECTION-ENDED-EVENT 21 \ STOP) ( 102 " : " 49 " ") DG.FILES-HARDCOPY-COMMAND :D8 (P 5 FILE P 4 SOURCE-PATH-WINDOW P 3 MENU-WINDOW P 2 SOURCE-PREFIX P 1 SELECTED-FILES P 0 SOURCE-PATH I 0 WINDOW F 6 HIGHLIGHTSHADE) ‡P@o Xd´td ºo@H@[g Y²D@ ¿I°0dJM ¿MKg VK¿µÑ@ ¿K ¿K h(131 CLOSEW 124 DETACHWINDOW 117 INVERTW 106 BLOCK 100 SHADEITEM 92 GETWINDOWUSERPROP 79 LISTFILES1 74 PACK* 58 INVERTW 49 GETWINDOWUSERPROP 38 DG.GET-FILE-LIST 24 DG.CREATE-PREFIX-FROM-PATH 13 DG.WAIT-FOR-DIR-SELECTION) (87 MENU 44 DG.SELECTED-FILES) ( 30 " The selected files will be hardcopied. " 8 "Select directory from which you want to hardcopy selected files.") DG.LOAD-FILES-COMMAND :D8 (P 5 FILE P 4 SOURCE-PATH-WINDOW P 3 MENU-WINDOW P 2 SOURCE-PREFIX P 1 SELECTED-FILES P 0 SOURCE-PATH I 2 LDFLG I 1 LOADTYPE I 0 WINDOW) ¡PAµgb@oAo Xd´yd ºo@H@[g Y²I@ ¿I°5dJM BlA¿MKg `K¿µÌ@ ¿K ¿K h(157 CLOSEW 150 DETACHWINDOW 143 INVERTW 132 BLOCK 126 SHADEITEM 114 GETWINDOWUSERPROP 95 PACK* 79 INVERTW 70 GETWINDOWUSERPROP 59 DG.GET-FILE-LIST 45 DG.CREATE-PREFIX-FROM-PATH 34 DG.WAIT-FOR-DIR-SELECTION 29 CONCAT) (120 HIGHLIGHTSHADE 109 MENU 65 DG.SELECTED-FILES 10 LOAD) ( 51 " The selected files will be LOADED. " 24 " selected files." 18 "Select directory from which you want to ") DG.NEWER-FILE :D8 (I 1 F2 I 0 F1) @g Ag ó(21 GETFILEINFO 10 GETFILEINFO) (16 ICREATIONDATE 5 ICREATIONDATE) () DG.BACKUP-ON-DEFAULT-COMMAND :D8 (I 0 WINDOW) 5`³#@ @ H oH @` (50 DG.BACKUP-COMMAND 38 PRIN1 27 TERPRI 18 DG.PROMPTWINDOW 12 DG.FLASHALLWINDOWS) (45 DG.DEFAULT-BACKUP-DIRECTORY 4 DG.DEFAULT-BACKUP-DIRECTORY) ( 32 "NULL default directory.Backup aborted") DG.BACKUP-ON-SELECTED-COMMAND :D8 (P 0 BACKUP-DIRECTORY I 0 WINDOW) @oi X@H h(28 DG.BACKUP-COMMAND 20 DG.CREATE-PREFIX-FROM-PATH 14 DG.WAIT-FOR-DIR-SELECTION) NIL ( 8 "Select the directory that will contain the backup.") DG.CONNECT-DIR-COMMAND :D8 (P 3 W P 1 CURRENT-PREFIX P 0 CURRENT-PATH I 0 WINDOW) X @o Xd´Ed Y ¿`²*Jµ°![g –K ¿JZ°ã@ h(84 DG.SHADE-CURRENT-DIRECTORY 72 DG.SHADE-CURRENT-DIRECTORY 65 GETWINDOWUSERPROP 43 OPENWINDOWS 30 CNDIR 24 DG.CREATE-PREFIX-FROM-PATH 13 DG.WAIT-FOR-DIR-SELECTION) (60 DG.TREE 36 DG.BOX-ALL) ( 8 "Select the directory to which you want to be connected") DG.COPY-DIRECTORY-COMMAND :D8 (I 0 WINDOW) @ (5 DG.MOVECOPY-DIR-COMMAND) NIL () DG.COPY-FILE-COMMAND :D8 (I 0 WINDOW) @ (5 DG.MOVECOPY-COMMAND) NIL () DG.COPYBUTTONEVENTFN :D8 (P 8 NODE P 3 RELEASED P 2 NODE-REGION P 1 SELECTED-NODE P 0 CURSOR-POS I 0 WINDOW) Ç ph@ X¿`lå\jð¬L´:L ´2`kå]jð¬M´"M ´`lå^jðµ N´N [@g Oµ3hYµL@ ¿K´#I´ @g I h_ ZH –Oµ¾i°»O_°°@ °¶(195 FLIPNODE 174 INSIDEP 167 NODEREGION 157 BKSYSBUF 152 DG.CREATE-PREFIX-FROM-PATH 147 \\APPEND2 139 GETWINDOWUSERPROP 121 GRAPHERCOPYBUTTONEVENTFN 101 GETWINDOWUSERPROP 89 \\FZEROP 63 \\FZEROP 39 \\FZEROP 15 GETMOUSESTATE 9 CURSORPOSITION) (134 DG.PATH-TO-ROOT 96 GRAPH 70 LASTMOUSEBUTTONS 46 LASTMOUSEBUTTONS 21 LASTMOUSEBUTTONS) () DG.CREATE-BACKUP-FREE-MENU :D8 (I 1 BOTTOM I 0 LEFT F 0 DG.OK-BUTTON-BM F 1 \,DG.RESET-BUTTON-BM F 2 \,DG.CANCEL-BUTTON-BM) ^ogggPogggQogggRohh (91 FM.FORMATMENU) (69 LABEL 64 NWAY 59 TYPE 44 LABEL 39 NWAY 34 TYPE 19 LABEL 14 NWAY 9 TYPE) ( 75 (ID BUTTONS) 50 (ID BUTTONS) 25 (ID BUTTONS) 4 ((TYPE TITLE LABEL "Files to Backup : " FONT (MODERN 12 BOLD)) (TYPE TOGGLE LABEL "Include SubDirectories" ID SUBDIRS) (TYPE TOGGLE LABEL "No Old Versions" ID SUBDIRS))) DG.CREATE-BACKUP-NAME :D8 (P 1 FILE-BACKUP-NAME P 0 SECOND-HALF I 2 CURRENT-DIRECTORY I 1 CURRENT-PATH I 0 F) @g lA Ø@g XgH›BHh Bg@g g@g g@g Yd (138 PACK 132 UNPACK 125 PACKFILENAME 119 FILENAMEFIELD 103 FILENAMEFIELD 87 FILENAMEFIELD 68 DG.CREATE-DIRECTORY-CHAIN 49 SUBSTRING 44 NCHARS 39 FILENAMEFIELD 27 NCHARS 22 DG.CREATE-DIRECTORY-CHAIN 13 FILENAMEFIELD) (114 VERSION 108 VERSION 98 EXTENSION 92 EXTENSION 82 NAME 76 NAME 55 DIRECTORY 34 DIRECTORY 8 DIRECTORY) () DG.CREATE-DIRECTORY-CHAIN :D8 (I 0 PATH) "@µod¡g@ (31 PACK* 26 DG.CREATE-DIRECTORY-CHAIN) (19 >) ( 7 "") DG.CREATE-DIRECTORY-SPEC :D8 (P 2 SUB P 1 SPEC P 0 CURRENT-DIRECTORY I 1 WINDOW I 0 PATH) < @A X@ YH°"dIg@Jh hYµÞI(46 DG.CREATE-PREFIX-FROM-PATH 41 \\APPEND2 16 DG.CREATE-PREFIX-FROM-PATH 9 DG.FIND-DIRECTORY-SUBTREE) (31 -) () DG.CREATE-DIRECTORY-TREE :D8 (P 6 F P 2 TREE P 1 ROOT P 0 TREE-PATHS I 0 PATH) W00@ °&dN @ »LµKh]K&¼µÛMXd Xd Zd@ (84 LAST 73 DG.CREATE-TREE-FROM-LISTS 66 DG.SETIFY 40 NTH 35 LENGTH 29 DG.CREATE-PATH-FROM-FILE-NAME 16 DIRECTORY 11 DG.CREATE-PREFIX-FROM-PATH) NIL () DG.CREATE-GRAPH-FROM-TREE :D8 (P 0 NODE-LIST I 0 TREE) $@h XdHh`h`(33 LAYOUTGRAPH 9 DG.CREATE-TREE-NODES) (28 DG.GRAPH-LABEL-FONT 21 DG.VERTICAL-HORIZONTAL-OPTION) () DG.CREATE-ICON-TITLE :D8 (P 3 W I 0 L) c@µo ló›@l b¿g@l @@°%d»l Kl ¸IµHhZH&¹µÛJ (96 APPLY 72 CONCAT 67 DG.TRIM 59 CHARACTER 43 DG.TRIM 25 LASTN 13 LENGTH) (34 CONCAT) ( 7 " ") DG.CREATE-MENU :D8 (P 1 TEMP P 0 MENUITEMS I 0 WINDOW) °@oX`dgð§dgð’¿i¿h²&H X¹HHl ¿Hl I¿`dH¿`dgð§dgð’¿i¿h’l€kºdJ¿dg¿d`¿dg ¿dg¿jdnÿdh»dK ¿(69 NTH 58 NTH 42 COPY) (153 DEFAULTMENUHELDFN 144 CLRPROMPT 135 DG.MENU-FONT 126 DG.DOCOMMAND 102 BOTTOM 94 TOP 88 DG.MENU-EDGE 77 |MENUTYPE#| 27 BOTTOM 19 TOP 13 DG.MENU-EDGE) ( 7 (("Create Dir" DG.CREATE-SUBDIR-COMMAND "Creates subdirectory. Will wait for parent directory selection, and prompt for subdirectory name") ("Delete Dir" DG.DELETE-DIRECTORY-COMMAND "Will delete entire directory including all files in subdirectories. Will wait for directory selection and if the directory is nonempty it will ask for confirmation") ("Backup Dir" DG.BACKUP-ON-SELECTED-COMMAND "Will ask you to select the directory on which the backup should be stored" (SUBITEMS ("On default" DG.BACKUP-ON-DEFAULT-COMMAND "Will backup the selected directory on the default backup directory (the value of DG.DEFAULT-BACKUP-DIRECTORY ) ") ("On selected" DG.BACKUP-ON-SELECTED-COMMAND "Will ask you to select the directory on which the backup should be stored"))) ("Restore Dir" DG.RESTORE-FROM-SELECTED-COMMAND "Will ask you to select the directory from where the backup should be restored" (SUBITEMS ("From default" DG.RESTORE-FROM-DEFAULT-COMMAND "Will restore the selected directory from the default backup directory (the value of DG.DEFAULT-BACKUP-DIRECTORY ) ") ("From selected" DG.RESTORE-FROM-SELECTED-COMMAND "Will ask you to select the directory from where the backup should be restored"))) ("Move Dir" DG.MOVE-DIR-COMMAND "Will move the selected directory (including subdirectories) to a new parent directory.") ("Copy Dir" DG.COPY-DIRECTORY-COMMAND "Will copy the selected directory (including subdirectories) to a new parent directory.") ("Connect Dir" DG.CONNECT-DIR-COMMAND "Changes the current directory") ("Apply DG" DG.APPLY-DIRGRAPHER-COMMAND "Calls DirGrapher on the selected directory") ("Apply FB" DG.APPLY-FILEBROWSER-COMMAND "Calls FileBrowser on files in the selected directory (but not files in the subdirectories)." (SUBITEMS ("on directory only" DG.APPLY-FILEBROWSER-COMMAND "Calls FileBrowser on files in the selected directory (but not files in the subdirectories).") ("On directory and subdirectories" DG.APPLY-FB-ON-DIR-AND-SUBDIRS-COMMAND "Calls FileBrowser on files in the selected directory and subdirectories."))) ("Files" NULL " The subitems of the item manipulate files within selected directories" (SUBITEMS ("Move Files" DG.MOVE-FILE-COMMAND "Will ask you to select: (1) source directory, (2) files to be moved, and (3) target directory.") ("Copy Files" DG.COPY-FILE-COMMAND "Will ask you to select: (1) source directory, (2) files to be copied, and (3) target directory.") ("Load Files" (DG.LOAD-FILES-COMMAND LOAD NIL) "Will ask you to select a directory and files to be loaded" (SUBITEMS ("LOAD" (DG.LOAD-FILES-COMMAND LOAD NIL) "Will ask you to select a directory and files to be loaded" (SUBITEMS ("LDFLG=NIL" (DG.LOAD-FILES-COMMAND LOAD NIL)) ("LDFLG=SYSLOAD" (DG.LOAD-FILES-COMMAND LOAD SYSLOAD)))) ("LOAD?" (DG.LOAD-FILES-COMMAND LOAD? NIL) "Will ask you to select a directory and files to be loaded USING LOAD? function" (SUBITEMS ("LDFLG=NIL" (DG.LOAD-FILES-COMMAND LOAD? NIL)) ("LDFLG=SYSLOAD" (DG.LOAD-FILES-COMMAND LOAD? SYSLOAD)))) ("LOADFROM" (DG.LOAD-FILES-COMMAND LOADFROM NIL) "Will ask you to select a directory and files to be loaded USING LOADFROM function" (SUBITEMS ("LDFLG=NIL" (DG.LOAD-FILES-COMMAND LOADFROM NIL)) ("LDFLG=SYSLOAD" (DG.LOAD-FILES-COMMAND LOADFROM SYSLOAD)))))) ("Delete Files" DG.DELETE-SELECTED-FILES-COMMAND "Will ask you to select a directory and files to be deleted (EXPUNGED)." (SUBITEMS ("Selected Files" DG.DELETE-SELECTED-FILES-COMMAND "Will ask you to select a directory and files to be deleted (EXPUNGED).") ("Old Versions" DG.DELETE-OLD-VERSIONS-COMMAND " Will ask you to select a directory, and will delete all old versions of files in the selected directory. Only DG.NUMBER-OF-VERSIONS (1 by default) last versions will remain"))) ("Info" DG.FILE-INFO-COMMAND "Will ask you to select a directory, and will display info on selected files. ") ("Hardcopy" DG.FILES-HARDCOPY-COMMAND "Will ask you to select a directory and files to be hardcopied."))) ("Update" DG.UPDATE-COMMAND "Will update the tree structure according to the current file system state"))) DG.CREATE-PATH-FROM-FILE-NAME :D8 (P 1 HOST P 0 DIR I 0 FNAME) R @g X@g Yd²&g@g Hd™ Hd²ý (79 DG.UNPACK-DIRECTORY-NAME 74 UNPACK 63 DG.UNPACK-DIRECTORY-NAME 58 UNPACK 50 PACKFILENAME 45 FILENAMEFIELD 25 FILENAMEFIELD 13 FILENAMEFIELD) (40 HOST 34 HOST 20 HOST 8 DIRECTORY) () DG.CREATE-PREFIX-FROM-PATH :D8 (I 0 PATH) C@d²=g0@°dghX–IµHZY¿µêJ YH°æ(58 LAST 52 PACK* 47 PACK) (23 > 10 <) () DG.CREATE-QUIT-MENU :D8 (I 0 WINDOW) M`@goHdI¿di¿dg ¿dg¿jdnÿdhHdI ¿(21 SUBST) (51 DEFAULTMENUHELDFN 42 CLRPROMPT 11 WINDOW 4 |MENUTYPE#|) ( 16 ((" I n t e r r u p t / R e s e t " (DG.KILL-PROCESS WINDOW) "Will kill the current DirGrapher process if active, and will reset the DirGrapher display."))) DG.CREATE-SUBDIR-COMMAND :D8 (P 2 DIRECTORY-SUBTREE P 1 NEW-DIR-NAME P 0 CURRENT-PATH I 0 WINDOW) }0@o Xd´jd@ º@ ¿oJohd@ hg YJ ³!JIhJ¿@g @ h(121 DG.DISPLAY-DIRECTORY-TREE 115 DG.CREATE-GRAPH-FROM-TREE 110 GETWINDOWUSERPROP 88 MEMBER 80 MKATOM 75 PROMPTFORWORD 63 DG.PROMPTWINDOW 55 CONCAT 37 TERPRI 32 DG.PROMPTWINDOW 25 DG.FIND-DIRECTORY-SUBTREE 13 DG.WAIT-FOR-DIR-SELECTION) (105 DG.TREE 69 TTY) ( 50 ") :" 43 "Enter name for new subdirectory (of " 8 "Select parent directory.") DG.CREATE-TREE-FROM-LISTS :D8 (P 3 X P 1 L2 P 0 TEMP I 0 LISTS) ^ @Jµ 0I°H[µ° IXµ KKhIY…KH¿¿JZ°ÏdKK ¼MµLh^L&½µâN(72 DG.CREATE-TREE-FROM-LISTS 52 BLOCK) NIL () DG.CREATE-TREE-NODES :D8 (P 8 N-LIST P 7 SON P 3 SON-LIST P 2 CURRENT-NODE P 1 TO-NODES P 0 CURRENT-ID I 1 FORMER-PATH I 0 TREE F 9 DEFAULT.GRAPH.NODELABELSHADE F 10 DEFAULT.GRAPH.NODEFONT) } 0@´mA@h XdhddWhddAhW@mþhZ0@°#dOH _I¹O\–MµL^]¿µÝN»JI¿K ]L°à(118 LAST 70 DG.CREATE-TREE-NODES 15 \\APPEND2) NIL () DG.CREATEICONW :D8 (I 1 ICON I 0 WINDOW F 0 DG.ICON F 1 DG.MASK F 2 DG.ICONFONT) (Aµ%PQldlAl<h@g R(37 TITLEDICONW 31 GETWINDOWUSERPROP 16 CREATEREGION) (26 DG.ICONTITLE) () DG.CURRENT-CONNECTED-DIRECTORY :D8 (P 0 CURRENT-DIR) <id Xd dgð§dgð’¿i¿h«Hg H(55 PACK* 21 LAST 16 UNPACK 9 DIRECTORYNAME) (50 > 36 > 28 }) () DG.DELETE-DIRECTORY-COMMAND :D8 (P 8 F P 4 NUMBER-OF-FILES P 3 FILES-TO-BE-DELETED P 2 FATHER-DIRECTORY P 1 CURRENT-DIRECTORY P 0 CURRENT-PATH I 0 WINDOW) €@o Xd´‚±ú@ ¿H »@ ¿K \jó¢±¡@ ] ¿oM ¿LM ¿oM ¿oM ¿@ l ¿²i@ ¿K°>dO ¿@ ^ ¿oN ¿ON ¿oN µÃ@ ¿H@g ô²&@ h@ _ ¿oO hH@ ¿°ö(277 DG.DELETE-FROM-TREE 268 PRIN1 255 TERPRI 248 DG.PROMPTWINDOW 240 CLOSEW 231 GETWINDOWUSERPROP 218 INVERTW 207 PRIN1 195 PRIN1 186 PRIN1 174 TERPRI 168 DG.PROMPTWINDOW 161 DELFILE 145 INVERTW 137 MOUSECONFIRM 131 FLASHWINDOW 124 DG.PROMPTWINDOW 117 PRIN1 105 PRIN1 93 PRIN1 85 PRIN1 73 TERPRI 67 DG.PROMPTWINDOW 54 LENGTH 47 INVERTW 40 DIRECTORY 35 DG.CREATE-PREFIX-FROM-PATH 28 INVERTW 13 DG.WAIT-FOR-DIR-SELECTION) (226 DG.PATH-TO-ROOT) ( 261 "Delete directory aborted." 201 " was deleted." 180 "File " 111 "Confirm with left button ." 99 " files are going to be deleted !!" 79 "CAUTION !!! " 8 "Select directory to be deleted") DG.DELETE-FROM-TREE :D8 (P 1 FATHER-DIRECTORY P 0 PARENT-AND-SON I 1 WINDOW I 0 PATH) 3 @A XdYdHI Ag A h(47 DG.DISPLAY-DIRECTORY-TREE 41 DG.CREATE-GRAPH-FROM-TREE 36 GETWINDOWUSERPROP 24 REMOVE 9 DG.FIND-PARENT-DIERCTORY) (31 DG.TREE) () DG.DELETE-OLD-VERSIONS-COMMAND :D8 (P 8 FILE P 4 SOURCE-PATH-WINDOW P 3 MENU-WINDOW P 2 SOURCE-PREFIX P 1 SELECTED-FILES P 0 SOURCE-PATH I 0 WINDOW) ë €@o Xd´‚±Õd Z Y¢±¶@ ] ¿oM ¿I M ¿oM ¿JM ¿oM ¿²M@ ¿I°8dO ¿@ ^ ¿ON ¿oN ¿µÉ@ °@ _ ¿oO ¿K ¿K h(231 CLOSEW 224 DETACHWINDOW 217 PRIN1 204 TERPRI 197 DG.PROMPTWINDOW 189 INVERTW 178 BLOCK 172 PRIN1 160 PRIN1 151 TERPRI 145 DG.PROMPTWINDOW 138 DELFILE 122 INVERTW 114 MOUSECONFIRM 108 PRIN1 96 PRIN1 88 PRIN1 76 PRIN1 70 LENGTH 63 PRIN1 51 TERPRI 45 DG.PROMPTWINDOW 34 DG.EXCLUSIVE-OLD-VERSIONS 28 DG.CREATE-PREFIX-FROM-PATH 13 DG.WAIT-FOR-DIR-SELECTION) NIL ( 210 " Delete files aborted." 166 " was deleted. " 102 " . Approve with left button. " 82 " files will be DELETED from " 57 " " 8 "Select directory from which you want to delete old versions of files.") DG.DELETE-SELECTED-FILES-COMMAND :D8 (P 7 FILE P 4 SOURCE-PATH-WINDOW P 3 MENU-WINDOW P 2 SOURCE-PREFIX P 1 SELECTED-FILES P 0 SOURCE-PATH I 0 WINDOW) p@o Xd´‚±úd ºoooJo @H@[g Y¢±²@ ] ¿oM ¿I M ¿oM ¿JM ¿oM ¿²K@ ¿I°6dJO ¿OKg `K¿µË@ °@ ^ ¿oN ¿K ¿K h(268 CLOSEW 261 DETACHWINDOW 254 PRIN1 242 TERPRI 236 DG.PROMPTWINDOW 228 INVERTW 217 BLOCK 211 SHADEITEM 199 GETWINDOWUSERPROP 185 DELFILE 180 PACK* 163 INVERTW 155 MOUSECONFIRM 149 PRIN1 137 PRIN1 129 PRIN1 117 PRIN1 111 LENGTH 104 PRIN1 92 TERPRI 86 DG.PROMPTWINDOW 75 GETWINDOWUSERPROP 64 DG.GET-FILE-LIST 56 CONCAT 28 DG.CREATE-PREFIX-FROM-PATH 13 DG.WAIT-FOR-DIR-SELECTION) (205 HIGHLIGHTSHADE 194 MENU 70 DG.SELECTED-FILES) ( 248 " Delete files aborted." 143 " . Approve with left button. " 123 " files will be DELETED from " 98 " " 50 " ." 44 " from " 39 " DELETED (EXPUNGED) " 34 " The selected files will be " 8 "Select directory from which you want to delete selected files.") DG.DIRECTORY-MINUS-PREFIX :D8 (I 1 PREFIX I 0 DIRECTORY) A²@lA Ø@ @(23 SUBATOM 18 NCHARS 11 NCHARS) NIL () DG.DIRECTORY-SELECTION-FUNCTION :D8 (P 0 CURRENT-NODE I 1 G-WINDOW I 0 SELECTED-OBJ) 4@²"Ag @ ¿A¿`i h(48 NOTIFY.EVENT 24 \\APPEND2 16 GETWINDOWUSERPROP) (42 DG.DIRECTORY-WAS-SELECTED-EVENT 36 DG.WINDOW-OF-LAST-DIRECTORY 29 DG.LAST-DIRECTORY-SELECTED 11 DG.PATH-TO-ROOT) () DG.DISPLAY-DIRECTORY-TREE :D8 (I 1 WINDOW I 0 GRAPH) E@AgdAggA Éd£d‘hAggA (66 DG.SHADE-CURRENT-DIRECTORY 60 PUTWINDOWPROP 44 PUTWINDOWPROP 29 \\INSUREWINDOW 12 SHOWGRAPH) (55 DG.COPYBUTTONEVENTFN 50 COPYBUTTONEVENTFN 23 DG.REDISPLAYFN 18 REPAINTFN 6 DG.DIRECTORY-SELECTION-FUNCTION) () DG.DOCOMMAND :D8 (P 0 WINDOW I 2 KEY I 1 MENU I 0 ITEM) JA X`®`H@A°%`³Hg H@A‡H@Ah(70 DG.DOCOMMAND-WITHOUT-MONITOR 61 DG.DOCOMMAND-WITH-MONITOR 53 GETWINDOWUSERPROP 33 DG.DOCOMMAND-WITH-MONITOR 13 MAINWINDOW 8 WFROMMENU) (48 DG.LOCK 40 DG.CONCURRENT 25 DG.MONITOR-LOCK 19 DG.CONCURRENT-ALL) () DG.DOCOMMAND-WITH-MONITOR :D8 (P 0 PARENT-ITEM I 3 MENU I 2 ITEM I 1 WINDOW I 0 MONITOR-LOCK) RBCÉ XAgo@ACBHhogA gH h(78 PUTWINDOWPROP 73 ADD.PROCESS 60 DG.PROMPTWINDOW 49 SUBPAIR 16 DG.FIND-MENU-ITEM) (65 NAME 54 WINDOW 23 DG.PROCESS 9 MENU) ( 44 (PROGN (WITH.MONITOR MONITOR-LOCK (TTYDISPLAYSTREAM (DG.PROMPTWINDOW WINDOW)) (SHADEITEM (QUOTE PARENT-ITEM) MENU GRAYSHADE) (WINDOWPROP WINDOW (QUOTE DG.UNSHADE-IF-SHADED) (QUOTE (SHADEITEM (QUOTE PARENT-ITEM) MENU WHITESHADE))) (CLEARW (DG.PROMPTWINDOW WINDOW)) (IF (ATOM (CADR (QUOTE ITEM))) THEN (APPLY* (CADR (QUOTE ITEM)) WINDOW) ELSE (APPLY (CAADR (QUOTE ITEM)) (CONS WINDOW (CDADR (QUOTE ITEM))))) (PRINTOUT (DG.PROMPTWINDOW WINDOW) T (CAR (QUOTE PARENT-ITEM)) " Completed. ") (WINDOWPROP WINDOW (QUOTE DG.UNSHADE-IF-SHADED) NIL) (SHADEITEM (QUOTE PARENT-ITEM) MENU WHITESHADE) (WINDOWPROP WINDOW (QUOTE DG.SHADED-ITEM) NIL) (WINDOWPROP WINDOW (QUOTE DG.PROCESS) NIL))) 28 (MONITOR-LOCK WINDOW MENU ITEM PARENT-ITEM)) DG.DOCOMMAND-WITHOUT-MONITOR :D8 (I 2 MENU I 1 ITEM I 0 WINDOW) ;@go@BAhog@ gA (56 PUTWINDOWPROP 51 ADD.PROCESS 38 DG.PROMPTWINDOW 27 SUBPAIR) (43 NAME 32 WINDOW 5 DG.PROCESS) ( 22 (PROGN (TTYDISPLAYSTREAM (DG.PROMPTWINDOW WINDOW)) (SHADEITEM (QUOTE ITEM) MENU GRAYSHADE) (WINDOWPROP WINDOW (QUOTE DG.SHADED-ITEM) (QUOTE ITEM)) (CLEARW (DG.PROMPTWINDOW WINDOW)) (IF (ATOM (CADR (QUOTE ITEM))) THEN (APPLY* (CADR (QUOTE ITEM)) WINDOW) ELSE (APPLY (CAADR (QUOTE ITEM)) (CONS WINDOW (CDADR (QUOTE ITEM))))) (PRINTOUT (DG.PROMPTWINDOW WINDOW) T (CAR (QUOTE ITEM)) " Completed. ") (SHADEITEM (QUOTE ITEM) MENU WHITESHADE) (WINDOWPROP WINDOW (QUOTE DG.SHADED-ITEM) NIL) (WINDOWPROP WINDOW (QUOTE DG.PROCESS) NIL)) 10 (WINDOW MENU ITEM)) DG.EXCLUSIVE-DIRECTORY :D8 (P 5 F P 0 CURRENT-DIRECTORY I 0 DIRECTORY-PATTERN) B@g X@ AIµJ]g Hð™M¼KµLh[ºIY°ßL&»°ø(41 FILENAMEFIELD 20 DIRECTORY 13 FILENAMEFIELD) (36 DIRECTORY 8 DIRECTORY) () DG.EXCLUSIVE-NEW-VERSIONS :D8 (P 10 FILE P 5 F P 0 CURRENT-DIRECTORY I 0 DIRECTORY-PATTERN) ˆ@g X@ AIµJA Nµ(O]g Hð™M¼KµLh[ºIY°ÕL&»°ø_ghgO ô²O_¿OµOh__¿N^°¥O&_¿°õ(100 INFILEP 95 PACKFILENAME.STRING 51 FILENAMEFIELD 20 DIRECTORY 13 FILENAMEFIELD) (88 BODY 82 VERSION 46 DIRECTORY 8 DIRECTORY) () DG.EXCLUSIVE-OLD-VERSIONS :D8 (P 10 FILE P 5 F P 0 CURRENT-DIRECTORY I 0 DIRECTORY-PATTERN) ˆ@g X@ AIµJA Nµ(O]g Hð™M¼KµLh[ºIY°ÕL&»°ø_ghgO ô³O_¿OµOh__¿N^°¥O&_¿°õ(100 INFILEP 95 PACKFILENAME.STRING 51 FILENAMEFIELD 20 DIRECTORY 13 FILENAMEFIELD) (88 BODY 82 VERSION 46 DIRECTORY 8 DIRECTORY) () DG.FBICONFN :D8 (I 1 ICON I 0 WINDOW) EAµ,`h`h@ `@ A(65 ICONW.TITLE 60 DG.CREATE-ICON-TITLE 55 DG.CREATE-PATH-FROM-FILE-NAME 50 DG.GET-FB-PATTERN 43 TITLEDICONW 33 DG.CREATE-ICON-TITLE 28 DG.CREATE-PATH-FROM-FILE-NAME 23 DG.GET-FB-PATTERN) (38 DG.ICONFONT 13 FILEDRAWERREGION 7 FILEDRAWER) () DG.FILE-SELECTION-FN :D8 (P 0 WINDOW I 2 KEY I 1 MENU I 0 ITEM) sA X@dgð²¿d g °Foô³>@d²;Hg ²Hg@¿@Aj°Hg@¿@AnÿÿHh(111 SHADEITEM 99 WINDOWADDPROP 81 WINDOWDELPROP 66 GETWINDOWUSERPROP 41 NOTIFY.EVENT 36 GETWINDOWUSERPROP 26 MAINWINDOW 8 WFROMMENU) (93 DG.SELECTED-FILES 75 DG.SELECTED-FILES 61 DG.SELECTED-FILES 31 DG.FILE-SELECTION-ENDED-EVENT 16 \ STOP) ( 48 " ") DG.FILECOPY :D8 (I 2 OVER-FLAG I 1 F2 I 0 F1) +A ²B¨@A ´A @A @A i(39 COPYFILE 31 COPYFILE 24 DELFILE 16 DG.NEWER-FILE 5 DG.FILE-EXISTS) NIL () DG.FIND-DIRECTORY-SUBTREE :D8 (P 1 X P 0 DIRECTORY-SUBTREE I 1 WINDOW I 0 PATH) <@Ag bAg hX@ŠdIHXµôH(37 GETWINDOWUSERPROP 24 NTH 19 LENGTH 14 GETWINDOWUSERPROP) (32 DG.TREE 9 DG.PATH-TO-ROOT) () DG.FIND-MENU-ITEM :D8 (I 1 ITEM-LIST I 0 ITEM) ?A¡hA3³û@A‘@Ad²$dgð²¿@A ’AAb°Å(51 DG.FIND-MENU-ITEM) (34 SUBITEMS) () DG.FIND-PARENT-DIERCTORY :D8 (P 1 CURRENT-DIRECTORY P 0 FATHER-DIRECTORY I 1 WINDOW I 0 PATH) ; Ag XA@ bdHY´@¨IhHhI¸@b°èHIh(21 DG.RESIDUAL-PATH 13 GETWINDOWUSERPROP) (8 DG.TREE) () DG.FLASHALLWINDOWS :D8 (P 0 W I 0 WINDOW) @d ŒdH µòh(19 FLASHWINDOW 6 ATTACHEDWINDOWS) NIL () DG.GET-FB-PATTERN :D8 (I 0 W) @ g É(15 GETWINDOWUSERPROP 5 MAINWINDOW) (20 FILEBROWSER 10 FILEBROWSER) () DG.GET-FILE-LIST :D8 (P 0 MENU-WINDOW I 3 SOURCE-WINDOW I 2 SOURCE-PATH I 1 WINDOW I 0 MESSAGE) n A BCAXA Hd²Rgi¿A ¿A ¹oI ¿I ¿@I ¿Ag o H(106 AWAIT.EVENT 96 GETWINDOWUSERPROP 84 PRIN1 76 TERPRI 69 PRIN1 57 DG.PROMPTWINDOW 50 CLEARW 45 DG.PROMPTWINDOW 38 PUTWINDOWPROP 23 INVERTW 16 DG.ATTACH-DIRECTORY-FILES-MENU 8 INVERTW) (91 DG.FILE-SELECTION-ENDED-EVENT 32 DG.DETACH) ( 101 1000000 63 "Select files from menu. When done select STOP.") DG.GET-INITIAL-REGION :D8 (P 0 G-REGION I 0 GRAPH) c@ a`HY`ó‘I„` »ºKdJó‘¿J`H\`ó‘L„`i ¾½NdMó‘¿M (96 GETREGION 82 HEIGHTIFWINDOW 42 WIDTHIFWINDOW 13 GETMOUSESTATE 5 GRAPHREGION) (76 DG.MIN-HEIGHT 67 DG.MIN-HEIGHT 56 DG.MAX-HEIGHT 37 DG.MIN-WIDTH 28 DG.MIN-WIDTH 18 DG.MAX-WIDTH) () DG.KILL-PROCESS :D8 (P 1 W I 0 WINDOW) ©@g ²;@g ¿@ ¿@ ¿@ oH @ Hµ7@ gh@ @g @ghYg I ¿I ¿HX°ª(161 CLOSEW 154 DETACHWINDOW 147 GETWINDOWUSERPROP 134 PUTWINDOWPROP 122 EVAL 117 GETWINDOWUSERPROP 106 REDISPLAYW 100 PUTWINDOWPROP 89 DG.PROMPTWINDOW 75 ATTACHEDWINDOWS 68 PRIN1 54 DG.PROMPTWINDOW 47 CLEARW 42 DG.PROMPTWINDOW 35 DG.FLASHALLWINDOWS 28 DEL.PROCESS 23 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (142 DG.DETACH 128 DG.PROCESS 112 DG.UNSHADE-IF-SHADED 94 TITLE 18 DG.PROCESS 5 DG.PROCESS) ( 62 "User interupt. Directory Grapher process aborted.") DG.MOVE-DIR-COMMAND :D8 (I 0 WINDOW) @i (6 DG.MOVECOPY-DIR-COMMAND) NIL () DG.MOVE-FILE-COMMAND :D8 (I 0 WINDOW) @i (6 DG.MOVECOPY-COMMAND) NIL () DG.MOVECOPY-COMMAND :D8 (P 10 FILE P 7 SOURCE-PATH-WINDOW P 6 SOURCE-WINDOW P 5 MENU-WINDOW P 4 SOURCE-PREFIX P 3 TARGET-PREFIX P 2 SELECTED-FILES P 1 SOURCE-PATH P 0 TARGET-PATH I 1 MOVE I 0 WINDOW) a @oi_d^OYd´‚±Bd ¼@oiXd¢±( »oA•o„ooLoKo @IN]g Z¢±Ó@ ¿J±ºd LO KO `²B@ _ ¿OO ¿oO ¿LO ¿oO ¿KO°!@ _ ¿OO ¿oO ¿ALO ¿OMg `M¿µ‚±ÿE@ ¿M ¿M h(349 CLOSEW 342 DETACHWINDOW 335 INVERTW 320 BLOCK 314 SHADEITEM 302 GETWINDOWUSERPROP 288 DELFILE 283 PACK* 272 PRIN1 259 PRIN1 249 TERPRI 242 DG.PROMPTWINDOW 230 PRIN1 217 PRIN1 208 PRIN1 195 PRIN1 185 TERPRI 178 DG.PROMPTWINDOW 170 DG.FILECOPY 160 PACK* 152 PACK* 134 INVERTW 123 GETWINDOWUSERPROP 112 DG.GET-FILE-LIST 104 CONCAT 62 DG.CREATE-PREFIX-FROM-PATH 50 DG.WAIT-FOR-DIR-SELECTION 37 DG.CREATE-PREFIX-FROM-PATH 14 DG.WAIT-FOR-DIR-SELECTION) (308 HIGHLIGHTSHADE 297 MENU 165 DG.COPY-OVER 118 DG.SELECTED-FILES) ( 265 " already exists and was not copied. " 223 " --> " 201 " : " 98 " ." 92 " to " 86 " from " 81 " COPIED " 75 " MOVED " 68 " The selected files will be " 44 "Select target directory " 8 "Select source directory ") DG.MOVECOPY-DIR-COMMAND :D8 (P 22 FILE P 14 NEW-PREFIX P 13 NEW-NAME P 12 FILE-NAME P 11 TARGET-WINDOW P 10 SOURCE-WINDOW P 9 TARGET-PATH-WINDOW P 8 TARGET-FATHER-SON P 7 SOURCE-FATHER-SON P 6 MENU-WINDOW P 5 SOURCE-WINDOW-PATH P 4 SOURCE-PREFIX P 3 TARGET-PREFIX P 2 SELECTED-FILES P 1 SOURCE-PATH P 0 TARGET-PATH I 1 MOVE I 0 WINDOW) ?ð0@oi]dYM_I´‚±†@ ¿I \ º@ ¿@oI i_¸A²gH I ó²XHI"O&µˆ_(¿O$µ)i²@@ ¿@ _ ¿oO h_*¿O(O*ô¢h°ÏO&_&¿O$_$¿°±O_¿H´Ü@ ¿H »J±âdO,HO, I _O, _ _`²i@ _ ¿OO ¿oO ¿gO,g gO,g O ¿oO ¿OO °!@ _" ¿OO" ¿oO" ¿A—O, ¿µ‚±ÿIO _¿HO _O O¿A²OOO ¿Og O ¿OOð’±þ…Og O ¿±þi(569 DG.DISPLAY-DIRECTORY-TREE 562 DG.CREATE-GRAPH-FROM-TREE 557 GETWINDOWUSERPROP 535 DG.DISPLAY-DIRECTORY-TREE 528 DG.CREATE-GRAPH-FROM-TREE 523 GETWINDOWUSERPROP 509 REMOVE 482 COPY 469 DG.FIND-PARENT-DIERCTORY 458 DG.FIND-PARENT-DIERCTORY 441 BLOCK 435 DELFILE 425 PRIN1 412 PRIN1 402 TERPRI 395 DG.PROMPTWINDOW 382 PRIN1 369 PRIN1 362 PACKFILENAME 357 FILENAMEFIELD 340 FILENAMEFIELD 322 PRIN1 309 PRIN1 299 TERPRI 292 DG.PROMPTWINDOW 284 DG.FILECOPY 272 PACK* 265 DG.PACK-NAME-VER-EXT 256 DG.CREATE-PREFIX-FROM-PATH 251 \\APPEND2 246 NTH 241 LENGTH 235 DG.CREATE-PATH-FROM-FILE-NAME 215 DG.CREATE-PREFIX-FROM-PATH 208 INVERTW 163 PRIN1 150 TERPRI 143 DG.PROMPTWINDOW 136 DG.FLASHALLWINDOWS 103 LENGTH 97 LENGTH 84 DG.WAIT-FOR-DIR-SELECTION 78 CONCAT 72 LAST 59 INVERTW 52 DIRECTORY 46 DG.CREATE-PREFIX-FROM-PATH 39 INVERTW 17 DG.WAIT-FOR-DIR-SELECTION) (552 DG.TREE 518 DG.TREE 352 DIRECTORY 345 DIRECTORY 335 HOST 328 HOST 279 DG.COPY-OVER) ( 418 " already exists and was not copied. " 375 " --> " 315 " : " 156 "Can not move a directory to its descendants" 66 "Select new parent for directory " 11 "Select the directory that you want to transfer.") DG.PACK-NAME-VER-EXT :D8 (I 0 F) 8g@g g@g g@g (53 PACKFILENAME 47 FILENAMEFIELD 31 FILENAMEFIELD 15 FILENAMEFIELD) (42 EXTENSION 36 EXTENSION 26 VERSION 20 VERSION 10 NAME 4 NAME) () DG.PROMPTWINDOW :D8 (I 0 WINDOW) @g (10 GETWINDOWUSERPROP) (5 PROMPTWINDOW) () DG.REDISPLAYFN :D8 (I 0 WINDOW) @ (5 DG.SHADE-CURRENT-DIRECTORY) NIL () DG.RESIDUAL-PATH :D8 (I 1 PATH I 0 WINDOW) A@g (21 NTH 16 LENGTH 11 GETWINDOWUSERPROP) (6 DG.PATH-TO-ROOT) () DG.RESTORE-COMMAND :D8 (P 30 F-WITH-< P 29 F P 27 SUB P 16 TARGET-WINDOW P 15 TARGET-PATH-AND-WINDOW P 14 FILES-BACKUP-NAMES P 13 BACKUP-HOST P 12 INFO-NAME P 11 UNFOUND-FILES P 10 OVER-FLAG-ASKED P 9 NEW-NAME P 8 F-NAME P 7 DIRECTORY-INFO-FILE-NAME P 6 DSK-FILES P 5 FLOPPY-FILES P 4 OVER-WRITE-FLAG P 3 N P 2 FILES-TO-BACKUP P 1 TARGET-DIRECTORY P 0 TARGET-PATH I 1 BACKUP-DIR I 0 WINDOW) Äð€@oi_dXO_ HO YAg _dgð²#@ _" ¿oO" ¿¿Ag Ag b¿@ AIg_d ³Q@ ¿@ ¿@ ¿@ _$ ¿oO$ ¿OO$ ¿oO$ ¿±áOg ¿Id`AO.µ‚±ºO0 ¿O g O ¿O @ð¦@ ¿`_¿@ ¿O!O8µ‚±™@ ¿O´‚±d¿@ ¿@ ¿Ogð¢±@ _*¿O O* ¿oO* ¿O_¿h_¿i °_6I³O6_4¿O2µO4h_2_0¿O._.±ÿ"O4&_2¿°ò_:¿AO: _ ¢±ŒHgO: _< O< _¿OO`²(@ _& ¿OO& ¿oO& °4@ _( ¿OO( ¿oO( ŒO:O§O:O_¿O8_8±þ°@ _,¿O O, ¿oO, h(704 PRIN1 691 PRIN1 684 LENGTH 674 DG.PROMPTWINDOW 645 PRIN1 632 PRIN1 622 TERPRI 615 DG.PROMPTWINDOW 607 PRIN1 594 PRIN1 584 TERPRI 577 DG.PROMPTWINDOW 569 DG.FILECOPY 552 PACK* 547 DG.PACK-NAME-VER-EXT 540 DG.CREATE-PREFIX-FROM-PATH 535 \\APPEND2 529 DG.CREATE-PATH-FROM-FILE-NAME 522 PACK* 505 DG.FILE-EXISTS 498 PACK* 441 FLOPPY.WAIT.FOR.FLOPPY 425 PRIN1 412 PRIN1 405 LENGTH 395 DG.PROMPTWINDOW 376 CLEARW 371 DG.PROMPTWINDOW 364 DG.FLASHALLWINDOWS 357 RINGBELLS 343 INVERTW 321 INVERTW 306 INVERTW 294 DG.DISPLAY-DIRECTORY-TREE 287 DG.CREATE-GRAPH-FROM-TREE 282 GETWINDOWUSERPROP 268 \\APPEND2 238 LOAD 222 PRIN1 209 PRIN1 199 PRIN1 186 TERPRI 179 DG.PROMPTWINDOW 172 DG.FLASHALLWINDOWS 165 INVERTW 158 CLEARW 153 DG.PROMPTWINDOW 145 DIRECTORY 137 PACK* 124 INVERTW 115 PACK* 103 FILENAMEFIELD 91 FLOPPY.WAIT.FOR.FLOPPY 85 PRIN1 72 TERPRI 65 DG.PROMPTWINDOW 48 FILENAMEFIELD 36 DG.FIND-DIRECTORY-SUBTREE 17 DG.WAIT-FOR-DIR-SELECTION) (564 DG.COPY-OVER 515 < 384 FLOPPY 312 DG.FILES-BACKUP-NAMES 277 DG.TREE 247 DG.DIRECTORY-SUBTREE 233 SYSLOAD 132 >BACKUPINFO 110 < 98 DIRECTORY 56 FLOPPY 43 HOST) ( 697 " Files wre not found on the backup directory and were not restored" 638 " exists and wasn't restored. " 600 " Restored." 418 " Files were not found on this floppy !! please insert another one. " 215 " . Resore aborted. " 192 "Couldn't find the file " 78 "Insert Floppy" 11 "Select directory that you want to restore") DG.RESTORE-FROM-DEFAULT-COMMAND :D8 (I 0 WINDOW) 5`³#@ @ H oH @` (50 DG.RESTORE-COMMAND 38 PRIN1 27 TERPRI 18 DG.PROMPTWINDOW 12 DG.FLASHALLWINDOWS) (45 DG.DEFAULT-BACKUP-DIRECTORY 4 DG.DEFAULT-BACKUP-DIRECTORY) ( 32 "NULL default directory.Backup aborted") DG.RESTORE-FROM-SELECTED-COMMAND :D8 (P 0 BACKUP-DIRECTORY I 0 WINDOW) @oi X@H h(28 DG.RESTORE-COMMAND 20 DG.CREATE-PREFIX-FROM-PATH 14 DG.WAIT-FOR-DIR-SELECTION) NIL ( 8 "Select the directory that contains the backup.") DG.SETIFY :D8 (P 2 ONE-ELEMENT P 0 NEW-SET I 0 L) "0@YµHZH ©JH¸¿I°å(27 BLOCK 17 MEMBER) NIL () DG.SHADE-CURRENT-DIRECTORY :D8 (P 1 NODE P 0 CURRENT-PATH I 0 WINDOW) b @g X@g °-dHIô”Il°Ijó™Imþ@¿µÔh(88 RESET/NODE/BORDER 45 GETWINDOWUSERPROP 33 NTH 28 LENGTH 23 GETWINDOWUSERPROP 12 DG.CREATE-PATH-FROM-FILE-NAME 7 DG.CURRENT-CONNECTED-DIRECTORY) (40 GRAPH 18 DG.PATH-TO-ROOT) () DG.TRIM :D8 (I 1 N I 0 W) @ Aó˜@kA@(16 SUBATOM 5 NCHARS) NIL () DG.UNADVISE :D8 NIL o (9 UNADVISE) NIL ( 4 ((\\GENERATENEXTFILE IN FB.UPDATEBROWSERITEMS))) DG.UNADVISE-GENERATE-FILE :D8 NIL o (9 UNADVISE) NIL ( 4 ((\\GENERATENEXTFILE IN FB.UPDATEBROWSERITEMS))) DG.UNPACK-DIRECTORY-NAME :D8 (P 0 PACKED-NAME I 0 NAME) 4@¡h@˜@gðŸH @ H@h ¸@b°×(43 \\NCONC2 31 DG.UNPACK-DIRECTORY-NAME 24 PACK) (15 >) () DG.UPDATE-COMMAND :D8 (I 0 WINDOW) @ @ (11 DG.UPDATE-DIRECTORY-TREE 5 INVERTW) NIL () DG.UPDATE-DIRECTORY-TREE :D8 (P 0 TREE I 0 WINDOW) /@g X@gHH @ h(43 DG.DISPLAY-DIRECTORY-TREE 37 DG.CREATE-GRAPH-FROM-TREE 31 PUTWINDOWPROP 18 DG.CREATE-DIRECTORY-TREE 13 GETWINDOWUSERPROP) (25 DG.TREE 8 DG.PATH-TO-ROOT) () DG.UPDATE-DIRECTROY-TREE :D8 (P 0 TREE I 0 WINDOW F 1 \'DG.PATH-TO-ROOT) @Q Xd@ h(22 DG.DISPLAY-DIRECTORY-TREE 14 DG.CREATE-DIRECTORY-TREE 9 WINDOWPROP) NIL () DG.WAIT-FOR-DIR-SELECTION :D8 (P 0 WAITS I 2 ALLOW-OTHER-WINDOWS I 1 MESSAGE I 0 WINDOW) ®0h¿j¸@ Y ¿AI ¿HkØ¸`nè ¿`›B³e`@ð³\Hdl2ó‘hl Zjð¬J²ÆJ ²¾@ ¿ldHl ÛÚn'ldHl ÛkØÚn'ldHl ÛÚn'h °ƒ``h(156 PLAYTUNE 111 FLASHWINDOW 106 DG.PROMPTWINDOW 98 \\FZEROP 83 IMOD 49 AWAIT.EVENT 31 PRIN1 23 TERPRI 17 DG.PROMPTWINDOW) (168 DG.WINDOW-OF-LAST-DIRECTORY 163 DG.LAST-DIRECTORY-SELECTED 64 DG.WINDOW-OF-LAST-DIRECTORY 55 DG.LAST-DIRECTORY-SELECTED 41 DG.DIRECTORY-WAS-SELECTED-EVENT 8 DG.LAST-DIRECTORY-SELECTED) () DIRGRAPHER :D8 (P 4 GRAPH P 3 OLD-CURSOR P 2 PATH P 1 DG.WINDOW P 0 TREE I 2 PATH? I 1 WINDOW-REGION I 0 {DEV}) P@§`b¿` [` ¿o` @dš¸BµHhº° Z ¸H \` ¿o` K Aµ‚±÷L @ Yg``¿IgJLI IgHIggIggIgoIgJ IghIgo Igo Il`I I`gI IggI@ Y±ÿ)(377 CREATEW 369 ATTACHMENU 353 DG.CREATE-QUIT-MENU 347 ATTACHMENU 331 DG.CREATE-MENU 325 GETPROMPTWINDOW 312 PUTWINDOWPROP 307 CREATE.MONITORLOCK 291 PUTWINDOWPROP 286 CREATE.EVENT 270 PUTWINDOWPROP 258 PUTWINDOWPROP 253 DG.CREATE-ICON-TITLE 241 PUTWINDOWPROP 225 PUTWINDOWPROP 209 WINDOWADDPROP 193 PUTWINDOWPROP 181 DG.DISPLAY-DIRECTORY-TREE 174 PUTWINDOWPROP 161 PUTWINDOWPROP 139 CREATEW 133 DG.GET-INITIAL-REGION 120 CURSOR 114 PRIN1 98 TERPRI 87 DG.CREATE-GRAPH-FROM-TREE 80 DG.CREATE-DIRECTORY-TREE 75 COPY 69 DG.CREATE-PATH-FROM-FILE-NAME 49 PRIN1 33 TERPRI 22 CURSOR) (364 JUSTIFY 359 BOTTOM 342 JUSTIFY 337 DG.MENU-EDGE 320 DG.PROMPTWINDOWFONT 297 DG.LOCK 276 DG.FILE-SELECTION-ENDED-EVENT 264 DG.PROCESS 247 DG.ICONTITLE 231 EXPANDFN 220 DG.CREATEICONW 215 ICONFN 204 DG.REDISPLAYFN 199 REPAINTFN 187 DG.TREE 168 DG.PATH-TO-ROOT 155 DG.MIN-HEIGHT 150 DG.MIN-WIDTH 145 MINSIZE 109 PROMPTWINDOW 93 PROMPTWINDOW 44 PROMPTWINDOW 28 PROMPTWINDOW 17 WAITINGCURSOR 9 DG.DEFAULT-DIR) ( 302 "DG.LOCK" 281 "DGEVENT" 236 (DG.SHADE-CURRENT-DIRECTORY REDISPLAYGRAPH) 104 "DirGrapher : Done." 39 "DirGrapher : Computing directory structure ") (PRETTYCOMPRINT DIRGRAPHERCOMS) (RPAQQ DIRGRAPHERCOMS ((FILES GRAPHER FILEBROWSER) (INITVARS (* |;;;| "VARIABLES TO BE SET BY THE USER") (DG.PROMPTWINDOWFONT (FONTCREATE (QUOTE (GACHA 8)))) ( DG.GRAPH-LABEL-FONT (FONTCREATE (QUOTE (GACHA 8)))) (DG.VERTICAL-HORIZONTAL-OPTION (QUOTE VERTICAL)) ( DG.COPY-OVER NIL) (DG.BOX-ALL T) (DG.DEFAULT-DIR (QUOTE {DSK})) (DG.CONCURRENT NIL) ( DG.CONCURRENT-ALL T) (DG.MAX-WIDTH 900) (DG.MAX-HEIGHT 700) (DG.MIN-WIDTH 200) (DG.MIN-HEIGHT 100) ( DG.MENU-EDGE (QUOTE RIGHT)) (DG.MENU-FONT LITTLEFONT) (DG.FILE-INFO-ATTRIBUTES (QUOTE (SIZE CREATIONDATE WRITEDATE AUTHOR))) (DG.DEFAULT-BACKUP-DIRECTORY (QUOTE {FLOPPY})) (DG.STAND-ALONE-HOSTS (QUOTE (DSK FLOPPY CORE))) (DG.BACKGROUND-DIRECTORIES NIL)) (VARS DG.CANCEL-BUTTON-BM DG.OK-BUTTON-BM DG.RESET-BUTTON-BM (* |;;;| "PROGRAM VARIABLES") (DG.ICONFONT (FONTCREATE (QUOTE (GACHA 8)))) ( DG.DIRECTORY-WAS-SELECTED-EVENT (CREATE.EVENT)) (DG.MONITOR-LOCK (CREATE.MONITORLOCK "DG.MONITOR")) ( DG.LAST-DIRECTORY-SELECTED NIL) (DG.WINDOW-OF-LAST-DIRECTORY NIL)) (FNS DG.ADD-ITEM-TO-BACKGROUND-MENU DG.ADVISE-GENERATE-FILE DG.APPLY-DIRGRAPHER-COMMAND DG.APPLY-FB-ON-DIR-AND-SUBDIRS-COMMAND DG.APPLY-FILEBROWSER-COMMAND DG.ASK-FOR-BACKUP-TYPE DG.ATTACH-DIRECTORY-FILES-MENU DG.BACKUP-COMMAND DG.FILE-EXISTS DG.FILE-INFO-COMMAND DG.FILE-INFO-SELECTION-FN DG.FILES-HARDCOPY-COMMAND DG.LOAD-FILES-COMMAND DG.NEWER-FILE DG.BACKUP-ON-DEFAULT-COMMAND DG.BACKUP-ON-SELECTED-COMMAND DG.CONNECT-DIR-COMMAND DG.COPY-DIRECTORY-COMMAND DG.COPY-FILE-COMMAND DG.COPYBUTTONEVENTFN DG.CREATE-BACKUP-FREE-MENU DG.CREATE-BACKUP-NAME DG.CREATE-DIRECTORY-CHAIN DG.CREATE-DIRECTORY-SPEC DG.CREATE-DIRECTORY-TREE DG.CREATE-GRAPH-FROM-TREE DG.CREATE-ICON-TITLE DG.CREATE-MENU DG.CREATE-PATH-FROM-FILE-NAME DG.CREATE-PREFIX-FROM-PATH DG.CREATE-QUIT-MENU DG.CREATE-SUBDIR-COMMAND DG.CREATE-TREE-FROM-LISTS DG.CREATE-TREE-NODES DG.CREATEICONW DG.CURRENT-CONNECTED-DIRECTORY DG.DELETE-DIRECTORY-COMMAND DG.DELETE-FROM-TREE DG.DELETE-OLD-VERSIONS-COMMAND DG.DELETE-SELECTED-FILES-COMMAND DG.DIRECTORY-MINUS-PREFIX DG.DIRECTORY-SELECTION-FUNCTION DG.DISPLAY-DIRECTORY-TREE DG.DOCOMMAND DG.DOCOMMAND-WITH-MONITOR DG.DOCOMMAND-WITHOUT-MONITOR DG.EXCLUSIVE-DIRECTORY DG.EXCLUSIVE-NEW-VERSIONS DG.EXCLUSIVE-OLD-VERSIONS DG.FBICONFN DG.FILE-SELECTION-FN DG.FILECOPY DG.FIND-DIRECTORY-SUBTREE DG.FIND-MENU-ITEM DG.FIND-PARENT-DIERCTORY DG.FLASHALLWINDOWS DG.GET-FB-PATTERN DG.GET-FILE-LIST DG.GET-INITIAL-REGION DG.KILL-PROCESS DG.MOVE-DIR-COMMAND DG.MOVE-FILE-COMMAND DG.MOVECOPY-COMMAND DG.MOVECOPY-DIR-COMMAND DG.PACK-NAME-VER-EXT DG.PROMPTWINDOW DG.REDISPLAYFN DG.RESIDUAL-PATH DG.RESTORE-COMMAND DG.RESTORE-FROM-DEFAULT-COMMAND DG.RESTORE-FROM-SELECTED-COMMAND DG.SETIFY DG.SHADE-CURRENT-DIRECTORY DG.TRIM DG.UNADVISE DG.UNADVISE-GENERATE-FILE DG.UNPACK-DIRECTORY-NAME DG.UPDATE-COMMAND DG.UPDATE-DIRECTORY-TREE DG.UPDATE-DIRECTROY-TREE DG.WAIT-FOR-DIR-SELECTION DIRGRAPHER) (BITMAPS DG.ICON DG.MASK DG.FILL-WINDOW-TEXTURE DG.WHITEBM) (P (DG.ADVISE-GENERATE-FILE) (SETQ DG.BACKGROUND-DIRECTORIES (UNION DG.BACKGROUND-DIRECTORIES (UNION DIRECTORIES (CONS (QUOTE {FLOPPY}) ( FOR D IN (VOLUMES) WHEN (LISPDIRECTORYP D) COLLECT (PACK* (QUOTE {DSK}<) D (QUOTE >))))))) ( DG.ADD-ITEM-TO-BACKGROUND-MENU (QUOTE |DirGrapher|) (QUOTE (DIRGRAPHER)) "Will initiate dirgrapher process on the current directory" (CONS (QUOTE SUBITEMS) (CONS (QUOTE ( "DG Windows to top" (|for| W |in| (OPENWINDOWS) |when| (OR (WINDOWPROP W (QUOTE DG.PATH-TO-ROOT)) (AND (WINDOWPROP W (QUOTE ICONFOR)) (WINDOWPROP (WINDOWPROP W (QUOTE ICONFOR)) (QUOTE DG.PATH-TO-ROOT)))) |do| (TOTOPW W)))) (FOR D IN DG.BACKGROUND-DIRECTORIES COLLECT (LIST D (LIST (QUOTE DIRGRAPHER) (KWOTE D)) (CONCAT "WILL APPLY DIRGRAPHER ON " D))))))) (* |;;;| "(declare\\: dontcopy (prop makefile-environment dirgrapher))"))) (FILESLOAD GRAPHER FILEBROWSER) (RPAQ? DG.PROMPTWINDOWFONT (FONTCREATE (QUOTE (GACHA 8)))) (RPAQ? DG.GRAPH-LABEL-FONT (FONTCREATE (QUOTE (GACHA 8)))) (RPAQ? DG.VERTICAL-HORIZONTAL-OPTION (QUOTE VERTICAL)) (RPAQ? DG.COPY-OVER NIL) (RPAQ? DG.BOX-ALL T) (RPAQ? DG.DEFAULT-DIR (QUOTE {DSK})) (RPAQ? DG.CONCURRENT NIL) (RPAQ? DG.CONCURRENT-ALL T) (RPAQ? DG.MAX-WIDTH 900) (RPAQ? DG.MAX-HEIGHT 700) (RPAQ? DG.MIN-WIDTH 200) (RPAQ? DG.MIN-HEIGHT 100) (RPAQ? DG.MENU-EDGE (QUOTE RIGHT)) (RPAQ? DG.MENU-FONT LITTLEFONT) (RPAQ? DG.FILE-INFO-ATTRIBUTES (QUOTE (SIZE CREATIONDATE WRITEDATE AUTHOR))) (RPAQ? DG.DEFAULT-BACKUP-DIRECTORY (QUOTE {FLOPPY})) (RPAQ? DG.STAND-ALONE-HOSTS (QUOTE (DSK FLOPPY CORE))) (RPAQ? DG.BACKGROUND-DIRECTORIES NIL) (RPAQQ DG.CANCEL-BUTTON-BM #*(50 20)AOOOOOOOOOON@@@@COOOOOOOOOOO@@@@G@@@@@@@@@@CH@@@N@@@@@@@@@@AL@@@L@@@@@@@@@@@L@@@L@@@@@@@@@@@L@@@LAO@@@@@@@C@L@@@LCAH@@@@@@C@L@@@LCAILGLGHOC@L@@@LC@@FFFLMIK@L@@@LC@ANFFLAOK@L@@@LCAKFFFLAHC@L@@@LCAKFFFLMIK@L@@@LAOAOFFGHOC@L@@@L@@@@@@@@@@@L@@@L@@@@@@@@@@@L@@@N@@@@@@@@@@AL@@@G@@@@@@@@@@CH@@@COOOOOOOOOOO@@@@AOOOOOOOOOON@@@@ ) (RPAQQ DG.OK-BUTTON-BM #*(50 20)AOOOOOOOOOON@@@@COOOOOOOOOOO@@@@G@@@@@@@@@@CH@@@N@@@@@@@@@@AL@@@L@@@@@@@@@@@L@@@L@GL@@@@@@@@L@@@L@FF@@@@@F@@L@@@L@FFGHOCLOH@L@@@L@FFLMIFFF@@L@@@L@GLOMLGNF@@L@@@L@FFL@GF@F@@L@@@L@FFLMCFFF@@L@@@L@FFGINCLCH@L@@@L@@@@@@@@@@@L@@@L@@@@@@@@@@@L@@@L@@@@@@@@@@@L@@@N@@@@@@@@@@AL@@@G@@@@@@@@@@CH@@@COOOOOOOOOOO@@@@AOOOOOOOOOON@@@@ ) (RPAQQ DG.RESET-BUTTON-BM #*(50 20)AOOOOOOOOOON@@@@COOOOOOOOOOO@@@@G@@@@@@@@@@CH@@@N@@@@@@@@@@AL@@@L@@@@@@@@@@@L@@@L@GL@@@@@@@@L@@@L@FF@@@@@F@@L@@@L@FFGHOCLOH@L@@@L@FFLMIFFF@@L@@@L@GLOMLGNF@@L@@@L@FFL@GF@F@@L@@@L@FFLMCFFF@@L@@@L@FFGINCLCH@L@@@L@@@@@@@@@@@L@@@L@@@@@@@@@@@L@@@L@@@@@@@@@@@L@@@N@@@@@@@@@@AL@@@G@@@@@@@@@@CH@@@COOOOOOOOOOO@@@@AOOOOOOOOOON@@@@ ) (RPAQ DG.ICONFONT (FONTCREATE (QUOTE (GACHA 8)))) (RPAQ DG.DIRECTORY-WAS-SELECTED-EVENT (CREATE.EVENT)) (RPAQ DG.MONITOR-LOCK (CREATE.MONITORLOCK "DG.MONITOR")) (RPAQQ DG.LAST-DIRECTORY-SELECTED NIL) (RPAQQ DG.WINDOW-OF-LAST-DIRECTORY NIL) (RPAQQ DG.ICON #*(75 75)OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@N@@@@@@@@@@@@@@@@@N@N@@@@@@@@@@@@@@@@@N@NGOOOOOOOOOOOOOOOLN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@D@@@@@@@DN@ND@@@@@@@D@@@@@@@DN@ND@@@@@@@D@@@@@@@DN@ND@@@COOOOOOOH@@@DN@ND@@@B@@@@@@@H@@@DN@ND@@@B@@@@@@@H@@@DN@ND@@@B@@@@@@@H@@@DN@ND@GOOOO@@AOOOOH@DN@ND@D@@@A@@A@@@@H@DN@ND@D@@@A@@A@@@@H@DN@NDGOL@AOOAOO@@OOHDN@NDD@D@A@AA@A@@H@HDN@NDD@D@A@AA@A@@H@HDN@NDD@D@A@AA@A@@H@HDN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@ND@@@@@@@@@@@@@@@DN@NGOOOOOOOOOOOOOOOLN@N@@@@@@@@@@@@@@@@@N@N@@@@@@@@@@@@@@@@@N@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@ ) (RPAQQ DG.MASK #*(75 75)OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@ ) (RPAQQ DG.FILL-WINDOW-TEXTURE #*(16 16)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ) (RPAQQ DG.WHITEBM #*(16 16)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@) (DG.ADVISE-GENERATE-FILE) (SETQ DG.BACKGROUND-DIRECTORIES (UNION DG.BACKGROUND-DIRECTORIES (UNION DIRECTORIES (CONS (QUOTE {FLOPPY}) (FOR D IN (VOLUMES) WHEN (LISPDIRECTORYP D) COLLECT (PACK* (QUOTE {DSK}<) D (QUOTE >))))))) (DG.ADD-ITEM-TO-BACKGROUND-MENU (QUOTE |DirGrapher|) (QUOTE (DIRGRAPHER)) "Will initiate dirgrapher process on the current directory" (CONS (QUOTE SUBITEMS) (CONS (QUOTE ( "DG Windows to top" (|for| W |in| (OPENWINDOWS) |when| (OR (WINDOWPROP W (QUOTE DG.PATH-TO-ROOT)) (AND (WINDOWPROP W (QUOTE ICONFOR)) (WINDOWPROP (WINDOWPROP W (QUOTE ICONFOR)) (QUOTE DG.PATH-TO-ROOT)))) |do| (TOTOPW W)))) (FOR D IN DG.BACKGROUND-DIRECTORIES COLLECT (LIST D (LIST (QUOTE DIRGRAPHER) (KWOTE D)) (CONCAT "WILL APPLY DIRGRAPHER ON " D)))))) (PUTPROPS DIRGRAPHER COPYRIGHT ("Shaul Markovitch" 1985 1986 1900 1987 1988)) NIL