$ od -c -N 50000 [eris]<Lisp>KOTO>LISPUSERS>GLISPDWINDOW.DCOM!1
0000000 ( F I L E C R E A T E D " 1 7
0000020 - J a n - 8 5 0 8 : 4 8 : 2 5
0000040 " ( " c o m p i l e d o n
0000060 " { D A N T E } < L I S P U S
0000100 E R S > G L I S P > D W I N D O
0000120 W . D O L ; 1 ) \r " 2 0 - D e
0000140 c - 8 4 1 2 : 0 7 : 2 2 " t
0000160 c o m p l ' d i n " I N T E
0000200 R L I S P - D 2 0 - D e c - 8
0000220 4 . . . " d a t e d " 2 0
0000240 - D e c - 8 4 1 2 : 1 6 : 5 7
0000260 " ) \r ( F I L E C R E A T E D
0000300 " 2 - M A Y - 8 3 1 1 : 0 1
0000320 : 5 5 " { D S K } D W I N D O
0000340 W . L S P ; 1 4 0 9 0 c h a
0000360 n g e s t o : ( V A R S D
0000400 W I N D O W C O M S ) ) \r M O U
0000420 S E - P O S I T I O N I N D 1
0000440 \r ( I 1 W I 0 M ) \0
0000460 020 \0 \0 \0 002 \b \0 \0 A \t \0 \0 A \t \0 \0
0000500 h 032 032 020 \0 ( 1 2 Q L A S T M O
0000520 U S E Y 6 L A S T M O U S E
0000540 X 2 G E T M O U S E S T A T
0000560 E ) \r N I L \r ( ) \r M O U S E -
0000600 T E S T B U T T O N D 1 \r ( I
0000620 1 B U T T O N I 0 M )
0000640 \0 016 \0 \0 \0 002 \b \0 \0 ` \0 \0 A 345 j
0000660 360 h 360 020 \0 ( 2 G E T M O U S E
0000700 S T A T E ) \r ( 5 L A S T M O
0000720 U S E B U T T O N S ) \r ( ) \r W
0000740 I N D O W - C E N T E R O F F S
0000760 E T D 1 \r ( I 1 V I 0
0001000 W ) \0 # 001 \0 \0 002 h @ \n \0 \0 021
0001020 001 \0 H 002 002 001 A 001 331 l 002 333 H 002 002 002
0001040 001 A 002 001 331 l 002 333 h 032 032 020 \0 ( 4
0001060 D S P C L I P P I N G R E G I O
0001100 N ) \r N I L \r ( ) \r W I N D O W
0001120 - D R A W L I N E D 1 \r ( I
0001140 2 T O I 1 F R O M I
0001160 0 W ) \0 025 \0 \0 \0 003 A 001 A 002 001
0001200 B 001 B 002 001 k g \0 \0 @ \r \a \0 \0 020 \0
0001220 ( 2 2 Q D R A W L I N E ) \r (
0001240 1 5 Q P A I N T ) \r ( ) \r W I
0001260 N D O W - I N V E R T A R E A
0001300 D 1 \r ( I 1 A R E A I 0
0001320 W ) \0 % \0 \0 \0 002 @ A 001 001 A 001
0001340 002 001 @ A 001 001 A 001 002 001 A 002 001 001 A 002
0001360 001 002 001 g \0 \0 g \0 \0 \r \n \0 \0 020 \0 (
0001400 4 2 Q B I T B L T ) \r ( 3 6 Q
0001420 R E P L A C E 3 3 Q I N V
0001440 E R T ) \r ( ) \r W I N D O W - M
0001460 O V E T O D 1 \r ( I 1 P O
0001500 S I 0 W ) \0 \v \0 \0 \0 002 A
0001520 001 A 002 001 @ \v \0 \0 020 \0 ( 1 0 Q M
0001540 O V E T O ) \r N I L \r ( ) \r W I
0001560 N D O W - P R E T T Y P R I N T
0001600 A T A 0 0 0 1 D 1 \r ( N A M E
0001620 E R R O R S E T F 0 R E
0001640 S E T V A R S L S T F 1 V
0001660 A L U E F 2 W F 3 R
0001700 E S E T Y ) \0 037 \0 004 002 \0 g \0 \0
0001720 d \t \0 \0 032 g \0 \0 i \n \0 \0 277 P 032 c
0001740 \0 277 Q R \n \0 \0 c 006 i 020 \0 ( 3 1 Q
0001760 S H O W P R I N T 1 6 Q S
0002000 E T T O P V A L 6 G E T T O
0002020 P V A L ) \r ( 1 2 Q S Y S P R
0002040 E T T Y F L G 2 S Y S P R E
0002060 T T Y F L G ) \r ( ) \r W I N D O
0002100 W - P R E T T Y P R I N T A T
0002120 D 1 \r ( P 2 R E S E T Z P
0002140 1 R E S E T Y P 0 L I
0002160 S P X H I S T I 2 P O S I
0002200 T I O N I 1 V A L U E I
0002220 0 W F 3 L I S P X H I
0002240 S T F 4 R E S E T V A R S
0002260 L S T ) \0 + 003 002 \0 003 B 001 B 002 001
0002300 @ \v \0 \0 S 021 ! 002 T o \0 \0 \0 g \0 \0
0002320 \n \0 \0 221 h 202 g \0 \0 Z \n \0 \0 J 223 \b
0002340 \0 \0 020 I 020 \0 ( 4 6 Q E R R O R
0002360 ! 4 1 Q R E S E T R E S T O
0002400 R E 2 7 Q W I N D O W - P R
0002420 E T T Y P R I N T A T A 0 0 0 1
0002440 1 0 Q M O V E T O ) \r ( 3 5
0002460 Q E R R O R 2 4 Q I N T E
0002500 R N A L ) \r ( 2 1 Q ( W I N
0002520 D O W - P R E T T Y P R I N T A
0002540 T A 0 0 0 1 ) ) \r W I N D O W -
0002560 P R I N T A T D 1 \r ( P 0
0002600 L A S T W O P I 2 P O S
0002620 I 1 S I 0 W ) \0 ! 001
0002640 \0 \0 003 021 020 \0 B 001 B 002 001 @ \v \0 \0 g
0002660 \0 \0 @ \n \0 \0 X A @ \n \0 \0 H @ \n \0
0002700 \0 h 020 \0 ( 3 5 Q D S P O P E R
0002720 A T I O N 3 0 Q P R I N 1
0002740 2 2 Q D S P O P E R A T I O N
0002760 1 3 Q M O V E T O ) \r ( 1 6
0003000 Q P A I N T ) \r ( ) \r W I N D
0003020 O W - U N D R A W L I N E D 1
0003040 \r ( I 2 T O I 1 F R O
0003060 M I 0 W ) \0 025 \0 \0 \0 003 A
0003100 001 A 002 001 B 001 B 002 001 k g \0 \0 @ \r \a
0003120 \0 \0 020 \0 ( 2 2 Q D R A W L I N
0003140 E ) \r ( 1 5 Q E R A S E ) \r (
0003160 ) \r W I N D O W - U N P R I N T
0003200 A T D 1 \r ( P 0 L A S T W
0003220 O P I 2 P O S I 1 S
0003240 I 0 W ) \0 ! 001 \0 \0 003 021 020
0003260 \0 B 001 B 002 001 @ \v \0 \0 g \0 \0 @ \n \0
0003300 \0 X A @ \n \0 \0 H @ \n \0 \0 h 020 \0 (
0003320 3 5 Q D S P O P E R A T I O N
0003340 3 0 Q P R I N 1 2 2 Q D
0003360 S P O P E R A T I O N 1 3 Q
0003400 M O V E T O ) \r ( 1 6 Q E R A
0003420 S E ) \r ( ) \r ( P R E T T Y C O
0003440 M P R I N T D W I N D O W C O
0003460 M S ) \r ( R P A Q Q D W I N D
0003500 O W C O M S ( ( G L I S P O B
0003520 J E C T S D O L P H I N R E G
0003540 I O N M E N U M O U S E W
0003560 I N D O W ) ( G L I S P G L O
0003600 B A L S M O U S E ) ( \r G L
0003620 I S P C O N S T A N T S W I N
0003640 D O W C H A R W I D T H W I N
0003660 D O W L I N E Y S P A C I N G )
0003700 ( P ( S E T Q M O U S E
0003720 ( Q U O T E M O U S E ) ) )
0003740 ( F N S \r M O U S E - P O S I
0003760 T I O N I N M O U S E - T E S
0004000 T B U T T O N W I N D O W - C
0004020 E N T E R O F F S E T W I N D
0004040 O W - D R A W L I N E W I N D
0004060 O W - I N V E R T A R E A W I
0004100 N D O W - M O V E T O \r W I N
0004120 D O W - P R E T T Y P R I N T A
0004140 T W I N D O W - P R I N T A T
0004160 W I N D O W - U N D R A W L I
0004200 N E W I N D O W - U N P R I N
0004220 T A T ) ) ) \r ( G L I S P O B J
0004240 E C T S ( D O L P H I N R E G
0004260 I O N ( L I S T ( L E F T
0004300 I N T E G E R ) ( B O T T O M
0004320 I N T E G E R ) ( W I D T H
0004340 I N T E G E R ) ( H E I G H
0004360 T I N T E G E R ) ) \r P R O
0004400 P ( ( S T A R T ( s e l f )
0004420 R E S U L T V E C T O R )
0004440 ( S I Z E ( ( C D D R s e l
0004460 f ) ) R E S U L T V E C T O
0004500 R ) ) S U P E R S ( R E G I
0004520 O N ) ) ( M E N U ( R E C O
0004540 R D \r M E N U ( I T E M S
0004560 ( L I S T O F A T O M ) ) )
0004600 M S G ( ( S E L E C T M E N
0004620 U R E S U L T A T O M ) ) )
0004640 ( M O U S E A N Y T H I N G
0004660 M S G ( ( P O S I T I O N I
0004700 N \r M O U S E - P O S I T I O
0004720 N I N O P E N T ) ( T E S
0004740 T B U T T O N M O U S E - T E
0004760 S T B U T T O N O P E N T )
0005000 ) ) ( W I N D O W A N Y T H
0005020 I N G P R O P ( ( R E G I O
0005040 N ( ( \r D S P C L I P P I N G
0005060 R E G I O N N I L s e l f )
0005100 ) R E S U L T D O L P H I N
0005120 R E G I O N ) ( X P O S I T I
0005140 O N ( ( D S P X P O S I T I O
0005160 N N I L s e l f ) ) R E S
0005200 U L T I N T E G E R \r ) ( Y
0005220 P O S I T I O N ( ( D S P Y P
0005240 O S I T I O N N I L s e l f
0005260 ) ) R E S U L T I N T E G E
0005300 R ) ( H E I G H T ( R E G I
0005320 O N : H E I G H T ) ) ( W I D
0005340 T H ( R E G I O N : W I D T H
0005360 ) ) \r ( L E F T ( ( D S P X
0005400 O F F S E T N I L s e l f )
0005420 ) R E S U L T I N T E G E R
0005440 ) ( R I G H T ( L E F T +
0005460 W I D T H ) ) ( B O T T O M
0005500 ( ( D S P Y O F F S E T N I
0005520 L s e l f ) ) \r R E S U L T
0005540 I N T E G E R ) ( S T A R T
0005560 ( R E G I O N : S T A R T ) )
0005600 ( S I Z E ( R E G I O N : S
0005620 I Z E ) ) ( L E F T M A R G I
0005640 N ( 1 ) ) ( R I G H T M A R
0005660 G I N ( W I D T H - 1 ) )
0005700 \r ) M S G ( ( C L E A R C
0005720 L E A R W ) ( O P E N O P E
0005740 N W ) ( C L O S E C L O S E
0005760 W ) ( I N V E R T A R E A W
0006000 I N D O W - I N V E R T A R E A
0006020 O P E N T ) ( M O V E T O
0006040 \r W I N D O W - M O V E T O
0006060 O P E N T ) ( P R I N T A T
0006100 W I N D O W - P R I N T A T
0006120 O P E N T ) ( P R E T T Y P
0006140 R I N T A T W I N D O W - P R
0006160 E T T Y P R I N T A T O P E N
0006200 T ) ( \r U N P R I N T A T
0006220 W I N D O W - U N P R I N T A T
0006240 O P E N T ) ( D R A W L I
0006260 N E W I N D O W - D R A W L I
0006300 N E O P E N T ) ( U N D R
0006320 A W L I N E W I N D O W - U N
0006340 D R A W L I N E \r O P E N T
0006360 ) ( C E N T E R O F F S E T
0006400 W I N D O W - C E N T E R O F F
0006420 S E T O P E N T ) ) ) ) \r (
0006440 G L I S P G L O B A L S ( M O
0006460 U S E M O U S E ) ) \r ( G L I
0006500 S P C O N S T A N T S ( W I N
0006520 D O W C H A R W I D T H 7 I
0006540 N T E G E R ) ( W I N D O W L
0006560 I N E Y S P A C I N G 1 2 I
0006600 N T E G E R ) ) \r ( S E T Q M
0006620 O U S E ( Q U O T E M O U S
0006640 E ) ) \r N I L \r
0006650