$ od -c -N 50000 [Indigo]<Loops>RELEASE>22-Mar-84>LOOPSWINDOW.DCOM!1
0000000 ( F I L E C R E A T E D " 3 1
0000020 - O C T - 8 3 1 1 : 4 9 : 3 7
0000040 " ( " c o m p i l e d o n
0000060 " { I N D I G O } < L O O P S
0000100 > S O U R C E S > L O O P S W I
0000120 N D O W . ; 5 ) \r " 1 2 - O C
0000140 T - 8 3 1 3 : 5 2 : 2 8 " r
0000160 e c o m p i l e d e x p r s :
0000200 n o t h i n g i n L O O P
0000220 S . S Y S O U T d a t e d "
0000240 2 8 - O C T - 8 3 1 9 : 2 6 :
0000260 1 9 " ) \r ( F I L E C R E A T E
0000300 D " 3 1 - O C T - 8 3 1 0 :
0000320 4 8 : 4 5 " { I N D I G O } <
0000340 L O O P S > S O U R C E S > L O
0000360 O P S W I N D O W . ; 5 1 3 1
0000400 6 1 p r e v i o u s d a t e
0000420 : \r " 1 9 - O C T - 8 3 0 0
0000440 : 1 8 : 1 6 " { I N D I G O }
0000460 < L O O P S > S O U R C E S > L
0000500 O O P S W I N D O W . ; 4 ) \r W
0000520 i n d o w . B l i n k D 1 \r (
0000540 I 1 n u m B l i n k s I
0000560 0 s e l f ) \0 V 002 \0 \0 002 A k
0000600 021 002 001 I H 361 221 h 020 l 372 \t \0 \0 277 h
0000620 d d @ g \0 \0 \n \0 \0 h d d d g \0 \0
0000640 g \0 \0 n 377 377 \r \v \0 \0 277 l 372 \t \0 \0
0000660 277 h d d @ g \0 \0 \n \0 \0 h d d d g
0000700 \0 \0 g \0 \0 n 377 377 \r \v \0 \0 277 I k 330
0000720 Y 260 263 \0 ( 1 1 5 Q B I T B L T
0000740 7 4 Q G e t V a l u e 6 1
0000760 Q D I S M I S S 5 3 Q B I
0001000 T B L T 3 2 Q G e t V a l u
0001020 e 1 7 Q D I S M I S S ) \r (
0001040 1 0 6 Q I N V E R T 1 0 3 Q
0001060 T E X T U R E 7 1 Q w i n
0001100 d o w 4 4 Q I N V E R T 4
0001120 1 Q T E X T U R E 2 7 Q w
0001140 i n d o w ) \r N I L \r W i n d o
0001160 w . B u r y D 1 \r ( I 0 s
0001200 e l f ) \0 \f \0 \0 \0 001 @ g \0 \0 \n
0001220 \0 \0 \t \0 \0 020 \0 ( 1 1 Q B U R Y
0001240 W 6 G e t V a l u e ) \r ( 3
0001260 w i n d o w ) \r N I L \r W i n
0001300 d o w . C l e a r D 1 \r ( I
0001320 0 s e l f ) \0 \f \0 \0 \0 001 @ g
0001340 \0 \0 \n \0 \0 \t \0 \0 020 \0 ( 1 1 Q C
0001360 L E A R W 6 G e t V a l u e
0001400 ) \r ( 3 w i n d o w ) \r N I L
0001420 \r W i n d o w . C l o s e D 1
0001440 \r ( I 0 s e l f ) \0 \f \0 \0
0001460 \0 001 @ g \0 \0 \n \0 \0 \t \0 \0 020 \0 ( 1
0001500 1 Q C L O S E W 6 G e t V
0001520 a l u e ) \r ( 3 w i n d o w )
0001540 \r N I L \r W i n d o w . D e s t
0001560 r o y D 1 \r ( P 0 w I
0001600 0 s e l f ) \0 B 003 \0 \0 001 @ g
0001620 \0 \0 \n \0 \0 021 ! 002 H 262 & @ g \0 \0 \n
0001640 \0 \0 X g \0 \0 \n \0 \0 277 H g \0 \0 \n \0
0001660 \0 277 H g \0 \0 \n \0 \0 277 H \t \0 \0 277 @
0001700 Z g \0 \0 \n \0 \0 271 J k I 017 016 h 020 \0
0001720 ( 7 0 Q G e t S u p e r M e t
0001740 h o d 5 7 Q C L O S E W 5
0001760 2 Q P U T W I N D O W P R O P
0002000 4 2 Q P U T W I N D O W P R
0002020 O P 3 2 Q P U T W I N D O W
0002040 P R O P 2 3 Q G e t V a l u
0002060 e 6 G e t I V H e r e ) \r (
0002100 6 5 Q D e s t r o y 4 7 Q
0002120 B u t t o n E v e n t F n 3 7
0002140 Q R i g h t B u t t o n F n
0002160 2 7 Q L o o p s W i n d o w
0002200 2 0 Q w i n d o w 3 w i n
0002220 d o w ) \r N I L \r W i n d o w .
0002240 G e t P r o p D 1 \r ( I 1
0002260 p r o p I 0 s e l f ) \0
0002300 \r \0 \0 \0 002 @ g \0 \0 \n \0 \0 A \n \0 \0
0002320 020 \0 ( 1 2 Q G E T W I N D O W
0002340 P R O P 6 G e t V a l u e )
0002360 \r ( 3 w i n d o w ) \r N I L \r
0002400 W i n d o w . H a s L i s p W i
0002420 n d o w D 1 \r ( I 0 s e l
0002440 f ) \0 017 \0 \0 \0 001 @ g \0 \0 \n \0 \0
0002460 g \0 \0 360 h 360 020 \0 ( 6 G e t I V
0002500 H e r e ) \r ( 1 1 Q ? 3 w
0002520 i n d o w ) \r N I L \r W i n d o
0002540 w . L e f t S e l e c t i o n
0002560 D 1 \r ( I 0 s e l f ) \0 \r
0002600 \0 \0 \0 001 @ d g \0 \0 \n \0 \0 \n \0 \0 020
0002620 \0 ( 1 2 Q D o M e n u M e t h
0002640 o d 7 G e t C l a s s V a l
0002660 u e ) \r ( 4 L e f t B u t t o
0002700 n I t e m s ) \r N I L \r W i n d
0002720 o w . M i d d l e S e l e c t i
0002740 o n D 1 \r ( I 0 s e l f )
0002760 \0 \r \0 \0 \0 001 @ d g \0 \0 \n \0 \0 \n
0003000 \0 \0 020 \0 ( 1 2 Q D o M e n u M
0003020 e t h o d 7 G e t C l a s s
0003040 V a l u e ) \r ( 4 M i d d l e
0003060 B u t t o n I t e m s ) \r N I L
0003100 \r W i n d o w . M o v e D 1 \r
0003120 ( P 1 n e w P o s P 0
0003140 o l d R e g i o n I 2 y
0003160 I 1 x O r P o s I 0 s
0003200 e l f ) \0 H 004 \0 \0 003 @ g \0 \0 \n
0003220 \0 \0 g \0 \0 \n \0 \0 @ g \0 \0 \n \0 \0 A
0003240 B \v \0 \0 021 " 003 @ g \0 \0 I 001 \v \0 \0
0003260 @ g \0 \0 I 002 \v \0 \0 o \0 \0 \0 H \n \0
0003300 \0 255 @ [ g \0 \0 \n \0 \0 272 K k J 017 016
0003320 I 020 \0 ( 7 6 Q F e t c h M e t
0003340 h o d O r H e l p 6 5 Q S U
0003360 B R E G I O N P 5 5 Q P u t
0003400 V a l u e 4 4 Q P u t V a l
0003420 u e 3 0 Q M O V E W 2 3 Q
0003440 G e t V a l u e 1 4 Q G E
0003460 T W I N D O W P R O P 6 G e
0003500 t V a l u e ) \r ( 7 3 Q U p d
0003520 a t e 5 0 Q b o t t o m 3
0003540 7 Q l e f t 2 0 Q w i n d
0003560 o w 1 1 Q R E G I O N 3
0003600 w i n d o w ) \r ( 6 1 Q ( 0
0003620 0 2 0 0 0 Q 1 4 5 0 Q ) ) \r
0003640 W i n d o w . O p e n D 1 \r (
0003660 I 0 s e l f ) \0 * 002 \0 \0 001
0003700 @ g \0 \0 \n \0 \0 \t \0 \0 265 036 @ 021 021 001
0003720 H g \0 \0 \n \0 \0 271 H k I 017 016 023 @ g
0003740 \0 \0 \n \0 \0 \t \0 \0 020 \0 ( 4 7 Q O
0003760 P E N W 4 4 Q G e t V a l u
0004000 e 2 6 Q F e t c h M e t h o
0004020 d O r H e l p 1 1 Q A C T I
0004040 V E W P 6 G e t V a l u e )
0004060 \r ( 4 1 Q w i n d o w 2 3 Q
0004100 U p d a t e 3 w i n d o w
0004120 ) \r N I L \r W i n d o w . P a i
0004140 n t D 1 \r ( I 0 s e l f )
0004160 \0 \f \0 \0 \0 001 @ g \0 \0 \n \0 \0 \t \0
0004200 \0 020 \0 ( 1 1 Q P A I N T W 6
0004220 G e t V a l u e ) \r ( 3 w i
0004240 n d o w ) \r N I L \r W i n d o w
0004260 . R e p a i n t D 1 \r ( I 2
0004300 a l w a y s F l g I 1 r
0004320 e g I 0 s e l f ) \0 023 002
0004340 \0 \0 003 @ 021 021 001 H g \0 \0 \n \0 \0 271 H
0004360 k I 017 016 020 \0 ( 1 2 Q F e t c h
0004400 M e t h o d O r H e l p ) \r ( 7
0004420 U p d a t e ) \r N I L \r W i n
0004440 d o w . R i g h t S e l e c t i
0004460 o n D 1 \r ( I 0 s e l f )
0004500 \0 \r \0 \0 \0 001 @ d g \0 \0 \n \0 \0 \n
0004520 \0 \0 020 \0 ( 1 2 Q D o M e n u M
0004540 e t h o d 7 G e t C l a s s
0004560 V a l u e ) \r ( 4 R i g h t B
0004600 u t t o n I t e m s ) \r N I L \r
0004620 W i n d o w . S e t P r o p D
0004640 1 \r ( I 2 v a l u e I 1
0004660 p r o p I 0 s e l f )
0004700 \0 \b \0 \0 \0 003 @ A B \v \0 \0 020 \0 ( 5
0004720 P U T W I N D O W P R O P ) \r
0004740 N I L \r N I L \r W i n d o w . S
0004760 h a p e D 1 \r ( P 0 d I
0005000 1 n e w R e g i o n I 0
0005020 s e l f ) \0 h 003 \0 \0 002 021 0 002
0005040 @ g \0 \0 \n \0 \0 A \n \0 \0 @ g \0 \0 \n
0005060 \0 \0 g \0 \0 \n \0 \0 X @ g \0 \0 H 001 \v
0005100 \0 \0 @ g \0 \0 H 002 001 \v \0 \0 @ g \0 \0
0005120 @ g \0 \0 \n \0 \0 g \0 \0 \n \0 \0 \v \0 \0
0005140 @ g \0 \0 @ g \0 \0 \n \0 \0 g \0 \0 \n \0
0005160 \0 \v \0 \0 @ Z g \0 \0 \n \0 \0 271 J k I
0005200 017 016 H 020 \0 ( 1 3 6 Q F e t c h
0005220 M e t h o d O r H e l p 1 2 6
0005240 Q P u t V a l u e 1 2 3 Q
0005260 G E T W I N D O W P R O P 1 1
0005300 5 Q G e t V a l u e 1 0 2 Q
0005320 P u t V a l u e 7 7 Q G E
0005340 T W I N D O W P R O P 7 1 Q
0005360 G e t V a l u e 5 6 Q P u t
0005400 V a l u e 4 4 Q P u t V a l
0005420 u e 3 2 Q G E T W I N D O W
0005440 P R O P 2 4 Q G e t V a l u
0005460 e 1 5 Q S H A P E W 1 1 Q
0005500 G e t V a l u e ) \r ( 1 3 3 Q
0005520 U p d a t e 1 2 0 Q H E I
0005540 G H T 1 1 2 Q w i n d o w
0005560 1 0 6 Q h e i g h t 7 4 Q
0005600 W I D T H 6 6 Q w i n d o w
0005620 6 2 Q w i d t h 5 0 Q b
0005640 o t t o m 3 7 Q l e f t 2
0005660 7 Q R E G I O N 2 1 Q w i
0005700 n d o w 6 w i n d o w ) \r N
0005720 I L \r W i n d o w . S h a p e ?
0005740 D 1 \r ( I 0 s e l f ) \0
0005760 017 \0 \0 \0 001 @ g \0 \0 \n \0 \0 g \0 \0 \n
0006000 \0 \0 020 \0 ( 1 4 Q G E T W I N D
0006020 O W P R O P 6 G e t V a l u
0006040 e ) \r ( 1 1 Q R E G I O N 3
0006060 w i n d o w ) \r N I L \r W i n
0006100 d o w . S h r i n k D 1 \r ( I
0006120 3 e x p a n d F n I 2
0006140 i c o n P o s I 1 t o w h
0006160 a t I 0 s e l f ) \0 017 \0
0006200 \0 \0 004 @ g \0 \0 \n \0 \0 A B C \f \0 \0
0006220 020 \0 ( 1 4 Q S H R I N K W 6
0006240 G e t V a l u e ) \r ( 3 w i
0006260 n d o w ) \r N I L \r W i n d o w
0006300 . S n a p D 1 \r ( I 0 s e
0006320 l f ) \0 005 \0 \0 \0 001 \b \0 \0 020 \0 (
0006340 2 S N A P W ) \r N I L \r N I L
0006360 \r W i n d o w . T i t l e S e l
0006400 e c t i o n D 1 \r ( I 0 s
0006420 e l f ) \0 \r \0 \0 \0 001 @ d g \0 \0
0006440 \n \0 \0 \n \0 \0 020 \0 ( 1 2 Q D o M
0006460 e n u M e t h o d 7 G e t C
0006500 l a s s V a l u e ) \r ( 4 T i
0006520 t l e I t e m s ) \r N I L \r W i
0006540 n d o w . U p d a t e D 1 \r (
0006560 P 2 b o r d e r P 1 r
0006600 e g i o n P 0 w i n d o w
0006620 I 0 s e l f ) \0 245 003 \0 \0
0006640 001 @ g \0 \0 \n \0 \0 021 ! 002 H g \0 \0 \n
0006660 \0 \0 Z @ g \0 \0 \n \0 \0 H g \0 \0 \n \0
0006700 \0 \n \0 \0 256 H g \0 \0 @ g \0 \0 \n \0 \0
0006720 \v \0 \0 277 @ g \0 \0 \n \0 \0 262 T @ g \0
0006740 \0 \n \0 \0 262 K @ g \0 \0 \n \0 \0 265 \f @
0006760 g \0 \0 ` \0 \0 \v \0 \0 @ g \0 \0 \n \0 \0
0007000 265 \f @ g \0 \0 ` \0 \0 \v \0 \0 @ g \0 \0
0007020 \n \0 \0 J \n \0 \0 @ g \0 \0 \n \0 \0 @ g
0007040 \0 \0 \n \0 \0 J \v \0 \0 h 032 032 032 032 271 I
0007060 d 262 023 H g \0 \0 \n \0 \0 \n \0 \0 244 H I
0007100 \n \0 \0 h 020 \0 ( 2 4 1 Q S H A P
0007120 E W 2 3 3 Q E Q U A L 2 3
0007140 0 Q G E T W I N D O W P R O P
0007160 2 0 7 Q H E I G H T I F W I
0007200 N D O W 2 0 3 Q G e t V a l
0007220 u e 1 7 4 Q G e t V a l u e
0007240 1 6 5 Q W I D T H I F W I N
0007260 D O W 1 6 1 Q G e t V a l u
0007300 e 1 5 2 Q P u t V a l u e
0007320 1 3 6 Q G e t V a l u e 1 2
0007340 7 Q P u t V a l u e 1 1 3 Q
0007360 G e t V a l u e 1 0 2 Q G
0007400 e t V a l u e 7 1 Q G e t V
0007420 a l u e 6 1 Q P U T W I N D
0007440 O W P R O P 5 6 Q G e t V a
0007460 l u e 4 2 Q E Q U A L 3 7
0007500 Q G E T W I N D O W P R O P
0007520 3 0 Q G e t V a l u e 2 0 Q
0007540 G E T W I N D O W P R O P 6
0007560 G e t V a l u e ) \r ( 2 2 5 Q
0007600 R E G I O N 2 0 0 Q t i t
0007620 l e 1 7 1 Q h e i g h t 1
0007640 5 6 Q w i d t h 1 4 7 Q L
0007660 A S T M O U S E Y 1 4 4 Q b
0007700 o t t o m 1 3 3 Q b o t t o
0007720 m 1 2 4 Q L A S T M O U S E
0007740 X 1 2 1 Q l e f t 1 1 0 Q
0007760 l e f t 7 7 Q h e i g h t
0010000 6 6 Q w i d t h 5 3 Q t
0010020 i t l e 4 7 Q T I T L E 3
0010040 4 Q T I T L E 2 5 Q t i t
0010060 l e 1 5 Q B O R D E R 3
0010100 w i n d o w ) \r N I L \r G e t L
0010120 i s p W i n d o w D 1 \r ( P
0010140 0 W I 5 t y p e I 4
0010160 a c t i v e V a l I 3 p
0010200 r o p N a m e I 2 l o c a
0010220 l S t I 1 v a r N a m e
0010240 I 0 s e l f ) \0 A 001 \0 \0 006
0010260 B \t \0 \0 263 : D o \0 \0 \0 h d i \f \0
0010300 \0 021 001 \0 H g \0 \0 @ \v \0 \0 277 H g \0
0010320 \0 g \0 \0 \v \0 \0 277 H g \0 \0 g \0 \0 \v
0010340 \0 \0 277 H 022 @ A C E \r 006 \0 \0 020 B 020
0010360 \0 ( 7 4 Q P u t L o c a l S t
0010400 a t e 6 1 Q P U T W I N D O
0010420 W P R O P 4 6 Q P U T W I N
0010440 D O W P R O P 3 3 Q P U T W
0010460 I N D O W P R O P 2 0 Q C R
0010500 E A T E W 3 W I N D O W P )
0010520 \r ( 5 6 Q W i n d o w B u t t
0010540 o n E v e n t F n 5 3 Q B U
0010560 T T O N E V E N T F N 4 3 Q
0010600 W i n d o w R i g h t B u t t o
0010620 n F n 4 0 Q R I G H T B U T
0010640 T O N F N 2 7 Q L o o p s W
0010660 i n d o w ) \r ( 1 2 Q ( 7 6 4
0010700 Q 6 2 0 Q 1 1 Q 1 1 Q ) )
0010720 \r W i n d o w B u t t o n E v e
0010740 n t F n D 1 \r ( P 2 i t e
0010760 m N a m e P 1 i P 0
0011000 w I 0 w i n d o w ) \0 p
0011020 \t \0 \0 001 @ g \0 \0 \n \0 \0 021 201 \b H 241
0011040 h 020 @ \t \0 \0 h @ \n \0 \0 @ \t \0 \0 @
0011060 \t \0 \0 \v \0 \0 256 H [ g \0 \0 \n \0 \0 274
0011100 K k L 017 016 020 \b \0 \0 277 ` \0 \0 l 004 345
0011120 j 360 256 H ] g \0 \0 \n \0 \0 276 M k N 017
0011140 016 020 \b \0 \0 277 ` \0 \0 k 345 j 360 263 263 H
0011160 _ 016 g \0 \0 \n \0 \0 _ 020 277 O 016 k O 020
0011200 017 016 020 \0 ( 1 4 3 Q F e t c h M
0011220 e t h o d O r H e l p 1 2 0 Q
0011240 G E T M O U S E S T A T E 1
0011260 0 6 Q F e t c h M e t h o d O
0011300 r H e l p 6 4 Q G E T M O U
0011320 S E S T A T E 5 2 Q F e t c
0011340 h M e t h o d O r H e l p 4 1
0011360 Q I N S I D E P 3 6 Q L A
0011400 S T M O U S E Y 3 2 Q L A S
0011420 T M O U S E X 2 6 Q D S P C
0011440 L I P P I N G R E G I O N 2 1
0011460 Q T O T O P W 6 G E T W I
0011500 N D O W P R O P ) \r ( 1 4 0 Q
0011520 M i d d l e S e l e c t i o n
0011540 1 2 4 Q L A S T M O U S E B U
0011560 T T O N S 1 0 3 Q L e f t S
0011600 e l e c t i o n 7 0 Q L A S
0011620 T M O U S E B U T T O N S 4 7
0011640 Q T i t l e S e l e c t i o n
0011660 3 L o o p s W i n d o w ) \r
0011700 N I L \r W i n d o w R i g h t B
0011720 u t t o n F n D 1 \r ( P 1
0011740 i P 0 w I 0 w i n d
0011760 o w ) \0 " 004 \0 \0 001 @ g \0 \0 \n \0
0012000 \0 021 1 003 H 264 025 @ \t \0 \0 H [ g \0 \0
0012020 \n \0 \0 272 K k J 017 016 h 020 \0 ( 3 0 Q
0012040 F e t c h M e t h o d O r H e
0012060 l p 2 0 Q T O T O P W 6
0012100 G E T W I N D O W P R O P ) \r (
0012120 2 5 Q R i g h t S e l e c t i
0012140 o n 3 L o o p s W i n d o w
0012160 ) \r N I L \r ( P R E T T Y C O M
0012200 P R I N T L O O P S W I N D O
0012220 W C O M S ) \r ( R P A Q Q L O
0012240 O P S W I N D O W C O M S ( (
0012260 C L A S S E S W i n d o w )
0012300 ( M E T H O D S W i n d o w .
0012320 B l i n k W i n d o w . B u r
0012340 y W i n d o w . C l e a r W
0012360 i n d o w . C l o s e \r W i n
0012400 d o w . D e s t r o y W i n d
0012420 o w . G e t P r o p W i n d o
0012440 w . H a s L i s p W i n d o w
0012460 W i n d o w . L e f t S e l e c
0012500 t i o n W i n d o w . M i d d
0012520 l e S e l e c t i o n \r W i n
0012540 d o w . M o v e W i n d o w .
0012560 O p e n W i n d o w . P a i n
0012600 t W i n d o w . R e p a i n t
0012620 W i n d o w . R i g h t S e l
0012640 e c t i o n W i n d o w . S e
0012660 t P r o p W i n d o w . S h a
0012700 p e \r W i n d o w . S h a p e
0012720 ? W i n d o w . S h r i n k
0012740 W i n d o w . S n a p W i n d
0012760 o w . T i t l e S e l e c t i o
0013000 n W i n d o w . U p d a t e )
0013020 ( F N S G e t L i s p W i n
0013040 d o w \r W i n d o w B u t t o
0013060 n E v e n t F n W i n d o w R
0013100 i g h t B u t t o n F n ) ) ) \r
0013120 ( D E F C L A S S E S W i n d
0013140 o w ) \r ( D E F C L A S S W i
0013160 n d o w ( M e t a C l a s s
0013200 C l a s s E d i t e d : ( *
0013220 d g b : " 2 8 - M A R - 8 3
0013240 1 7 : 1 3 " ) d o c ( *
0013260 A L o o p s o b j e c t w
0013300 h i c h \r r e p r e s e n t s
0013320 a w i n d o w ) ) ( S u p
0013340 e r s O b j e c t ) ( C l a
0013360 s s V a r i a b l e s ( T i t
0013400 l e I t e m s N I L d o c
0013420 ( * s p e c i a l i t e m s
0013440 t o b e d o n e \r i f
0013460 i n t i t l e p a r t o f
0013500 w i n d o w ) ) ( L e f t B
0013520 u t t o n I t e m s ( ( U p d
0013540 a t e ( Q U O T E U p d a t
0013560 e ) \r " U p d a t e w i n d
0013600 o w t o a g r e e w i t h
0013620 o b j e c t I V s " ) ) d
0013640 o c ( * I t e m s t o b
0013660 e d o n e i f L e f t b
0013700 u t t o n i s s e l e c t e
0013720 d i n m a i n \r w i n d o
0013740 w ) ) ( M i d d l e B u t t o
0013760 n I t e m s N I L d o c (
0014000 * I t e m s t o b e d o
0014020 n e i f M i d d l e b u t
0014040 t o n i s s e l e c t e d
0014060 i n m a i n w i n d o w ) )
0014100 \r ( R i g h t B u t t o n I t
0014120 e m s ( C l o s e S n a p
0014140 P a i n t C l e a r B u r y
0014160 R e p a i n t M o v e S h
0014200 a p e S h r i n k ) d o c
0014220 ( * I t e m s t o b e d
0014240 o n e i f \r R i g h t b u
0014260 t t o n i s s e l e c t e d
0014300 ) ) ) ( I n s t a n c e V a r
0014320 i a b l e s ( w i n d o w #
0014340 ( N I L G e t L i s p W i n d
0014360 o w N I L ) d o c ( * H
0014400 o l d s r e a l \r w i n d o
0014420 w . E n s u r e d t o b e
0014440 w i n d o w b y G e t L i
0014460 s p W i n d o w ) ) ( t i t l
0014500 e N I L d o c ( * I f
0014520 n o t N I L w i l l b e
0014540 p u t i n t i t l e o f
0014560 \r w i n d o w ) ) ( w i d t h
0014600 N I L d o c ( * i n n e
0014620 r w i d t h o f w i n d o
0014640 w , n o t c o u n t i n g
0014660 b o r d e r ) ) ( h e i g h t
0014700 N I L d o c ( * i n n e
0014720 r \r h e i g h t o f w i n
0014740 d o w , n o t c o u n t i n
0014760 g b o r d e r ) ) ( l e f t
0015000 N I L d o c ( * l e f t
0015020 p o s i t i o n o f w i n
0015040 d o w ) ) ( b o t t o m N I
0015060 L d o c ( * \r b o t t o m
0015100 p o s i t i o n o f w i n
0015120 d o w ) ) ) ) \r ( M E T H W i
0015140 n d o w B l i n k ( n u m B
0015160 l i n k s ) ( * T u r n W
0015200 i n d o w i n v e r t e d ,
0015220 d i s m i s s f o r 2 0 0 ,
0015240 a n d r e t u r n i t t
0015260 o n o r m a l ) ) \r ( M E T H
0015300 W i n d o w B u r y N I L
0015320 ( * C a l l s B U R Y W
0015340 o n w i n d o w ) ) \r ( M E T
0015360 H W i n d o w C l e a r N
0015400 I L ( * C a l l s C L E A
0015420 R W o n w i n d o w ) ) \r (
0015440 M E T H W i n d o w C l o s
0015460 e N I L ( * C l o s e t
0015500 h e w i n d o w ) ) \r ( M E T
0015520 H W i n d o w D e s t r o y
0015540 N I L ( * g e t p r o p
0015560 e r t y f r o m w i n d o w
0015600 ) ) \r ( M E T H W i n d o w
0015620 G e t P r o p ( p r o p ) (
0015640 * g e t p r o p e r t y f
0015660 r o m w i n d o w ) ) \r ( M E
0015700 T H W i n d o w H a s L i s
0015720 p W i n d o w N I L ( * C
0015740 h e c k s i f a L i s p
0015760 w i n d o w h a s e v e r
0016000 b e e n c r e a t e d f o r
0016020 t h i s L o o p s W i n d
0016040 o w ) \r ) \r ( M E T H W i n d
0016060 o w L e f t S e l e c t i o n
0016100 N I L ( * D o L e f t B
0016120 u t t o n I t e m s o n s e
0016140 l e c t i o n ) ) \r ( M E T H
0016160 W i n d o w M i d d l e S e l
0016200 e c t i o n N I L ( * D o
0016220 M i d d l e B u t t o n I t e
0016240 m s o n s e l e c t i o n )
0016260 ) \r ( M E T H W i n d o w M
0016300 o v e ( x O r P o s y ) (
0016320 * O p e n t h e w i n d o
0016340 w ) ) \r ( M E T H W i n d o w
0016360 O p e n N I L ( * O p e
0016400 n t h e w i n d o w ) ) \r (
0016420 M E T H W i n d o w P a i n
0016440 t N I L ( * C a l l s p
0016460 a i n t o n w i n d o w ) )
0016500 \r ( M E T H W i n d o w R e
0016520 p a i n t ( r e g a l w a y
0016540 s F l g ) ( * C a l l s U
0016560 p d a t e o n w i n d o w )
0016600 ) \r ( M E T H W i n d o w R
0016620 i g h t S e l e c t i o n N I
0016640 L ( * D o R i g h t B u t
0016660 t o n I t e m s o n s e l e
0016700 c t i o n . ) ) \r ( M E T H W
0016720 i n d o w S e t P r o p ( p
0016740 r o p v a l u e ) ( * s e
0016760 t v a l u e i n r e a l
0017000 w i n d o w ) ) \r ( M E T H W
0017020 i n d o w S h a p e ( n e w
0017040 R e g i o n ) ( * S h a p e
0017060 s o u t s i d e o f r e g
0017100 i o n t o s p e c i f i e d
0017120 s h a p e . % . ) ) \r ( M E
0017140 T H W i n d o w S h a p e ?
0017160 N I L ( * R e t u r n s
0017200 t h e c u r r e n t r e g i
0017220 o n f o r w i n d o w ) ) \r
0017240 ( M E T H W i n d o w S h r
0017260 i n k ( t o w h a t i c o n
0017300 P o s e x p a n d F n ) ( *
0017320 C a l l s S H R I N K W o
0017340 n w i n d o w ) ) \r ( M E T H
0017360 W i n d o w S n a p N I L
0017400 ( * T a k e s s n a p s h
0017420 o t o f s c r e e n ) ) \r (
0017440 M E T H W i n d o w T i t l
0017460 e S e l e c t i o n N I L (
0017500 * D o T i t l e I t e m s
0017520 i f s e l e c t e d i n t
0017540 i t l e a r e a ) ) \r ( M E T
0017560 H W i n d o w U p d a t e
0017600 N I L ( * m a k e t h e
0017620 I V w i n d o w b e a w
0017640 i n d o w w i t h p r o p e
0017660 r t i e s c o n s i s t e n t
0017700 w i t h i v s ) ) \r ( P U T
0017720 P R O P S L O O P S W I N D O
0017740 W C O P Y R I G H T ( " X e
0017760 r o x C o r p o r a t i o n "
0020000 1 9 8 3 ) ) \r N I L \r
0020014