(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "LAYOUT-SEDIT" (NICKNAMES "L-S"))) (il:filecreated " 9-Jan-87 19:55:36" ("compiled on " il:{eris}lispcore>layout-sedit.\;2) " 9-Jan-87 13:18:38" "COMPILE-FILEd" il:|in| "Xerox Lisp 9-Jan-87 ..." il:|dated| " 9-Jan-87 13:47:56") (il:filecreated " 9-Jan-87 19:55:25" il:{eris}lispcore>layout-sedit.\;2 7190 il:|changes| il:|to:| (il:variables user::*l-s-region-zero* user::*l-s-region-delta* user::*l-s-reuse-earlier-regions* ) (il:functions get-region save-region user::use-l-s-regions user::stop-using-l-s-regions) (il:vars il:layout-seditcoms) il:|previous| il:|date:| "26-Dec-86 19:42:46" il:{eris}lisp>layout-sedit.\;2 ) (il:rpaqq il:layout-seditcoms ((il:functions user::use-l-s-regions user::stop-using-l-s-regions) ( il:variables *region-alist* user::*l-s-region-zero* user::*l-s-region-delta* user::*l-s-reuse-earlier-regions*) (il:functions region-plus) (il:functions get-region save-region) ( il:declare\: il:donteval@load il:donteval@compile il:docopy (il:p (user::use-l-s-regions))) (il:* il:|;;| "Arrange to use the proper compiler and makefile environment ") (il:prop (il:filetype il:makefile-environment) il:layout-sedit))) user::use-l-s-regions :d4 (il:f 0 il:|\\\\contexts|) 5Po gg gg gg gg (50 il:movd 41 il:movd 32 il:movd 23 il:movd 14 il:sedit.reset 8 il:assert-fail) (47 il:sedit.save.window.region 44 save-region 38 il:sedit.get.window.region 35 get-region 29 old-save-region 26 il:sedit.save.window.region 20 old-get-region 17 il:sedit.get.window.region) ( 5 "Close all open SEdit windows") user::stop-using-l-s-regions :d4 (il:f 0 il:|\\\\contexts|) #Po gg gg (32 il:movd 23 il:movd 14 il:sedit.reset 8 il:assert-fail) (29 il:sedit.save.window.region 26 old-save-region 20 il:sedit.get.window.region 17 old-get-region) ( 5 "Close all open SEdit windows") (proclaim (quote (special *region-alist*))) (or (boundp (quote *region-alist*)) (il:setq *region-alist* nil)) (proclaim (quote (special user::*l-s-region-zero*))) (or (boundp (quote user::*l-s-region-zero*)) (il:setq user::*l-s-region-zero* (il:createregion 25 (- ( truncate il:screenheight 2) 19) (truncate il:screenwidth 2) (truncate il:screenheight 2)))) (proclaim (quote (special user::*l-s-region-delta*))) (or (boundp (quote user::*l-s-region-delta*)) (il:setq user::*l-s-region-delta* (il:createregion 11 -44 0 0))) (proclaim (quote (special user::*l-s-reuse-earlier-regions*))) (or (boundp (quote user::*l-s-reuse-earlier-regions*)) (il:setq user::*l-s-reuse-earlier-regions* nil) ) region-plus :d4 (il:l (1 two 0 one)) %@A@A@A@A (34 il:createregion) nil () get-region :d4 (il:l (0 context) il:f 4 *region-alist* il:f 5 user::*l-s-region-zero* il:f 6 user::*l-s-reuse-earlier-regions* il:f 7 user::*l-s-region-delta*) ;V hTgg 1HT U@hcUW Y@TcI@KJH(38 region-plus 13 find) (10 cdr 7 :key) () save-region :d4 (il:l (0 context) il:f 0 *region-alist*) )@Pgg o hgPgg c(36 member-if-not 19 warn 10 find) (33 cdr 30 :key 26 null 7 cdr 4 :key) ( 16 "An SEdit context is trying to give up an unallocated region.") (user::use-l-s-regions) (il:putprops il:layout-sedit il:filetype compile-file) (il:putprops il:layout-sedit il:makefile-environment (:readtable "XCL" :package (xcl:defpackage "LAYOUT-SEDIT" (:nicknames "L-S")))) (il:putprops il:layout-sedit il:copyright ("Pavel Curtis" 1986 1987)) nil