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