github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-12 00:42:56 +00:00
Code Issues Projects Releases Wiki Activity
Interlisp.medley/lispusers/GRID-ICONS.TEDIT
Larry Masinter 6424116dc9 massive reorganization
2020-11-15 19:22:14 -08:00

20 lines
20 KiB
Plaintext
Raw Permalink Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

en·vÅos GRID-ICONS
2
(5 4 1)
GRID-ICONS
(1 4 5)
By: sML (Lanning.pa@Xerox.com)
Last edited: September 14, 1987
INTRODUCTION
Grid-Icons provides the Lisp user with a set of default window icons that resemble those found in the Viewpoint system. There is an option that the user can set to force these icons to be positioned on a grid, instead of the unrestricted positioning allowed by Lisp.
USING GRID-ICONS
All that is required is loading the file GRID-ICONS. When the file is loaded, it redefines a number of standard window icons in the system.
1
LÌc®uUUUuwwUuuUWWUUUWWwuWWUUuuUUUuwwUuuUWWUUUWWw`UÝU]UÕ]UUÕUUU]ÕUÕ]UÕU]UUUUÝU]UÕ]UUÕUUU]ÕUÕ]UÀWUuUWuUuWwwUUuWUUwUWUwwuUWUuUWuUuWwwUUuWUUwU@U]UUUÕÕÕUUÝÕUUÕUU]]]UU]ÝUU]UUUÕÕÕUUÝÕUUÕUU]]@WWWuuuUuUUWUUuuwWWUWUUUuUWWWuuuUuUUWUUuuwWWU@Õ]UÕUÕU]ÝUÝÕ]UÕ]U]UUÝÕ]ÝUÕ]UÕUÕU]ÝUÝÕ]UÕ]U]U@uUUUUWuuuUuWwUUUUUwWWUWUwuUUUUWuuuUuWwUUUUUw@]ÕUÕÝÕÕUÕU]ÝUÝU]]Ý]U]UUÝÕ]ÕUÕÝÕÕUÕU]ÝUÝU]]Ý]@uÿÿÿÿÿÿWWWWWÿÿÿÿÿ÷UuuuuuuUWwwWuWWWÿÿÿÿÿÿwuw@ÕÿÿÿÿÿÿUÕUUÕÿÿÿÿÿÿÝÕ]UU]]ÕÕU]U]ÝUÕWÿÿÿÿÿýÕUÝÀW€×uWuu`õUwUwWUWUWuUWUWuVUUu@Õ€Õ]UÕ]`µÝUÕ]UÕÕUÕUUÕ]Õ]V U]UÀw„uWUuuaŸwUuWWWwwwWWUwuWV õuW`Õˆ5]ÕÕÕâ<00>UUÝ]]]ÕUÕUUUUU]ÖÕUU@UˆUWUUb‡uuUuUWUUWUUuwWUV?ŸÿuWW`]<5D>
U]ÝÕdƒÝÕUÝÝU]U]UUÕ]ÝU^?Ÿÿ5]UÀU<>WWuud<00>ÕUuwWUUUuuUWUUWVUu@U<>ÕUUÕä€ÕÝUU]]UUUUU]Ý]ÕV
UÝÀw<>×UuWd€uuuWÿÿ÷WWUwuuWWVwW@Ý<>ÝU]Uä€5]ÕWÿÿý]U]]U]UÝVÕUÀwˆ’ÿ÷Wwub$€ÿÿwu~?UuUUUuwwVÿÕW@UˆuÝ]UbU]ÜUUUÕÕÕUUÞÝ]@u„uwwWaUW|ÿÿÿÿÿýUUvÕu@U€uÝUU`Õ]Üÿÿÿÿÿý]UÞþ÷ÿï½ÁÕUÀu€wUuu`Wu\UwVõu@]€uU]U`]U_ÿÿÿÿÿÿÿÿÿUÕVÕ]@U€wuUU`Uw\UWv=÷ÿ¿ûÿÁÕu`U€}Ý]U`]ÝÜÚgçÕÝÞÝ]@w€uWUW`UU|¾úø'uUV×U@U€uÕÕÝ`U]\'ÕUÖ7ÿßþÿÁÝU@W€uUwu`UU\öš'uUVÕU`U€uÕU]`U]\;rø'UUÖÝÕ@W€uUWU`uU\'WUV?þÕW@ÕƒÇÈ_<G€uUUU`UU\<5C>j'ÕUVÝÝ@U„$ P"H@wWuu`uu|ÖÚø'WWV×U`Ý„Š^<H}UUÕ`]Õ\çÕÝVÕÕ@U„ä P"HuwWW`UW|UUvõW@U„dÐ"H@uUUUàxy|…ÝU\ÝÕVïÿ¿ïÿÁÝÕ@uƒ§È_"G€uwUu`D…@ÅUW|uUvÕU@U€uUÕ]àD<C3A0>x¤ ÕU\]UVÝU@U€wwUW`x<>@” Uw|uWv?þ÷ÿöÿÁÕU@Õ€uÝUU`@…@Œ@Õ]Ü]UÞÕU@U€<55>§Ç<C2A7>@wUuu`@yð|„@Uu\UWVõU@U€˜¡P˜Àu]]UàÝUÜ]Õ^=ÿý÷ÿÁÝÝ@U€”¡˜ÀwWUU`Wu|uwVÕu@Õ€’¡•@u]ÕÕàUUÜUU^ÕU@u€‘¡P•@wuwu`xñpUw\uWv?þÿß÷ÁÕw`Õ€<C395>¡<07>@uÝUÝà… Œˆ]]ÜUÕÞÕU@U€wUUU`<00> Œ`Uu\uWVõu@U€u]UÝ`<00> TUUÜÕU^?ïÿ¿üÕ]Àu€uuUu`… TˆUW\AçÉàUUv×u@]€u]Õ]`xñ$pUUÜ¢ UU^ÝÕ@U€"uuuU`uW\¢£ÀWUvÕw@U€}]]]àUÕÜ¢U]^ljàÝUÀw€wuuW`Uw\òBuWv$IÕU@Õ€"uÕÕU`Õ]\ áCà]UÖ‰ÕU@W€wWuw`Wu|uwVäI×U@U€uUÝÕà]U\ÕÕVdIÝU@u€wUWU`Uu\uWV¤IàÕU@U€}UU]à]Õ\UÝVÕÕ@u€uWuU`UU|UUVõU`U€}UÕ]`UÕ\Õ]VÝUÀU€uUUU`UU\UUV#LjNõu`Õ€u]ÕUà]UÜUÕ^$(LQÕ]Àu€wuUU`Ww\Uwv$JLÕw`Ý€}UÕU`]Õ\UÝV$IBÝU@W€wwuU`uw|WWv$(HÑõu`Õ€uUÕU`ÝU\]ÕV#LjN Ý]@U€uUuW`uU\WUV õu`Ý€uUUUàUU\UUVÝU@U€wWwu`Uu|uWVÕU@Ý€u]]Õà<00>]UßÿÿÿÿÿÿÿÿÿUÕ^Ÿ<O€ÝU@U€uUwW`<00>UU_ÿÿÿÿÿÿÿÿÿUUV"BÕU@Ý€uUU]`<00>]UUUÕÝU]]]UÕÕÕV"BÕ]@U€uUUu`<00>WUUWUUuuUuUuUuV"BÕW@U€}UUÕ`<00>ÝÕU]UU]ÕUÕ]Õ]ÝV"BÕÝ@w€DuUUU`‘UUUUUwUUuUuWUUV<B×U`Õ€u]]Ý`UUÕÝÕÕÕ]ÝU]UUU^ÕÕ@U€wUuu`uuWWUUUUuuUwWWVÕW`Õ€uÕ]Õ`U]UÝUÕUUUUU]ÕUÖÕUÀw€uUwU`uUWuWwuUWWUWWUVõU`UÿÿÿÿÿÿÿýÕÕUÿÿÿÿÿÿý]Ý]UUU]]U]]UUÝ×ÿÿÿÿÿÿÿÕÕ@Wÿÿÿÿÿÿÿ÷UUUÿÿÿÿÿÿýUuUUUWWuuWWwUWWÿÿÿÿÿÿÿõw`UUUUÕ]U]ÕUÝÝUUUU]UÕUÝU]ÝÕUUUUÕ]U]ÕUÝÝUUUU]UÕ@WuUWWWuuUWuUUwUUuuwWUUwUUWuUWWWuuUWuUUwUUuuw@ÕUÕÕUUÕÕÕ]UÝ]U]]UU]]]UÕ]ÕÕUÕÕUUÕÕÕ]UÝ]U]]UU]@UUwUUUUuUUUuUUWuUUUWUUUWUUUwUUUUuUUUuUUWuUUU@UÕÝÕUÕÝ]ÕÝ]]U]]ÝU]]ÕÝ]ÕÕÕUÕÝÕUÕÝ]ÕÝ]]U]]ÝU]]ÀuWUWWUUwuuUUwUuUuuUWwWUUWuWUWWUUwuuUUwUuUuuU@UUÝÕ]ÝUU]UU]ÕU]ÝUÝÕUUÕUUÝUUÝÕ]ÝUU]UU]ÕU]ÝUÝÕ@uWUWWUWUuwWWwUuUuuUuWWuuwuWUWWUWUuwWWwUuUuuU`UU]Õ]ÕUUU]]UÕUUÝUÝUUUUÕÕ]UU]Õ]ÕUUU]]UÕUUÝUÝU@uuWuUWuWuWUWwWUwUUwUwUuUwuuWuUWuWuWUWwWUwUUw@Ý]U]]ÝUU]UÕÝ]ÕÕUÕÝÕUUÕ]]ÕÝ]U]]ÝUU]UÕÝ]ÕÕUÕÝÕ@WwuUWwuUwUuUuwwUUwwUWuWUWWwuUWwuUwUuUuwwUUww@]ÕUUU]UUUUUÝUÝUUUUÕUUUU]Õ]ÕUUU]UUUUUÝUÝUUUUÕ@UUWUWuuwUUWuUUUuUwWWuUUwUUUWUWuuwUUWuUUUuUwW@ÕUÝUÕÕUÝUUÕÕ]U]Õ]]U]ÕU]]UÕUÝUÕÕUÝUUÕÕ]U]Õ]]U@UwUUwWWWUUUwUWuUWuuuuUUWuUwUUwWWWUUUwUWuUWuu`ÕUU]Õ]ÕÝUU]]]UUUÝUÝ]ÕUUÕÕÕUU]Õ]ÕÝUU]]]UUUÝUÝ@uUUUuwwUuuUWWUUUWWwuWWUUuuUUUuwwUuuUWWUUUWWw`UÝU]UÕ]UUÕWÿÿÿÿÿÿÿÿÿÿÝÿÿÿÿÿÿÿÿÿÿõÿÿÿÿÿÿÿÿÿýÀWUuUWuUuWwwÿÿÿÿÿÿÿÿÿÿ÷ÿÿÿÿÿÿÿÿÿÿõÿÿÿÿÿÿÿÿÿý@U]UUUÕÕÕUUßÕÀup@WÿÿÿÿÿÿÿÕUWÕÀup@ßÿÿÿÿÿÿÿýUß?ÿÿÿÿÿÿÿÿùÕÏÿÿÿÿÿÿÿÿþ}óÿÿÿÿÿÿÿÿÿ<C3BF>@ÿÿÿÿÿÿÿõUw ÕÈurŸ@^õU_ ÕÈuò<00>@|wWW õÈwrŸ@Ü!ò#€uUW ÕÈuò<00>À\!$@uWw ÿÿð ÕÈÿÿüwrÿÿÿ<00>@Ü A$@}U×  ÕÈur<00>À| Aâ£wUw  õÈurŸ`Ü A €}Õ× ÿþ ÝÈ?ÿ„urÿá<00>@\ Ad@uWW  ÕÈwrŸ`\ Ad@u]ß ÿÿ<C3BF> ÕÈÿÿä}r?ÿù<00>À\!#‚wWw  õÈur<00>@\ uUW  ÕÈ}ò<00>À|wUw ÿÿð õÈÿÿüwrÿÿÿŸ@Ü}U_ ÕÈuò<00>À|wWw õÈwrŸ@\ÿÿÿøuÝ_ ÿÿà ÝÈÿÿøurÿÿþ<00>@|ÿÿÿøuww ÿÿà ×Èÿÿøurÿÿþ<00>@\ uÝW  ÝÈ}r€<00>À| wUw @ õÈur@<00>@\ÿÿÿøuU_ ÿÿ€ ÕÈÿÿàuò?ÿø<00>@\8wuW ÷Èur<00>`\p}Ý_ ÝÈuò<00>@|€àuWW À ÕÈ`ur<00>@\ÀÀuÕ× "‚‚$ ÝÈ<00><>Áur<00>@\à€uUw "D‚&1 ÕȈ’"ˆ<> ur<00>`\puÕW >(‚&1 ÝÈ<00>"<22> ur<00>@\8uUW "‚%PÀ ÕȃÄH<C384>wr €Ÿ@ÜuUW "‚%Q ÕȈ‚È<>€ur <00>@\8wWw "ùÄ‘ õÈ<00>Ž’(<28> wr Îqœ`<00>`Üp}UW  ÕÈ€ uò )H’<48><00>@\€àuwW À ×È`ur éH’<48>Ÿ@\ÁÀuUW ÕÈ}ò!)H’<48><00>@|ã€uwW PG"8ùáÄ ×ÈBur<ÙH’p<00>@\cuU× <20>H‘"D<>" ÕÈ$b˜‰}r<00><00>@\cwwW!F"0ñá<C3B1> ÷È“¤Qur`<00>@ÜcuÝW"A"<08>@‰ÝÈò$ À}r<00>@\cwUw!H<>"D<>! õÈ$‚$Qur@€<00>@\cu]_ ŸG8ù ÕÈBr‰}ò@<00>@\cwWW @ õÈurAŽà<00>@Üu]× ÕÈur@<40><><00>@|>wuw ÷Èur@Œ<>Ÿ`ÜuÝW €@ ÝÈuò@‚<><00>@\wUW Ì õÈ Y,qurxœà<00>@\u]W $’ ÕÈši4<69>€ur€<00>À|uuW $’ ×È!’I$<24>@ur€<00>@\u]× $’ ÕÈ’I$<24>€ur<00>@\uuw ˜Ì ×È ÷RI$qwr Ÿ@\@}]_ @ ÕÈ’ur <00>À|wuw ÷È`ur'3Ž<00>@ÜîHÀuÕ×  ÝÈ}r(JP<00>@\ I$wWw @@ õÈ<<‚ur&r <00>@\ÉIãuUß!ÉNSXÅ
¥IÕÈ"B<>
¥@uò!B<00>@|)I€wUW"IÒt’i'#‰õÈ"@€Ž#€urÎ2<00>@\éÎHç}UW"IC’Iä
…IÕÈ<@€U
…@uò<00>@|uWw"ID’I ÕÈ B€„ur<00>`\}U×!ÉG\Hä@0 ÕÈ <ù@0ur<00>À\uUW @ ÕÈ@ur<00>`Üu]×  ÕÈ uò<00>À~÷uW ÷ÈurŸ`ßÿÿÿÿÿÿÿýU× ÕÈuò<00>@_ÿÿÿÿÿÿÿ÷ww?ÿÿÿÿÿÿÿÿù÷Ïÿÿÿÿÿÿÿÿþwsÿÿÿÿÿÿÿÿÿ<C3BF>`×ÿÿÿÿÿÿÿÕU×ÕÀ}ð@UUuWwWWWUUwÕÀwp`ÝUUÕUÕUUUUWÿÿÿÿÿÿÿÿÿÿÕÿÿÿÿÿÿÿÿÿÿõÿÿÿÿÿÿÿÿÿý@UUuUUUUuWWwÿÿÿÿÿÿÿÿÿÿõÿÿÿÿÿÿÿÿÿÿõÿÿÿÿÿÿÿÿÿý@ÝUUUUÕUUÕ]]ÕÝÕUUU]UU]UÕÝ]ÝUUUUÕUUÕ]]ÕÝÕUUU]U@UwWUuUUUUUwWUWuuWUUUUUWuuUwWUuUUUUUwWUWuuWUU@ÝU]]]UÕÕÕUU]]ÕUÕÕÕ]]]UUUÕÝU]]]UÕÕÕUU]]ÕUÕÕÕ]@
1
REDEFINED ICONS
LÌ@K?ÿÿÿÿÿÀ?ÿÿÿÿÿà0p0X0L0F0ùüÿøC0ùüÿøA€0@À0@`0@00@0ü0 0 0?÷¿ÿ}î 0 0 1ï¿ýÿßþ 0 0 1¿ûþÿ÷þ 0 0 1ûÿð 0 0 0 0 0?ýÿþ 0 0 1ÿ÷¿ÿ·þ 0 0 1ïÿï¿ûþ 0 0 1ûÿ÷þÿ¾ 0 0 1ÿýÿà 0 0 0 0<O 0!"H€ 0 <H€ 0'"H˜ 0#"H€ 0"O 0 0 0 0<Bp 0!Bbˆ 0 BR` 0 BJ 0!BFˆ 0<Bq 0 0 0 0|ùâ| 0<10> 0ñ 0<10> 0<10> 0ùâ 0 0 0 0 ?ÿÿÿÿÿÿü?ÿÿÿÿÿÿü [TEdit icon]
LÌ@K?ÿÿÿÿÿÀ?ÿÿÿÿÿà0p0X0L0ÿÿþF0@C0@A€0C@À0@ƒŒ¢@`0C‚RB@00D‚RB@0CƒŒ¢ü0@ 0ÿÿþ 0 0 0 0 0 0 0 0 0 0 0 0 0x 0† 0€ 0<01>@ 0p<> 0P 0à 0  0@ 0@ 0@ 0@ 0  0  0 0 0@ 0€ 0† 0x 0 0 0 0Ç‚" 0$E" 0…> 0äHž" 0dO<64>" 0¤PP"@ 0@ 0 0 0>|y 0’ … 0<<10>ð 0 <10> 0‘ … 0¾y 0 0 0 0 0 0 0 0 ?ÿÿÿÿÿÿü?ÿÿÿÿÿÿü [Sketch icon]
Note that GRID-ICONS not only redefines TEdit and Sketch icons, it also changes the way that the icon title is computed: the host and directory information is removed, so that only the name and extension remain.
LÌ@K?ÿÿÿÿÿÀ?ÿÿÿÿÿà0p0X0€L1F1C2A€2@À2@`2@02@1@ü1 0€ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0‚| 0E"@ 0Ex 0ˆ‘@À 0‘"@ 0Q| 0 0 0 0ÇÀ 0! 0<11> 0A 0! 0ÑÁ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0Œ0Œ0L0L0L0L0L0HŒ0Œ0 0 0 ?ÿÿÿÿÿÿü?ÿÿÿÿÿÿü [SEdit icon]
LÌ@K?ÿÿÿÿÿÀ?ÿÿÿÿÿà0p0X0L0F0C0A€3ÿ€?ÀÀ3ÿ€?À`3ÿÀ?À03ÿ À3ÿ<33>¿ÿü0?þ 0ÿò 0ÿô 0ÿø 0ÿô 0ÿò 3ÿÈ?þ 3ÿпþ 3ÿàþ 3ÿÐ?þ 3ÿÈ?þ 0ÿü 0ÿü 0ÿü 0ÿü 0ÿü 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0q<HŽ 0‰"H‘ 0a<HŒ 0"H‚ 0‰"H‘ 0q"G 0 0 0 0 ?ÿÿÿÿÿÿü?ÿÿÿÿÿÿü [Loops Browser icon]
LÌ@K?ÿÿÿÿÿÀ?ÿÿÿÿÿà0p0X0L0F0C0A€0@À0@`0@00@0ü0 0 0 0 0 0 00Å€ 0I&€ 0A$€ 0I$€ 00Ä€ 0 0 0 0 0Æ` 0I$<24> 0G$ð 0I$€ 0Nœp 0 0 0 0 € 0"à1ŒH" 0 1’H 0#*Ž+" 0 *’0" 0> $<24> 0 0` 0 0à 0@ 0€ 0 0 0 0 0 0 0>p 0 ‘q ˆ 0†<p 0$ˆ 0>"ˆ 0Žp 0€ 0 0 0 0 0 0 0 0 0 0 0 0 ?ÿÿÿÿÿÿü?ÿÿÿÿÿÿü [Default icon]
In Lyric, it is possible to redefine the standard icon used by the system. GRID-ICONS uses this, and redefines the standard system icon in LYRIC.
LÌO7ÿÿ€ÿÿÀ8à0`0ÿÿÿÿÿð0ÿÿÿÿÿð08?ÿÿÿÿÿÿÿÿø03iœ?˜2ûèà˜0 ˜3Úh ˜0íÈà˜0 ˜2u¨ ˜3[hà˜0?˜000000000000000Ÿ$O€0ˆD$H0ˆ"<22>0H"ˆ0ÈD!0'„!€000000000000000?ÿÿÿÿÿÿÿÿø?ÿÿÿÿÿÿÿÿø [Lafite mail folder icon]
NEW ICONS
GRID-ICONS defines a handy icon for accessing the list of files that have been loaded into you system.
LÌE@ÿÿÿÿÿÿÿ€ÿÿÿÿÿÿÿÀ?ÿÿÿÿÿÿÿà<à8 à8 CäGà8 BH€à8@‚H€à8@ƒÅFà8@‚Aà8@‚È€à8@‚È€à8 BGà8 @à8 à8à8à8ÿÿÿðà8ÿÿÿðà80à80à8ÿÿÿðà8pà8àà8Àà8€€à8Àà8àà8pà888à8pà8àà8Àà8ƒ€à8Çà8Æà8Æà8Æà8Æà8Æà8Æà8þà8|à8à8à8à8à8à8à8€à8à8Ü‘‡à8’Hà8’“Æà8R’à8Óœ‘Îà8à8à8à8à<à?ÿÿÿÿÿÿÿàÿÿÿÿÿÿÿÀÿÿÿÿÿÿÿ€ [Lisp files icon]
Buttoning on this icon will pop up a menu of all loaded files (as determined by the value of the variable FILELST). Selecting a file from this menu will open up an editor on the COMS of that file. There is an additional item on the menu, "* New file *", that can be used create a new file, and then edit its COMS. This icon window is stored in the variable LOADED-FILES-ICON-WINDOW.
USER FUNCTIONS
The user can declare that any given window stick to grid positions.
(GRID-WINDOW window) [Function]
Causes window to pay attention to ENFORCE.ICON.GRID; if the value of ENFORCE.ICON.GRID is true, the window will make sure that it is centered on a grid location. By default the spy button and icons produced by the ICONW and TITLEICONW functions pay attention to ENFORCE.ICON.GRID.
VARIABLES THAT CONTROL GRID-ICONS
There are a few variables that control how GRID-ICONS works.
ENFORCE.ICON.GRID [Variable]
If ENFORCE.ICON.GRID is true, window icons (and any window declared "gridded" by the GRID-WINDOW function) will be restricted to be positioned on a grid. The default value of ENFORCE.ICON.GRID is NIL.
IGNORE.ICON.GRID [Window property]
The IGNORE.ICON.GRID window property provides a way to control icon gridding on an icon-by-icon basis. If the IGNORE.ICON.GRID window property of an icon is true, the icon will not be restricted to grid positions. This window property is checked only if ENFORCE.ICON.GRID is true.
ENFORCE.ICON.REGIONS [Variable]
You can enforce icon gridding in individual regions of the screen by using the variable ENFORCE.ICON.REGIONS. If the value of ENFORCE.ICON.GRID is true, and the icon does not have a IGNORE.ICON.GRID window property, the proposed new position for the icon is tested against the value of ENFORCE.ICON.REGIONS. If ENFORCE.ICON.REGION is NIL, gridding is enforced as described above. Otherwise, ENFORCE.ICON.REGION should be a list of regions; gridding will be enforced only if the proposed position is within one of these regions. The default value of ENFORCE.ICON.REGIONS is NIL. [Thanks/blame to Ramana Rao for this.]
ICON.SIZE [Variable]
ICON.SIZE specifies the maximum size of the icons, for use in computing the grid positions of icons. It is a cons of the maximum width and the maximum height. The default value is (85 . 85), which is the "correct" value for the icons defined in this utility.
ICON.SPACING [Variable]
ICON.SPACING specifies the gap between icons, for use in computing the grid positions of icons. It is a cons of the horizontal gap and the vertical gap. The default value is (5 . 5).
GRID.OFFSET [Variable]
GRID.OFFSET specifies origin of the icon grid. The default value is (0 . 0).
DEFAULTICONFONT [Variable]
The value of DEFAULTICONFONT is the default font used by the system when printing titles in icons. Since the icons defined in GRID-ICONS tend to be smaller then the original icons, you might want to use a slightly smaller font then the default. Personally, I recommend setting DEFAULTICONFONT to (FONTCREATE '(HELVETICA 8)).(LIST ((PAGE NIL (PAPERSIZE LETTER FOLIOINFO (ARABIC "" "") STARTINGPAGE# 101) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE LETTER FOLIOINFO (ARABIC "" "") STARTINGPAGE# NIL) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE LETTER FOLIOINFO (ARABIC "" "") STARTINGPAGE# NIL) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL)))))3ÈÈT3ÈÈT2ÈÈ5È È5È È,ŠŠ8HÈÈ PAGEHEADING RUNNINGHEADCLASSICCLASSICCLASSIC?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8))
MODERN MODERN
MODERN MODERN

 HRULE.GETFNMODERN
 HRULE.GETFN  HRULE.GETFNMODERN  
 <00> HRULE.GETFNMODERN
P BMOBJ.GETFN3?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8))
 HRULE.GETFNMODERN
d BMOBJ.GETFN3MODERN
d BMOBJ.GETFN3MODERN
Ôd BMOBJ.GETFN3MODERN
d BMOBJ.GETFN3MODERN
d BMOBJ.GETFN3MODERN
“2 BMOBJ.GETFN3MODERN

gΠBMOBJ.GETFN3MODERN
‚D!"=Ê%"n¹NF@‡rzº
Reference in New Issue View Git Blame Copy Permalink