(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "13-Jul-99 10:05:40" ("compiled on " {DSK}medley3.5>lispusers>WDWHACKS.;3) "29-Jan-99 11:25:20" brecompiled exprs%: Filebrowsericide in "LFG 6-Jul-99 ..." dated " 6-Jul-99 15:40:50") (FILECREATED "13-Jul-99 10:05:38" {DSK}medley3.5>lispusers>WDWHACKS.;3 6218 changes to%: ( VARS WDWHACKSCOMS) (FNS Filebrowsericide) previous date%: " 1-Dec-96 21:15:33" {DSK}medley3.5>lispusers>WDWHACKS.;2) CLOSE.WINDOWS.IN.REGION :D8 (P 0 W I 0 R) 4@§b¿°d@H É –H ¿µâh(42 CLOSEW 35 INTERSECTREGIONS 28 \INSUREWINDOW 14 OPENWINDOWS 6 GETREGION) NIL () SHAPEW.AND.SAVE :D8 (I 1 NEWREGION I 0 WINDOW) @g@ @A (23 SHAPEW 16 PUTWINDOWPROP 11 WINDOWREGION) (5 OLD.SHAPE) () SHAPEW.POP :D8 (I 0 WINDOW) &@g ´@dg@ (35 SHAPEW 30 PUTWINDOWPROP 25 WINDOWREGION 10 GETWINDOWUSERPROP) (19 OLD.SHAPE 5 OLD.SHAPE) () SMASH.THE.DAMNED.CONST.IN.ATTACHWINDOW :D8 (P 1 MAINWINDOW P 0 TEMPWINDOW) Xo Ho Yg Hg o Hg  H I (85 CLOSEW 79 CLOSEW 72 \APPEND2 66 GETWINDOWUSERPROP 55 COPY 45 GETWINDOWUSERPROP 34 ATTACHWINDOW 23 CREATEW 9 CREATEW) (61 PASSTOMAINCOMS 40 PASSTOMAINCOMS 29 TOP) ( 50 (SHAPEW.POP SHAPEW.AND.SAVE) 18 (0 0 10 10) 4 (0 0 10 10)) Filebrowsericide :D8 (P 1 W) 8HµhY Égð²Ig –I ¿HX°Ô(48 CLOSEW 41 GETWINDOWUSERPROP 20 \INSUREWINDOW 4 OPENWINDOWS) (36 FILEBROWSER 27 TB.REPAINTFN) () Inspecticide :D8 (P 1 w) KHµhY Égð²oI É( «Ig –I ¿HX°Á(67 CLOSEW 60 GETWINDOWUSERPROP 48 STRPOS 41 \INSUREWINDOW 20 \INSUREWINDOW 4 OPENWINDOWS) (55 INSPECTWINDOW 27 INSPECTW.REPAINTFN) ( 35 "Inspect") SEditicide :D8 (P 1 W) KHµhY Égð²oI É( «Ig –I ¿HX°Á(67 CLOSEW 60 GETWINDOWUSERPROP 48 STRPOS 41 \INSUREWINDOW 20 \INSUREWINDOW 4 OPENWINDOWS) (55 INSPECTWINDOW 27 SEDIT::REPAINTFN) ( 35 "SEdit") (PRETTYCOMPRINT WDWHACKSCOMS) (RPAQQ WDWHACKSCOMS ((FNS CLOSE.WINDOWS.IN.REGION SHAPEW.AND.SAVE SHAPEW.POP SMASH.THE.DAMNED.CONST.IN.ATTACHWINDOW Filebrowsericide Inspecticide SEditicide) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (RPLACA (CDR (ASSOC (QUOTE Shape) WindowMenuCommands)) (QUOTE (QUOTE SHAPEW.AND.SAVE))) (RPLACD (CDDR (ASSOC (QUOTE Shape) WindowMenuCommands)) (COPY (QUOTE ((SUBITEMS ( "PopShape" (QUOTE SHAPEW.POP) "Return a reshaped window to its original form.")))))) (SETQ WindowMenu NIL) (SETQ BackgroundMenuCommands (CONS (COPY (QUOTE ("SlamWs" (QUOTE (CLOSE.WINDOWS.IN.REGION)) "Close all the windows in a region of the screen." (SUBITEMS ("Inspectors" (QUOTE (Inspecticide)) "Close only inspector windows.") ("SEdit" (QUOTE (SEditicide)) "Close only SEdit windows.") ( "Filebrowsers" (QUOTE (Filebrowsericide)) "Close only file browser windows."))))) BackgroundMenuCommands)) (SETQ BackgroundMenu NIL) (SMASH.THE.DAMNED.CONST.IN.ATTACHWINDOW))))) (RPLACA (CDR (ASSOC (QUOTE Shape) WindowMenuCommands)) (QUOTE (QUOTE SHAPEW.AND.SAVE))) (RPLACD (CDDR (ASSOC (QUOTE Shape) WindowMenuCommands)) (COPY (QUOTE ((SUBITEMS ("PopShape" (QUOTE SHAPEW.POP) "Return a reshaped window to its original form.")))))) (SETQ WindowMenu NIL) (SETQ BackgroundMenuCommands (CONS (COPY (QUOTE ("SlamWs" (QUOTE (CLOSE.WINDOWS.IN.REGION)) "Close all the windows in a region of the screen." (SUBITEMS ("Inspectors" (QUOTE (Inspecticide)) "Close only inspector windows.") ("SEdit" (QUOTE (SEditicide)) "Close only SEdit windows.") ( "Filebrowsers" (QUOTE (Filebrowsericide)) "Close only file browser windows."))))) BackgroundMenuCommands)) (SETQ BackgroundMenu NIL) (SMASH.THE.DAMNED.CONST.IN.ATTACHWINDOW) (PUTPROPS WDWHACKS COPYRIGHT (NONE)) NIL