|
1 | 1 | (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) |
2 | 2 |
|
3 | | -(FILECREATED "21-May-2024 18:46:31" {LIB}BROWSER.;2 29502 |
| 3 | +(FILECREATED "24-Sep-2025 13:01:45" {MEDLEY}<library>BROWSER.;2 29583 |
4 | 4 |
|
5 | | - :EDIT-BY "mth" |
| 5 | + :EDIT-BY "PA" |
6 | 6 |
|
7 | | - :CHANGES-TO (FNS BROWSER.LEFTFN) |
| 7 | + :CHANGES-TO (FNS GET.BROWSE.PP.WINDOW) |
8 | 8 |
|
9 | | - :PREVIOUS-DATE "26-Apr-2023 12:41:36" {LIB}BROWSER.;1) |
| 9 | + :PREVIOUS-DATE "21-May-2024 18:46:31" {MEDLEY}<library>BROWSER.;1) |
10 | 10 |
|
11 | 11 |
|
12 | 12 | (PRETTYCOMPRINT BROWSERCOMS) |
|
258 | 258 | (HELP]) |
259 | 259 |
|
260 | 260 | (GET.BROWSE.PP.WINDOW |
261 | | - [LAMBDA NIL (* ; "Edited 7-Feb-2022 14:01 by rmk") |
| 261 | + [LAMBDA NIL (* ; "Edited 24-Sep-2025 13:00 by PA") |
| 262 | + (* ; "Edited 7-Feb-2022 14:01 by rmk") |
262 | 263 | (* ; "Edited 31-Mar-87 11:23 by jop") |
263 | 264 | (* ; |
264 | 265 | "returns the window for pretty printing from the browser.") |
265 | 266 | (COND |
266 | 267 | ((WINDOWP PFWINDOW) |
267 | 268 | PFWINDOW) |
268 | 269 | (T (SETQ PFWINDOW (CREATEW NIL "Browser print out window")) |
269 | | - (WINDOWPROP PFWINDOW 'REPAINTFN 'PPREPAINTFN) |
270 | 270 | (WINDOWPROP PFWINDOW 'REPAINTFN 'PPREPAINTFN) |
271 | 271 | (WINDOWPROP PFWINDOW 'RESHAPEFN 'PPRESHAPEFN) |
272 | 272 | (WINDOWPROP PFWINDOW 'SCROLLFN 'SCROLLBYREPAINTFN) |
|
541 | 541 | (BROWSER T) |
542 | 542 | ) |
543 | 543 | (DECLARE%: DONTCOPY |
544 | | - (FILEMAP (NIL (1653 28138 (MSPATHS.DISPATCH 1663 . 2137) (NUMSPATHS 2139 . 5726) (BROWSER 5728 . 6299) |
545 | | - (BROWSER.WHENFNSCHANGED 6301 . 8086) (BRPATHS1 8088 . 10739) (BROWSER.LEFTFN 10741 . 14300) ( |
546 | | -GET.BROWSE.PP.WINDOW 14302 . 15127) (GET.BROWSE.DESCRIBE.WINDOW 15129 . 15877) (BROWSEPP 15879 . 16753 |
547 | | -) (PPREPAINTFN 16755 . 19881) (PPRESHAPEFN 19883 . 20059) (DESCRIBEREPAINTFN 20061 . 20765) ( |
548 | | -BROWSERDESCRIBE 20767 . 21509) (BROWSER.MIDDLEFN 21511 . 22826) (DEDITPROCESSRUNNINGP 22828 . 23083) ( |
549 | | -REDRAWBROWSEGRAPH 23085 . 23849) (STBROWSER 23851 . 28136))))) |
| 544 | + (FILEMAP (NIL (1682 28219 (MSPATHS.DISPATCH 1692 . 2166) (NUMSPATHS 2168 . 5755) (BROWSER 5757 . 6328) |
| 545 | + (BROWSER.WHENFNSCHANGED 6330 . 8115) (BRPATHS1 8117 . 10768) (BROWSER.LEFTFN 10770 . 14329) ( |
| 546 | +GET.BROWSE.PP.WINDOW 14331 . 15208) (GET.BROWSE.DESCRIBE.WINDOW 15210 . 15958) (BROWSEPP 15960 . 16834 |
| 547 | +) (PPREPAINTFN 16836 . 19962) (PPRESHAPEFN 19964 . 20140) (DESCRIBEREPAINTFN 20142 . 20846) ( |
| 548 | +BROWSERDESCRIBE 20848 . 21590) (BROWSER.MIDDLEFN 21592 . 22907) (DEDITPROCESSRUNNINGP 22909 . 23164) ( |
| 549 | +REDRAWBROWSEGRAPH 23166 . 23930) (STBROWSER 23932 . 28217))))) |
550 | 550 | STOP |
0 commit comments