$ od -c -N 50000 [Indigo]<Loops>RELEASE>1-MAY-84>LOOPSWINDOW.DCOM!2
0000000 ( F I L E C R E A T E D " 5
0000020 - M a y - 8 4 0 5 : 5 0 : 0 8
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 . ; 1 7 ) \r " 9 - A
0000140 p r - 8 4 1 6 : 2 8 : 0 8 "
0000160 r 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
0000220 P S . S Y S O U T d a t e d
0000240 " 1 - M a y - 8 4 1 0 : 2 6
0000260 : 1 1 " ) \r ( F I L E C R E A T
0000300 E D " 5 - M a y - 8 4 0 5
0000320 : 4 9 : 4 6 " { I N D I G O }
0000340 < L O O P S > S O U R C E S > L
0000360 O O P S W I N D O W . ; 1 7 2
0000400 8 6 1 0 c h a n g e s t o :
0000420 ( C L A S S E S \r W i n d o
0000440 w ) p r e v i o u s d a t e
0000460 : " 3 0 - A p r - 8 4 1 4 :
0000500 1 9 : 4 1 " { 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 6 ) \r L
0000560 o o p s I c o n . B r o w s e O
0000600 b j e c t D 1 \r ( P 5 c l
0000620 a s s F o r M e t h o d P 4
0000640 o b j % P 0 n a m e
0000660 I 0 s e l f ) \0 > 006 \0 \0 001
0000700 o \0 \0 \0 \t \0 \0 021 1 003 H 262 ) g \0 \0
0000720 \t \0 \0 Z g \0 \0 \n \0 \0 271 J k I 017 016
0000740 021 021 005 L g \0 \0 \n \0 \0 273 L H l 002 K
0000760 017 016 023 206 o \0 \0 \0 \t \0 \0 h 020 \0 ( 7
0001000 2 Q P R O M P T 5 1 Q F e
0001020 t c h M e t h o d O r H e l p
0001040 3 1 Q F e t c h M e t h o d O
0001060 r H e l p 2 2 Q G e t O b j
0001100 e c t R e c 6 P r o m p t R
0001120 e a d ) \r ( 4 6 Q S h o w 2
0001140 6 Q N e w 1 7 Q C l a s s
0001160 B r o w s e r ) \r ( 6 7 Q "
0001200 N o o b j e c t n a m e g
0001220 i v e n " 3 " P l e a s e
0001240 t e l l m e t h e n a m e
0001260 o f t h e r o o t o b j
0001300 e c t " ) \r L o o p s I c o n .
0001320 F i l e B r o w s e D 1 \r ( P
0001340 0 f i l e N a m e I 0
0001360 s e l f ) \0 034 001 \0 \0 001 o \0 \0 \0
0001400 \t \0 \0 021 001 \0 H 265 \v o \0 \0 \0 \t \0 \0
0001420 h 020 \t \0 \0 260 373 \0 ( 3 0 Q F i l
0001440 e B r o w s e 2 3 Q P R O M
0001460 P T 6 P r o m p t R e a d )
0001500 \r N I L \r ( 2 0 Q " N o f
0001520 i l e g i v e n " 3 " P l
0001540 e a s e t e l l m e t h e
0001560 n a m e o f t h e f i l
0001600 e t o b r o w s e " ) \r L o
0001620 o p s I c o n . F u l l P r e s
0001640 s P r i n t e r D 1 \r ( I 0
0001660 s e l f F 0 F U L L P R
0001700 E S S P R I N T E R ) \0 036 \0 001
0001720 \0 001 g \0 \0 \t \0 \0 222 P 265 024 o \0 \0 \0
0001740 \t \0 \0 c \0 265 \t o \0 \0 \0 \t \0 \0 020 \0
0001760 ( 3 3 Q P R O M P T 2 0 Q
0002000 P r o m p t R e a d 5 B O U
0002020 N D P ) \r ( 2 F U L L P R E S
0002040 S P R I N T E R ) \r ( 3 0 Q
0002060 " N o F U L L P R E S S P R I
0002100 N T E R ; N o t h i n g P r
0002120 i n t e d " 1 5 Q " T y p e
0002140 i n n a m e o f F U L L
0002160 P R E S S P R I N T E R " ) \r L
0002200 o o p s I c o n . N o r m a l V
0002220 i d e o R a t e D 1 \r ( I 0
0002240 s e l f ) \0 \b \0 \0 \0 001 g \0 \0
0002260 \t \0 \0 020 \0 ( 5 V I D E O R A T
0002300 E ) \r ( 2 N O R M A L ) \r ( )
0002320 \r L o o p s I c o n . P r e s s
0002340 S c r e e n D 1 \r ( P 0 f
0002360 i l e I 0 s e l f ) \0 036
0002400 001 \0 \0 001 o \0 \0 \0 \t \0 \0 021 001 \0 H 227
0002420 ` \0 \0 H \n \0 \0 206 o \0 \0 \0 \t \0 \0 h
0002440 020 \0 ( 3 2 Q P R O M P T 2 2
0002460 Q H A R D C O P Y W 6 P r
0002500 o m p t R e a d ) \r ( 1 6 Q S
0002520 c r e e n B i t M a p ) \r ( 2
0002540 7 Q " N o t S a v e d " 3
0002560 " P l e a s e t e l l m e
0002600 n a m e o f f i l e f o
0002620 r s c r e e n p i c t u r e
0002640 . " ) \r L o o p s I c o n . P r
0002660 e s s W i n d o w D 1 \r ( P
0002700 0 f i l e I 0 s e l f )
0002720 \0 036 001 \0 \0 001 o \0 \0 \0 \t \0 \0 021 001
0002740 \0 H 227 \b \0 \0 H \n \0 \0 206 o \0 \0 \0 \t
0002760 \0 \0 h 020 \0 ( 3 2 Q P R O M P T
0003000 2 2 Q H A R D C O P Y W 1
0003020 6 Q S E L E C T W 6 P r o
0003040 m p t R e a d ) \r N I L \r ( 2
0003060 7 Q " N o t S a v e d " 3
0003100 " P l e a s e t e l l m e
0003120 n a m e o f f i l e f o
0003140 r w i n d o w . " ) \r L o o p
0003160 s I c o n . P r i n t S c r e e
0003200 n D 1 \r ( I 0 s e l f )
0003220 \0 034 002 \0 \0 001 @ 021 021 001 H g \0 \0 \n \0
0003240 \0 271 H k I 017 016 022 264 \b ` \0 \0 \t \0 \0
0003260 020 \0 ( 3 1 Q H A R D C O P Y W
0003300 1 2 Q F e t c h M e t h o d
0003320 O r H e l p ) \r ( 2 6 Q S c r
0003340 e e n B i t M a p 7 F u l l
0003360 P r e s s P r i n t e r ) \r ( )
0003400 \r L o o p s I c o n . P r i n t
0003420 W i n d o w D 1 \r ( I 0 s
0003440 e l f ) \0 034 002 \0 \0 001 @ 021 021 001 H
0003460 g \0 \0 \n \0 \0 271 H k I 017 016 022 264 \b \b
0003500 \0 \0 \t \0 \0 020 \0 ( 3 1 Q H A R D
0003520 C O P Y W 2 6 Q S E L E C T
0003540 W 1 2 Q F e t c h M e t h o
0003560 d O r H e l p ) \r ( 7 F u l l
0003600 P r e s s P r i n t e r ) \r ( )
0003620 \r L o o p s I c o n . S e t U p
0003640 D e m o D 1 \r ( I 0 s e l
0003660 f ) \0 027 \0 \0 \0 001 g \0 \0 \t \0 \0 223
0003700 \b \0 \0 020 \b \0 \0 o \0 \0 \0 \t \0 \0 020 \0
0003720 ( 2 4 Q P R O M P T P R I N T
0003740 1 5 Q R I N G B E L L S 1
0003760 1 Q S e t U p D e m o 5 D
0004000 E F I N E D P ) \r ( 2 S e t U
0004020 p D e m o ) \r ( 2 1 Q " S e
0004040 t U p D e m o U n d e f i n e
0004060 d - - C a n ' t S e t
0004100 u p D e m o " ) \r L o o p s
0004120 I c o n . S e t U p S c r e e n
0004140 D 1 \r ( I 0 s e l f ) \0
0004160 005 \0 \0 \0 001 \b \0 \0 020 \0 ( 2 S e t
0004200 U p S c r e e n ) \r N I L \r ( )
0004220 \r L o o p s I c o n . T a p e V
0004240 i d e o R a t e D 1 \r ( I 0
0004260 s e l f ) \0 \b \0 \0 \0 001 g \0 \0
0004300 \t \0 \0 020 \0 ( 5 V I D E O R A T
0004320 E ) \r ( 2 T A P E ) \r ( ) \r L
0004340 o o p s I c o n . U s e r E x e
0004360 c D 1 \r ( I 0 s e l f )
0004400 \0 032 \0 \0 \0 001 g \0 \0 \t \0 \0 o \0 \0 \0
0004420 g \0 \0 i g \0 \0 g \0 \0 \r 005 \0 \0 020 \0
0004440 ( 2 7 Q A D D . P R O C E S S
0004460 5 D E L . P R O C E S S ) \r
0004500 ( 2 3 Q U s e r E x e c 2 0
0004520 Q N A M E 1 4 Q R E S T A
0004540 R T A B L E 2 U s e r E x e
0004560 c ) \r ( 1 1 Q ( U S E R E X
0004600 E C ) ) \r W i n d o w . B l i n
0004620 k D 1 \r ( I 1 n u m B l i
0004640 n k s I 0 s e l f ) \0 V
0004660 002 \0 \0 002 A k 021 002 001 I H 361 221 h 020 l
0004700 372 \t \0 \0 277 h d d @ g \0 \0 \n \0 \0 h
0004720 d d d g \0 \0 g \0 \0 n 377 377 \r \v \0 \0
0004740 277 l 372 \t \0 \0 277 h d d @ g \0 \0 \n \0
0004760 \0 h d d d g \0 \0 g \0 \0 n 377 377 \r \v
0005000 \0 \0 277 I k 330 Y 260 263 \0 ( 1 1 5 Q
0005020 B I T B L T 7 4 Q G e t V a
0005040 l u e 6 1 Q D I S M I S S
0005060 5 3 Q B I T B L T 3 2 Q G
0005100 e t V a l u e 1 7 Q D I S M
0005120 I S S ) \r ( 1 0 6 Q I N V E R
0005140 T 1 0 3 Q T E X T U R E 7
0005160 1 Q w i n d o w 4 4 Q I N
0005200 V E R T 4 1 Q T E X T U R E
0005220 2 7 Q w i n d o w ) \r ( ) \r
0005240 W i n d o w . B u r y D 1 \r (
0005260 I 0 s e l f ) \0 \f \0 \0 \0 001
0005300 @ g \0 \0 \n \0 \0 \t \0 \0 020 \0 ( 1 1 Q
0005320 B U R Y W 6 G e t V a l u
0005340 e ) \r ( 3 w i n d o w ) \r ( )
0005360 \r W i n d o w . B u t t o n E v
0005400 e n t F n A 0 0 0 1 D 1 \r ( N
0005420 A M E E R R O R S E T L (
0005440 2 E R R O R S E T . W 1 E
0005460 R R O R S E T . V 0 E R R O
0005500 R S E T . U ) F 2 w i n d
0005520 o w F 3 s e l f ) \0 m 002
0005540 002 \0 003 h R \n \0 \0 R \t \0 \0 R \t \0 \0
0005560 \v \0 \0 263 026 S 021 021 001 H g \0 \0 \n \0 \0
0005600 271 H k I 017 016 022 260 E \b \0 \0 277 ` \0 \0
0005620 l 004 345 j 360 263 026 S 021 021 001 H g \0 \0 \n
0005640 \0 \0 271 H k I 017 016 022 260 # \b \0 \0 277 `
0005660 \0 \0 k 345 j 360 263 025 S 021 021 001 H g \0 \0
0005700 \n \0 \0 271 H k I 017 016 022 200 h h 032 020 \0
0005720 ( 1 3 7 Q F e t c h M e t h o
0005740 d O r H e l p 1 1 2 Q G E T
0005760 M O U S E S T A T E 7 6 Q F
0006000 e t c h M e t h o d O r H e l p
0006020 5 0 Q G E T M O U S E S T A
0006040 T E 3 4 Q F e t c h M e t h
0006060 o d O r H e l p 1 7 Q I N S
0006100 I D E P 1 4 Q L A S T M O U
0006120 S E Y 1 0 Q L A S T M O U S
0006140 E X 4 D S P C L I P P I N G
0006160 R E G I O N ) \r ( 1 3 4 Q M i
0006200 d d l e S e l e c t i o n 1 1
0006220 6 Q L A S T M O U S E B U T T
0006240 O N S 7 3 Q L e f t S e l e
0006260 c t i o n 5 4 Q L A S T M O
0006300 U S E B U T T O N S 3 1 Q T
0006320 i t l e S e l e c t i o n ) \r (
0006340 ) \r W i n d o w . B u t t o n E
0006360 v e n t F n D 1 \r ( I 1 w
0006400 i n d o w I 0 s e l f )
0006420 \0 026 \0 \0 \0 002 o \0 \0 \0 i \n \0 \0 265 \f
0006440 \b \0 \0 o \0 \0 \0 \t \0 \0 020 \0 ( 2 3 Q
0006460 P R O M P T P R I N T 1 4 Q
0006500 R I N G B E L L S 7 W i n
0006520 d o w . B u t t o n E v e n t F
0006540 n A 0 0 0 1 ) \r N I L \r ( 2 0
0006560 Q " E r r o r u n d e r M
0006600 o u s e P r o c e s s " 3
0006620 ( D U M M Y . F O R . E R R O R
0006640 S E T ) ) \r W i n d o w . C V I
0006660 t e m s D 1 \r ( I 1 i t e
0006700 m C V I 0 s e l f ) \0 \a
0006720 \0 \0 \0 002 @ A \n \0 \0 020 \0 ( 4 G e
0006740 t C l a s s V a l u e ) \r N I L
0006760 \r ( ) \r W i n d o w . C h o i c
0007000 e M e n u D 1 \r ( P 1 i t
0007020 e m s P 0 m e n u I 1
0007040 i t e m C V I 0 s e l f
0007060 ) \0 z 005 \0 \0 002 @ g \0 \0 A \v \0 \0
0007100 021 A 004 H d 004 ` \0 \0 360 263 f 277 @ [ g
0007120 \0 \0 \n \0 \0 272 K A l 002 J 017 016 Y 003 241
0007140 h 020 ` \0 \0 037 d I 024 004 277 d g \0 \0 024
0007160 026 277 d g \0 \0 024 & 277 d g \0 \0 024 034 277
0007200 d i 024 016 277 d g \0 \0 024 277 j d n 177
0007220 377 d h 032 032 032 032 274 d L 024 \n 277 X @ g
0007240 \0 \0 \n \0 \0 230 @ g \0 \0 H A \f \0 \0 H
0007260 020 \0 ( 1 6 6 Q P u t V a l u e
0007300 1 5 4 Q G e t V a l u e 3
0007320 4 Q F e t c h M e t h o d O r
0007340 H e l p 7 G e t V a l u e )
0007360 \r ( 1 6 1 Q m e n u s 1 5 1
0007400 Q m e n u s 1 2 0 Q C L R
0007420 P R O M P T 1 0 4 Q W i n d
0007440 o w . W h e n H e l d F n 7 5
0007460 Q D u a l S u b I t e m s 6
0007500 6 Q S u b I t e m S e l e c t
0007520 i o n 5 4 Q 004 003 M E N U T Y
0007540 P E # 3 1 Q C V I t e m s
0007560 2 0 Q 004 003 M E N U T Y P E #
0007600 3 m e n u s ) \r ( ) \r W i n d
0007620 o w . C l e a r D 1 \r ( I 0
0007640 s e l f ) \0 \f \0 \0 \0 001 @ g \0
0007660 \0 \n \0 \0 \t \0 \0 020 \0 ( 1 1 Q C L
0007700 E A R W 6 G e t V a l u e )
0007720 \r ( 3 w i n d o w ) \r ( ) \r W
0007740 i n d o w . C l e a r M e n u C
0007760 a c h e D 1 \r ( P 2 p r o
0010000 p I 0 s e l f ) \0 0 003 \0
0010020 \0 001 @ 021 021 001 H g \0 \0 \n \0 \0 271 H g
0010040 \0 \0 g \0 \0 l 003 I 017 016 022 217 d 001 021 001
0010060 002 @ g \0 \0 h J \f \0 \0 023 002 003 265 357 @
0010100 020 \0 ( 4 7 Q P u t V a l u e
0010120 1 2 Q F e t c h M e t h o d O
0010140 r H e l p ) \r ( 4 2 Q m e n u
0010160 s 2 2 Q m e n u s 1 7 Q
0010200 I V P R O P S 7 L i s t ) \r
0010220 ( ) \r W i n d o w . C l o s e
0010240 D 1 \r ( I 0 s e l f ) \0 \f
0010260 \0 \0 \0 001 @ g \0 \0 \n \0 \0 \t \0 \0 020 \0
0010300 ( 1 1 Q C L O S E W 6 G e
0010320 t V a l u e ) \r ( 3 w i n d o
0010340 w ) \r ( ) \r W i n d o w . C r e
0010360 a t e W i n d o w D 1 \r ( I
0010400 0 s e l f ) \0 = \0 \0 \0 001 @ g
0010420 \0 \0 \n \0 \0 265 005 ` \0 \0 @ g \0 \0 \n \0
0010440 \0 265 005 ` \0 \0 @ g \0 \0 \n \0 \0 265 004 l
0010460 \t @ g \0 \0 \n \0 \0 265 004 l \t \f \0 \0 @
0010500 g \0 \0 \n \0 \0 \n \0 \0 020 \0 ( 7 2 Q
0010520 C R E A T E W 6 7 Q G e t V
0010540 a l u e 6 0 Q C R E A T E R
0010560 E G I O N 5 1 Q G e t V a l
0010600 u e 3 6 Q G e t V a l u e
0010620 2 2 Q G e t V a l u e 6 G
0010640 e t V a l u e ) \r ( 6 4 Q t i
0010660 t l e 4 6 Q h e i g h t 3
0010700 3 Q w i d t h 2 7 Q L A S
0010720 T M O U S E Y 1 7 Q b o t t
0010740 o m 1 3 Q L A S T M O U S E
0010760 X 3 l e f t ) \r ( ) \r W i n
0011000 d o w . D e s t r o y D 1 \r (
0011020 P 0 w I 0 s e l f )
0011040 \0 B 003 \0 \0 001 @ g \0 \0 \n \0 \0 021 ! 002
0011060 H 262 & @ g \0 \0 \n \0 \0 X g \0 \0 \n \0
0011100 \0 277 H g \0 \0 \n \0 \0 277 H g \0 \0 \n \0
0011120 \0 277 H \t \0 \0 277 @ Z g \0 \0 \n \0 \0 271
0011140 J k I 017 016 h 020 \0 ( 7 0 Q G e t
0011160 S u p e r M e t h o d 5 7 Q
0011200 C L O S E W 5 2 Q P U T W I
0011220 N D O W P R O P 4 2 Q P U T
0011240 W I N D O W P R O P 3 2 Q P
0011260 U T W I N D O W P R O P 2 3 Q
0011300 G e t V a l u e 6 G e t I
0011320 V H e r e ) \r ( 6 5 Q D e s t
0011340 r o y 4 7 Q B u t t o n E v
0011360 e n t F n 3 7 Q R i g h t B
0011400 u t t o n F n 2 7 Q L o o p
0011420 s W i n d o w 2 0 Q w i n d
0011440 o w 3 w i n d o w ) \r ( ) \r
0011460 W i n d o w . G e t P r o p D
0011500 1 \r ( I 1 p r o p I 0
0011520 s e l f ) \0 \r \0 \0 \0 002 @ g \0 \0
0011540 \n \0 \0 A \n \0 \0 020 \0 ( 1 2 Q W I
0011560 N D O W P R O P 6 G e t V a
0011600 l u e ) \r ( 3 w i n d o w ) \r
0011620 ( ) \r W i n d o w . H a s L i s
0011640 p W i n d o w D 1 \r ( I 0
0011660 s e l f ) \0 017 \0 \0 \0 001 @ g \0 \0
0011700 \n \0 \0 g \0 \0 360 h 360 020 \0 ( 6 G e
0011720 t I V H e r e ) \r ( 1 1 Q ?
0011740 3 w i n d o w ) \r ( ) \r W i n
0011760 d o w . I t e m M e n u D 1 \r
0012000 ( I 2 t i t l e I 1 i
0012020 t e m s I 0 s e l f F
0012040 2 M E N U F O N T ) \0 P 002 001
0012060 \0 003 ` \0 \0 037 d A 024 004 277 R \t \0 \0 A
0012100 \t \0 \0 332 n 002 356 333 k 330 021 002 001 H d I
0012120 024 \b 277 022 d B 024 022 277 d i 024 016 277 d g
0012140 \0 \0 024 277 d g \0 \0 024 034 277 j d n 177
0012160 377 d h 032 032 032 032 021 002 001 H d I 024 \n 277
0012200 020 \0 ( 2 0 Q L E N G T H 1 4
0012220 Q F O N T H E I G H T ) \r ( 6
0012240 6 Q D E F A U L T M E N U H E
0012260 L D F N 5 7 Q C L R P R O M
0012300 P T 2 004 003 M E N U T Y P E #
0012320 ) \r ( ) \r W i n d o w . L e f t
0012340 C h o i c e D 1 \r ( P 2 m
0012360 e n u I 0 s e l f ) \0 !
0012400 003 \0 \0 001 @ 021 021 001 H g \0 \0 \n \0 \0 271
0012420 H g \0 \0 l 002 I 017 016 022 021 001 002 J d 222
0012440 \t \0 \0 020 \0 ( 3 6 Q M E N U 1
0012460 2 Q F e t c h M e t h o d O r
0012500 H e l p ) \r ( 1 7 Q L e f t B
0012520 u t t o n I t e m s 7 C h o
0012540 i c e M e n u ) \r ( ) \r W i n d
0012560 o w . L e f t S e l e c t i o n
0012600 D 1 \r ( P 4 c l a s s F o
0012620 r M e t h o d P 3 o B j
0012640 P 2 c h o i c e I 0 s
0012660 e l f ) \0 & 006 \0 \0 001 @ 021 021 001 H
0012700 g \0 \0 \n \0 \0 271 H k I 017 016 022 021 1 005
0012720 J 264 016 @ [ J \n \0 \0 275 K k M 017 016 020
0012740 \0 ( 3 5 Q F e t c h M e t h o
0012760 d O r H e l p 1 2 Q F e t c
0013000 h M e t h o d O r H e l p ) \r (
0013020 7 L e f t C h o i c e ) \r ( )
0013040 \r W i n d o w . M i d d l e C h
0013060 o i c e D 1 \r ( P 2 m e n
0013100 u I 0 s e l f ) \0 ! 003 \0
0013120 \0 001 @ 021 021 001 H g \0 \0 \n \0 \0 271 H g
0013140 \0 \0 l 002 I 017 016 022 021 001 002 J d 222 \t \0
0013160 \0 020 \0 ( 3 6 Q M E N U 1 2 Q
0013200 F e t c h M e t h o d O r H e
0013220 l p ) \r ( 1 7 Q M i d d l e B
0013240 u t t o n I t e m s 7 C h o
0013260 i c e M e n u ) \r ( ) \r W i n d
0013300 o w . M i d d l e S e l e c t i
0013320 o n D 1 \r ( P 4 c l a s s
0013340 F o r M e t h o d P 3 o B
0013360 j P 2 c h o i c e I 0
0013400 s e l f ) \0 & 006 \0 \0 001 @ 021 021
0013420 001 H g \0 \0 \n \0 \0 271 H k I 017 016 022 021
0013440 1 005 J 264 016 @ [ J \n \0 \0 275 K k M 017
0013460 016 020 \0 ( 3 5 Q F e t c h M e t
0013500 h o d O r H e l p 1 2 Q F e
0013520 t c h M e t h o d O r H e l p )
0013540 \r ( 7 M i d d l e C h o i c e
0013560 ) \r ( ) \r W i n d o w . M o v e
0013600 D 1 \r ( P 1 n e w P o s
0013620 P 0 o l d R e g i o n I
0013640 2 y I 1 x O r P o s I
0013660 0 s e l f ) \0 G 004 \0 \0 003 @
0013700 g \0 \0 \n \0 \0 \t \0 \0 311 006 @ g \0 \0 \n
0013720 \0 \0 A B \v \0 \0 021 " 003 @ g \0 \0 I 001
0013740 \v \0 \0 @ g \0 \0 I 002 \v \0 \0 o \0 \0 \0
0013760 H \n \0 \0 255 @ [ g \0 \0 \n \0 \0 272 K k
0014000 J 017 016 I 020 \0 ( 7 5 Q F e t c h
0014020 M e t h o d O r H e l p 6 4 Q
0014040 S U B R E G I O N P 5 4 Q
0014060 P u t V a l u e 4 3 Q P u t
0014100 V a l u e 2 7 Q M O V E W
0014120 2 2 Q G e t V a l u e 1 1 Q
0014140 \ I N S U R E W I N D O W 6
0014160 G e t V a l u e ) \r ( 7 2 Q
0014200 U p d a t e 4 7 Q b o t t o
0014220 m 3 6 Q l e f t 1 7 Q w
0014240 i n d o w 3 w i n d o w ) \r
0014260 ( 6 0 Q ( 0 0 2 0 0 0 Q
0014300 1 4 5 0 Q ) ) \r W i n d o w .
0014320 O p e n D 1 \r ( I 0 s e l
0014340 f ) \0 * 002 \0 \0 001 @ g \0 \0 \n \0 \0
0014360 \t \0 \0 265 036 @ 021 021 001 H g \0 \0 \n \0 \0
0014400 271 H k I 017 016 023 @ g \0 \0 \n \0 \0 \t \0
0014420 \0 020 \0 ( 4 7 Q O P E N W 4 4
0014440 Q G e t V a l u e 2 6 Q F
0014460 e t c h M e t h o d O r H e l p
0014500 1 1 Q A C T I V E W P 6
0014520 G e t V a l u e ) \r ( 4 1 Q w
0014540 i n d o w 2 3 Q U p d a t e
0014560 3 w i n d o w ) \r ( ) \r W i
0014600 n d o w . P a i n t D 1 \r ( I
0014620 0 s e l f ) \0 \f \0 \0 \0 001 @
0014640 g \0 \0 \n \0 \0 \t \0 \0 020 \0 ( 1 1 Q
0014660 P A I N T W 6 G e t V a l u
0014700 e ) \r ( 3 w i n d o w ) \r ( )
0014720 \r W i n d o w . R e p a i n t
0014740 D 1 \r ( I 2 a l w a y s F l
0014760 g I 1 r e g I 0 s e
0015000 l f ) \0 023 002 \0 \0 003 @ 021 021 001 H g
0015020 \0 \0 \n \0 \0 271 H k I 017 016 020 \0 ( 1 2
0015040 Q F e t c h M e t h o d O r H
0015060 e l p ) \r ( 7 U p d a t e ) \r
0015100 ( ) \r W i n d o w . R i g h t B
0015120 u t t o n F n D 1 \r ( I 0
0015140 s e l f ) \0 023 002 \0 \0 001 @ 021 021 001
0015160 H g \0 \0 \n \0 \0 271 H k I 017 016 020 \0 (
0015200 1 2 Q F e t c h M e t h o d O
0015220 r H e l p ) \r ( 7 R i g h t S
0015240 e l e c t i o n ) \r ( ) \r W i n
0015260 d o w . R i g h t S e l e c t i
0015300 o n D 1 \r ( P 6 c l a s s
0015320 F o r M e t h o d P 5 o B
0015340 j P 3 c h o i c e P 2
0015360 m e n u I 0 s e l f )
0015400 \0 4 \a \0 \0 001 @ 021 021 001 H g \0 \0 \n \0
0015420 \0 271 H g \0 \0 l 002 I 017 016 022 021 ! 004 J
0015440 d 222 \t \0 \0 [ d 264 021 @ 021 021 006 M K \n
0015460 \0 \0 274 M k L 017 016 020 \0 ( 5 3 Q F
0015500 e t c h M e t h o d O r H e l p
0015520 3 6 Q M E N U 1 2 Q F e
0015540 t c h M e t h o d O r H e l p )
0015560 \r ( 1 7 Q R i g h t B u t t o
0015600 n I t e m s 7 C h o i c e M
0015620 e n u ) \r ( ) \r W i n d o w . S
0015640 e t P r o p D 1 \r ( I 2 v
0015660 a l u e I 1 p r o p I
0015700 0 s e l f ) \0 \b \0 \0 \0 003 @ A
0015720 B \v \0 \0 020 \0 ( 5 W I N D O W P
0015740 R O P ) \r N I L \r ( ) \r W i n d
0015760 o w . S e t R e g i o n D 1 \r
0016000 ( I 2 d o n t U p d a t e F
0016020 l g I 1 r e g i o n I
0016040 0 s e l f ) \0 A 002 \0 \0 003 @ g
0016060 \0 \0 A 001 \v \0 \0 @ g \0 \0 A 002 001 \v \0
0016100 \0 @ g \0 \0 A 002 002 001 \v \0 \0 @ g \0 \0
0016120 A 002 002 002 001 \v \0 \0 B 263 023 @ 021 021 001 H
0016140 g \0 \0 \n \0 \0 271 H k I 017 016 @ 020 \0 (
0016160 6 7 Q F e t c h M e t h o d O
0016200 r H e l p 5 1 Q P u t V a l
0016220 u e 3 5 Q P u t V a l u e
0016240 2 2 Q P u t V a l u e 1 0 Q
0016260 P u t V a l u e ) \r ( 6 4 Q
0016300 U p d a t e 4 1 Q h e i g h
0016320 t 2 6 Q w i d t h 1 4 Q
0016340 b o t t o m 3 l e f t ) \r (
0016360 ) \r W i n d o w . S h a p e D
0016400 1 \r ( P 0 d I 1 n e w
0016420 R e g i o n I 0 s e l f )
0016440 \0 t 003 \0 \0 002 021 0 002 @ g \0 \0 \n \0
0016460 \0 A \n \0 \0 @ g \0 \0 \n \0 \0 \t \0 \0 311
0016500 006 X @ g \0 \0 H 001 \v \0 \0 @ g \0 \0 H
0016520 002 001 \v \0 \0 @ g \0 \0 h @ g \0 \0 \n \0
0016540 \0 \t \0 \0 311 \0 \n \0 \0 002 002 001 \v \0 \0 @
0016560 g \0 \0 h @ g \0 \0 \n \0 \0 \t \0 \0 311 \0
0016600 \n \0 \0 002 002 002 001 \v \0 \0 @ Z g \0 \0 \n
0016620 \0 \0 271 J k I 017 016 H 020 \0 ( 1 5 2 Q
0016640 F e t c h M e t h o d O r H e
0016660 l p 1 4 2 Q P u t V a l u e
0016700 1 3 3 Q D S P C L I P P I N
0016720 G R E G I O N 1 2 6 Q \ I N
0016740 S U R E W I N D O W 1 2 3 Q
0016760 G e t V a l u e 1 0 7 Q P u
0017000 t V a l u e 1 0 1 Q D S P C
0017020 L I P P I N G R E G I O N 7 4
0017040 Q \ I N S U R E W I N D O W
0017060 7 1 Q G e t V a l u e 5 5 Q
0017100 P u t V a l u e 4 3 Q P u
0017120 t V a l u e 2 7 Q \ I N S U
0017140 R E W I N D O W 2 4 Q G e t
0017160 V a l u e 1 5 Q S H A P E W
0017200 1 1 Q G e t V a l u e ) \r (
0017220 1 4 7 Q U p d a t e 1 2 0 Q
0017240 w i n d o w 1 1 3 Q h e i
0017260 g h t 6 6 Q w i n d o w 6
0017300 1 Q w i d t h 4 7 Q b o t
0017320 t o m 3 6 Q l e f t 2 1 Q
0017340 w i n d o w 6 w i n d o w
0017360 ) \r ( ) \r W i n d o w . S h a p
0017400 e ? D 1 \r ( I 0 s e l f )
0017420 \0 016 \0 \0 \0 001 @ g \0 \0 \n \0 \0 \t \0
0017440 \0 311 006 020 \0 ( 1 1 Q \ I N S U R
0017460 E W I N D O W 6 G e t V a l
0017500 u e ) \r ( 3 w i n d o w ) \r (
0017520 ) \r W i n d o w . S h r i n k
0017540 D 1 \r ( I 3 e x p a n d F n
0017560 I 2 i c o n P o s I 1
0017600 t o w h a t I 0 s e l f
0017620 ) \0 017 \0 \0 \0 004 @ g \0 \0 \n \0 \0 A
0017640 B C \f \0 \0 020 \0 ( 1 4 Q S H R I
0017660 N K W 6 G e t V a l u e ) \r
0017700 ( 3 w i n d o w ) \r ( ) \r W i
0017720 n d o w . S n a p D 1 \r ( I
0017740 0 s e l f ) \0 005 \0 \0 \0 001 \b \0
0017760 \0 020 \0 ( 2 S N A P W ) \r N I L
0020000 \r ( ) \r W i n d o w . T i t l e
0020020 S e l e c t i o n D 1 \r ( P
0020040 6 c l a s s F o r M e t h o d
0020060 P 5 o B j P 1 c h o
0020100 i c e P 0 m e n u I 0
0020120 s e l f ) \0 0 \a \0 \0 001 021 P 004
0020140 @ [ g \0 \0 \n \0 \0 272 K g \0 \0 l 002 J
0020160 017 016 X d 262 027 \t \0 \0 d 237 Y @ 021 021 006
0020200 M I \n \0 \0 274 M k L 017 016 020 \0 ( 4 7
0020220 Q F e t c h M e t h o d O r H
0020240 e l p 3 3 Q M E N U 1 2 Q
0020260 F e t c h M e t h o d O r H e
0020300 l p ) \r ( 1 7 Q T i t l e I t
0020320 e m s 7 C h o i c e M e n u
0020340 ) \r ( ) \r W i n d o w . T o T o
0020360 p D 1 \r ( I 0 s e l f )
0020400 \0 \f \0 \0 \0 001 @ g \0 \0 \n \0 \0 \t \0 \0
0020420 020 \0 ( 1 1 Q T O T O P W 6
0020440 G e t V a l u e ) \r ( 3 w i n
0020460 d o w ) \r ( ) \r W i n d o w . U
0020500 p d a t e D 1 \r ( P 2 b o
0020520 r d e r P 1 r e g i o n
0020540 P 0 w i n d o w I 0 s
0020560 e l f ) \0 241 003 \0 \0 001 @ g \0 \0 \n
0020600 \0 \0 021 ! 002 H \t \0 \0 311 , Z @ g \0 \0
0020620 \n \0 \0 H \t \0 \0 311 ( \n \0 \0 256 H g \0
0020640 \0 @ g \0 \0 \n \0 \0 \v \0 \0 277 @ g \0 \0
0020660 \n \0 \0 262 T @ g \0 \0 \n \0 \0 262 K @ g
0020700 \0 \0 \n \0 \0 265 \f @ g \0 \0 ` \0 \0 \v \0
0020720 \0 @ g \0 \0 \n \0 \0 265 \f @ g \0 \0 ` \0
0020740 \0 \v \0 \0 @ g \0 \0 \n \0 \0 J \n \0 \0 @
0020760 g \0 \0 \n \0 \0 @ g \0 \0 \n \0 \0 J \v \0
0021000 \0 h 032 032 032 032 271 I d 237 H \t \0 \0 311 006
0021020 \n \0 \0 244 H I \n \0 \0 h 020 \0 ( 2 3 5
0021040 Q S H A P E W 2 2 7 Q E Q
0021060 U A L 2 2 2 Q \ I N S U R E
0021100 W I N D O W 2 0 5 Q H E I G
0021120 H T I F W I N D O W 2 0 1 Q
0021140 G e t V a l u e 1 7 2 Q G e
0021160 t V a l u e 1 6 3 Q W I D T
0021200 H I F W I N D O W 1 5 7 Q G
0021220 e t V a l u e 1 5 0 Q P u t
0021240 V a l u e 1 3 4 Q G e t V a
0021260 l u e 1 2 5 Q P u t V a l u
0021300 e 1 1 1 Q G e t V a l u e
0021320 1 0 0 Q G e t V a l u e 6 7
0021340 Q G e t V a l u e 5 7 Q P
0021360 U T W I N D O W P R O P 5 4 Q
0021400 G e t V a l u e 4 0 Q E Q
0021420 U A L 3 3 Q \ I N S U R E W
0021440 I N D O W 2 7 Q G e t V a l
0021460 u e 1 5 Q \ I N S U R E W I
0021500 N D O W 6 G e t V a l u e )
0021520 \r ( 1 7 6 Q t i t l e 1 6 7
0021540 Q h e i g h t 1 5 4 Q w i
0021560 d t h 1 4 5 Q L A S T M O U
0021600 S E Y 1 4 2 Q b o t t o m
0021620 1 3 1 Q b o t t o m 1 2 2 Q
0021640 L A S T M O U S E X 1 1 7 Q
0021660 l e f t 1 0 6 Q l e f t
0021700 7 5 Q h e i g h t 6 4 Q w
0021720 i d t h 5 1 Q t i t l e 4
0021740 5 Q T I T L E 2 4 Q t i t
0021760 l e 3 w i n d o w ) \r ( ) \r
0022000 W i n d o w . W h e n M e n u I
0022020 t e m H e l d D 1 \r ( I 3
0022040 k e y I 2 m e n u I 1
0022060 i t e m I 0 s e l f )
0022100 \0 n \0 \0 \0 004 A 003 265 032 @ d 004 ` \0 \0
0022120 360 246 d 004 ` \0 \0 360 222 311 \0 202 \t \0 \0 A
0022140 260 C 002 002 225 A 002 002 001 260 @ A 002 001 003 263
0022160 033 @ d 004 ` \0 \0 360 246 d 004 ` \0 \0 360 222
0022200 311 \0 202 \t \0 \0 A 002 260 032 @ d 004 ` \0 \0
0022220 360 246 d 004 ` \0 \0 360 222 311 \0 202 \t \0 \0 A
0022240 002 001 001 g \0 \0 \v \0 \0 265 006 o \0 \0 \0 \t
0022260 \0 \0 020 \0 ( 1 5 3 Q P R O M P T
0022300 P R I N T 1 4 2 Q G e t M e
0022320 t h o d 1 3 0 Q G e t L i s
0022340 p C l a s s 7 7 Q G e t L i
0022360 s p C l a s s 3 0 Q G e t L
0022400 i s p C l a s s ) \r ( 1 3 7 Q
0022420 d o c 1 2 0 Q 004 003 c l a s s
0022440 T Y P E # 1 1 1 Q 004 003 i n s
0022460 t a n c e T Y P E # 6 7 Q 004
0022500 003 c l a s s T Y P E # 6 0 Q
0022520 004 003 i n s t a n c e T Y P E #
0022540 2 0 Q 004 003 c l a s s T Y P E #
0022560 1 1 Q 004 003 i n s t a n c e T
0022600 Y P E # ) \r ( 1 5 0 Q " W h
0022620 e n r e l e a s e d t h i s
0022640 i t e m w i l l b e s e
0022660 l e c t e d " ) \r G e t L i s p
0022700 W i n d o w D 1 \r ( I 5 t
0022720 y p e I 4 a c t i v e V a
0022740 l I 3 p r o p N a m e I
0022760 2 l o c a l S t I 1 v
0023000 a r N a m e I 0 s e l f )
0023020 \0 1 002 \0 \0 006 B \t \0 \0 263 " D @ d
0023040 021 021 001 H g \0 \0 \n \0 \0 271 H k I 017 016
0023060 022 \n \0 \0 @ A C E \r 006 \0 \0 020 B g \0
0023100 \0 @ \v \0 \0 B 020 \0 ( 5 5 Q P U T
0023120 W I N D O W P R O P 4 4 Q P
0023140 u t L o c a l S t a t e 3 4 Q
0023160 I n i t L o o p s W i n d o w
0023200 2 2 Q F e t c h M e t h o d
0023220 O r H e l p 3 W I N D O W P
0023240 ) \r ( 5 1 Q L o o p s W i n d
0023260 o w 1 7 Q C r e a t e W i n
0023300 d o w ) \r ( ) \r I n i t L o o p
0023320 s W i n d o w D 1 \r ( I 2
0023340 p o s I 1 w i n d o w I
0023360 0 s e l f ) \0 C 002 \0 \0 003 B
0023400 225 A B \n \0 \0 277 A g \0 \0 @ \v \0 \0 @
0023420 021 021 001 H g \0 \0 \n \0 \0 271 H A \t \0 \0
0023440 311 006 g \0 \0 l 003 I 017 016 023 A g \0 \0 g
0023460 \0 \0 \v \0 \0 A g \0 \0 g \0 \0 \v \0 \0 A
0023500 020 \0 ( 7 7 Q P U T W I N D O W
0023520 P R O P 6 5 Q P U T W I N D
0023540 O W P R O P 4 0 Q \ I N S U
0023560 R E W I N D O W 3 2 Q F e t
0023600 c h M e t h o d O r H e l p 1
0023620 7 Q P U T W I N D O W P R O P
0023640 6 M O V E W ) \r ( 7 4 Q W
0023660 i n d o w B u t t o n E v e n t
0023700 F n 7 1 Q B U T T O N E V E
0023720 N T F N 6 2 Q W i n d o w R
0023740 i g h t B u t t o n F n 5 7 Q
0023760 R I G H T B U T T O N F N 4
0024000 5 Q D o n t U p d a t e 2 7
0024020 Q S e t R e g i o n 1 3 Q
0024040 L o o p s W i n d o w ) \r ( ) \r
0024060 L o o p s I c o n W i n d o w
0024100 D 1 \r ( I 5 t y p e I 4
0024120 a c t i v e V a l I 3 p
0024140 r o p N a m e I 2 l o c a
0024160 l S t I 1 v a r N a m e
0024200 I 0 s e l f F 0 B l a
0024220 c k L o o p s I c o n B M F
0024240 1 L o o p s I c o n S h a d o
0024260 w F 2 l o o p s I c o n P
0024300 o s i t i o n ) \0 2 \0 003 \0 006 B
0024320 \t \0 \0 263 + @ A ` \0 \0 037 @ P Q R \v
0024340 \0 \0 \n \0 \0 b 004 277 d B 024 \0 277 d g \0
0024360 \0 024 002 277 d g \0 \0 024 004 277 \v \0 \0 B 020
0024400 \0 ( 5 6 Q P u t V a l u e O n
0024420 l y 2 5 Q I n i t L o o p s
0024440 W i n d o w 2 2 Q I C O N W
0024460 3 W I N D O W P ) \r ( 5 0 Q
0024500 N o U p d a t e P e r m i t t
0024520 e d 4 1 Q L o o p s I c o n
0024540 W i n d o w 1 2 Q 004 003 a c t
0024560 i v e V a l u e T Y P E # ) \r (
0024600 ) \r P u t L i s p W i n d o w
0024620 D 1 \r ( I 5 t y p e I 4
0024640 a c t i v e V a l I 3 p
0024660 r o p N a m e I 2 n e w V
0024700 a l u e I 1 v a r N a m e
0024720 I 0 s e l f ) \0 035 \0 \0 \0
0024740 006 D @ B \t \0 \0 265 \n B o \0 \0 \0 \n \0
0024760 \0 \n \0 \0 @ A C E \r 006 \0 \0 020 \0 ( 3
0025000 2 Q P u t L o c a l S t a t e
0025020 2 2 Q I n i t L o o p s W i
0025040 n d o w 1 7 Q E R R O R 5
0025060 W I N D O W P ) \r N I L \r (
0025100 1 4 Q " s h o u l d b e w
0025120 i n d o w " ) \r W i n d o w . W
0025140 h e n H e l d F n D 1 \r ( I
0025160 2 k e y I 1 m e n u I
0025200 0 i t e m F 2 w i n d
0025220 o w F o r M e n u ) \0 027 002 001 \0
0025240 003 R 021 021 001 H g \0 \0 \n \0 \0 271 H @ A
0025260 B l 004 I 017 016 020 \0 ( 1 2 Q F e t
0025300 c h M e t h o d O r H e l p ) \r
0025320 ( 7 W h e n M e n u I t e m H
0025340 e l d ) \r ( ) \r W i n d o w B u
0025360 t t o n E v e n t F n D 1 \r (
0025400 P 2 i t e m N a m e P 1
0025420 i P 0 w i n d o w F o r
0025440 M e n u I 0 w i n d o w )
0025460 \0 $ 005 \0 \0 001 @ g \0 \0 \n \0 \0 021 A
0025500 004 H 241 h 020 @ \t \0 \0 H [ g \0 \0 \n \0
0025520 \0 274 K @ l 002 L 017 016 020 \0 ( 3 1 Q
0025540 F e t c h M e t h o d O r H e l
0025560 p 2 1 Q T O T O P W 6 G
0025600 E T W I N D O W U S E R P R O P
0025620 ) \r ( 2 6 Q B u t t o n E v e
0025640 n t F n 3 L o o p s W i n d
0025660 o w ) \r ( ) \r W i n d o w C l o
0025700 s e F n D 1 \r ( I 0 w i n
0025720 d o w ) \0 \t \0 \0 \0 001 @ g \0 \0 \n
0025740 \0 \0 020 \0 ( 6 P U T W I N D O W
0025760 P R O P ) \r ( 3 L o o p s W i
0026000 n d o w ) \r ( ) \r W i n d o w R
0026020 i g h t B u t t o n F n D 1 \r
0026040 ( P 1 i P 0 w i n d o
0026060 w F o r M e n u I 0 w i n
0026100 d o w ) \0 " 004 \0 \0 001 @ g \0 \0 \n
0026120 \0 \0 021 1 003 H 264 025 @ \t \0 \0 H [ g \0
0026140 \0 \n \0 \0 272 K k J 017 016 h 020 \0 ( 3 0
0026160 Q F e t c h M e t h o d O r H
0026200 e l p 2 0 Q T O T O P W 6
0026220 G E T W I N D O W U S E R P R
0026240 O P ) \r ( 2 5 Q R i g h t B u
0026260 t t o n F n 3 L o o p s W i
0026300 n d o w ) \r ( ) \r ( P R E T T Y
0026320 C O M P R I N T L O O P S W I
0026340 N D O W C O M S ) \r ( R P A Q Q
0026360 L O O P S W I N D O W C O M S
0026400 ( ( C L A S S E S L o o p s
0026420 I c o n W i n d o w ) ( M E
0026440 T H O D S L o o p s I c o n .
0026460 B r o w s e O b j e c t \r L o
0026500 o p s I c o n . F i l e B r o w
0026520 s e L o o p s I c o n . F u l
0026540 l P r e s s P r i n t e r L o
0026560 o p s I c o n . N o r m a l V i
0026600 d e o R a t e L o o p s I c o
0026620 n . P r e s s S c r e e n \r L
0026640 o o p s I c o n . P r e s s W i
0026660 n d o w L o o p s I c o n . P
0026700 r i n t S c r e e n L o o p s
0026720 I c o n . P r i n t W i n d o w
0026740 L o o p s I c o n . S e t U p
0026760 D e m o \r L o o p s I c o n .
0027000 S e t U p S c r e e n L o o p
0027020 s I c o n . T a p e V i d e o R
0027040 a t e L o o p s I c o n . U s
0027060 e r E x e c W i n d o w . B l
0027100 i n k W i n d o w . B u r y
0027120 \r W i n d o w . B u t t o n E v
0027140 e n t F n W i n d o w . C V I
0027160 t e m s W i n d o w . C h o i
0027200 c e M e n u W i n d o w . C l
0027220 e a r W i n d o w . C l e a r
0027240 M e n u C a c h e W i n d o w
0027260 . C l o s e \r W i n d o w . C
0027300 r e a t e W i n d o w W i n d
0027320 o w . D e s t r o y W i n d o
0027340 w . G e t P r o p W i n d o w
0027360 . H a s L i s p W i n d o w W
0027400 i n d o w . I t e m M e n u \r
0027420 W i n d o w . L e f t C h o i c
0027440 e W i n d o w . L e f t S e l
0027460 e c t i o n W i n d o w . M i
0027500 d d l e C h o i c e W i n d o
0027520 w . M i d d l e S e l e c t i o
0027540 n W i n d o w . M o v e \r W
0027560 i n d o w . O p e n W i n d o
0027600 w . P a i n t W i n d o w . R
0027620 e p a i n t W i n d o w . R i
0027640 g h t B u t t o n F n W i n d
0027660 o w . R i g h t S e l e c t i o
0027700 n W i n d o w . S e t P r o p
0027720 \r W i n d o w . S e t R e g i
0027740 o n W i n d o w . S h a p e
0027760 W i n d o w . S h a p e ? W i
0030000 n d o w . S h r i n k W i n d
0030020 o w . S n a p W i n d o w . T
0030040 i t l e S e l e c t i o n \r W
0030060 i n d o w . T o T o p W i n d
0030100 o w . U p d a t e W i n d o w
0030120 . W h e n M e n u I t e m H e l
0030140 d ) ( F N S G e t L i s p W
0030160 i n d o w I n i t L o o p s W
0030200 i n d o w L o o p s I c o n W
0030220 i n d o w \r P u t L i s p W i
0030240 n d o w W i n d o w . W h e n
0030260 H e l d F n W i n d o w B u t
0030300 t o n E v e n t F n W i n d o
0030320 w C l o s e F n W i n d o w R
0030340 i g h t B u t t o n F n ) ) ) \r
0030360 ( D E F C L A S S E S L o o p
0030400 s I c o n W i n d o w ) \r ( D
0030420 E F C L A S S L o o p s I c o
0030440 n ( M e t a C l a s s C l a
0030460 s s E d i t e d : ( * d g
0030500 b : " 2 1 - A p r - 8 4 0 9
0030520 : 2 0 " ) ) ( S u p e r s W
0030540 i n d o w ) ( \r C l a s s V a
0030560 r i a b l e s ( R i g h t B u
0030600 t t o n I t e m s ( M o v e )
0030620 ) ( M i d d l e B u t t o n I
0030640 t e m s ( ( P r i n t S c r e
0030660 e n ( P r i n t S c r e e n
0030700 ( P r i n t S c r e e n \r P r
0030720 e s s S c r e e n ) ) " P r
0030740 i n t o r P r e s s S c r
0030760 e e n " ) ( P r i n t W i n d
0031000 o w ( P r i n t W i n d o w
0031020 ( P r i n t W i n d o w P r e
0031040 s s W i n d o w ) ) ) ( B r o
0031060 w s e \r ( F i l e B r o w s e
0031100 ( F i l e B r o w s e B r o
0031120 w s e O b j e c t ) ) ) ) ) (
0031140 L e f t B u t t o n I t e m s
0031160 ( ( U s e r E x e c U s e r E
0031200 x e c \r " A d d a n e w
0031220 p r o c e s s r u n n i n g
0031240 t h e u s e r e x e c u t i
0031260 v e " ) ( S e t U p S c r e e
0031300 n ( S e t U p S c r e e n (
0031320 S e t U p S c r e e n S e t U
0031340 p D e m o ) ) ) ( \r V i d e o
0031360 R a t e ( N o r m a l V i d e
0031400 o R a t e ( N o r m a l V i d
0031420 e o R a t e T a p e V i d e o
0031440 R a t e ) ) ) ) ) ( P r o t o
0031460 t y p e # & ( L o o p s I c o
0031500 n \r " A T T 0 . l V C 1 . _ 5
0031520 @ . 2 7 " ) ) ) ( I n s t a n
0031540 c e V a r i a b l e s ( w i n
0031560 d o w # ( N I L L o o p s I
0031600 c o n W i n d o w N o U p d a
0031620 t e P e r m i t t e d ) d o c
0031640 ( * \r C r e a t e s t h e
0031660 i c o n a n d p u t i t
0031700 i n a s w i n d o w ) )
0031720 ( s a v e d V a l u e N I L
0031740 d o c ( * v a l u e u s e
0031760 d b y i n s p e c t o r o
0032000 n s a v i n g ) ) ) \r ) \r ( D
0032020 E F C L A S S W i n d o w (
0032040 M e t a C l a s s C l a s s
0032060 E d i t e d : ( * d g b :
0032100 " 5 - M a y - 8 4 0 5 : 4 3
0032120 " ) d o c ( * A L o o p
0032140 s o b j e c t w h i c h \r
0032160 r e p r e s e n t s a w i n
0032200 d o w ) ) ( S u p e r s O b
0032220 j e c t ) ( C l a s s V a r i
0032240 a b l e s ( T i t l e I t e m
0032260 s N I L d o c ( * s p e
0032300 c i a l i t e m s t o b e
0032320 d o n e \r i f i n t i t
0032340 l e p a r t o f w i n d o
0032360 w ) ) ( L e f t B u t t o n I
0032400 t e m s ( ( U p d a t e ( Q
0032420 U O T E U p d a t e ) \r " U
0032440 p d a t e w i n d o w t o
0032460 a g r e e w i t h o b j e c
0032500 t I V s " ) ) d o c ( *
0032520 I t e m s t o b e d o n e
0032540 i f L e f t b u t t o n
0032560 i s s e l e c t e d i n m
0032600 a i n \r w i n d o w ) ) ( M
0032620 i d d l e B u t t o n I t e m s
0032640 N I L d o c ( * I t e m
0032660 s t o b e d o n e i f
0032700 M i d d l e b u t t o n i s
0032720 s e l e c t e d i n m a i
0032740 n w i n d o w ) ) \r ( R i g
0032760 h t B u t t o n I t e m s ( C
0033000 l o s e S n a p P a i n t
0033020 C l e a r B u r y R e p a i
0033040 n t M o v e S h a p e S h
0033060 r i n k ) d o c ( * I t e
0033100 m s t o b e d o n e i f
0033120 \r R i g h t b u t t o n i
0033140 s s e l e c t e d ) ) ) ( I
0033160 n s t a n c e V a r i a b l e s
0033200 ( l e f t N I L d o c (
0033220 * l e f t p o s i t i o n
0033240 o f w i n d o w ) ) ( b o t
0033260 t o m N I L \r d o c ( *
0033300 b o t t o m p o s i t i o n
0033320 o f w i n d o w ) ) ( w i d
0033340 t h 1 2 d o c ( * i n n
0033360 e r w i d t h o f w i n d
0033400 o w , n o t c o u n t i n g
0033420 b o r d e r ) ) ( \r h e i g
0033440 h t 1 2 d o c ( * i n n
0033460 e r h e i g h t o f w i n
0033500 d o w , n o t c o u n t i n
0033520 g b o r d e r ) ) ( w i n d
0033540 o w # ( N I L G e t L i s p
0033560 W i n d o w \r \t \t \t \t \t \t \t \t
0033600 \t P u t L i s p W i n
0033620 d o w ) d o c ( * * \r H
0033640 o l d s r e a l w i n d o w
0033660 . E n s u r e d t o b e
0033700 w i n d o w b y G e t L i s
0033720 p W i n d o w P u t L i s p W
0033740 i n d o w ) ) ( t i t l e N
0033760 I L d o c ( * I f n o t
0034000 N I L \r w i l l b e p u
0034020 t i n t i t l e o f w i
0034040 n d o w ) ) ( m e n u s T
0034060 D o n t S a v e A n y T i t
0034100 l e N I L L e f t B u t t o
0034120 n I t e m s N I L M i d d l
0034140 e B u t t o n I t e m s \r N I
0034160 L T i t l e I t e m s N I L
0034200 d o c ( * C a c h e F o
0034220 r S a v e d M e n u s . W
0034240 i l l C a c h e M e n u s
0034260 o n l y i f v a l u e i s
0034300 T ) ) ) ) \r ( M E T H L o o
0034320 p s I c o n B r o w s e O b j
0034340 e c t N I L ( * P u t u
0034360 p a b r o w s e r s t a r
0034400 t i n g o n s e l e c t e d
0034420 o b j e c t ) ) \r ( M E T H
0034440 L o o p s I c o n F i l e B r
0034460 o w s e N I L ( * B r o w
0034500 s e n a m e d f i l e ) ) \r
0034520 ( M E T H L o o p s I c o n
0034540 F u l l P r e s s P r i n t e r
0034560 N I L ( * S e t u p f
0034600 u l l p r e s s p r i n t e
0034620 r ) ) \r ( M E T H L o o p s I
0034640 c o n N o r m a l V i d e o R
0034660 a t e N I L ( * S e t r
0034700 e f r e s h r a t e t o n
0034720 o r m a l ) ) \r ( M E T H L o
0034740 o p s I c o n P r e s s S c r
0034760 e e n N I L ( * S a v e
0035000 s c r e e n o n f i l e ) )
0035020 \r ( M E T H L o o p s I c o n
0035040 P r e s s W i n d o w N I L
0035060 ( * S e n d W i n d o w
0035100 t o r e q u e s t e d P r e
0035120 s s F i l e ) ) \r ( M E T H
0035140 L o o p s I c o n P r i n t S
0035160 c r e e n N I L ( * P r i
0035200 n t f u l l S c r e e n o
0035220 n F u l l P r e s s P r i n
0035240 t e r ) ) \r ( M E T H L o o p
0035260 s I c o n P r i n t W i n d o
0035300 w N I L ( * P r i n t S
0035320 e l e c t e d W i n d o w ) )
0035340 \r ( M E T H L o o p s I c o n
0035360 S e t U p D e m o N I L N
0035400 I L ) \r ( M E T H L o o p s I
0035420 c o n S e t U p S c r e e n
0035440 N I L ( * M e t h o d t o
0035460 s e t u p s c r e e n ) )
0035500 \r ( M E T H L o o p s I c o n
0035520 T a p e V i d e o R a t e N
0035540 I L ( * S e t s c r e e n
0035560 r a t e f o r t a p i n g
0035600 ) ) \r ( M E T H L o o p s I c
0035620 o n U s e r E x e c N I L
0035640 ( * A d d a n e w p r o
0035660 c e s s r u n n i n g t h e
0035700 U s e r E x e c ) ) \r ( M E
0035720 T H W i n d o w B l i n k
0035740 ( n u m B l i n k s ) ( * T
0035760 u r n W i n d o w i n v e r
0036000 t e d , d i s m i s s f o r
0036020 2 0 0 , a n d r e t u r n
0036040 i t t o n o r m a l ) ) \r
0036060 ( M E T H W i n d o w B u r
0036100 y N I L ( * C a l l s B
0036120 U R Y W o n w i n d o w ) )
0036140 \r ( M E T H W i n d o w B u
0036160 t t o n E v e n t F n N I L
0036200 N I L ) \r ( M E T H W i n d o
0036220 w C V I t e m s ( i t e m C
0036240 V ) ( * G e t i t e m l
0036260 i s t f o r m e n u ) ) \r (
0036300 M E T H W i n d o w C h o i
0036320 c e M e n u ( i t e m C V )
0036340 N I L ) \r ( M E T H W i n d o
0036360 w C l e a r N I L ( * C
0036400 a l l s C L E A R W o n w
0036420 i n d o w ) ) \r ( M E T H W i
0036440 n d o w C l e a r M e n u C a
0036460 c h e N I L ( * D e l e t
0036500 e M e n u s s a v e d o n
0036520 m e n u s ) ) \r ( M E T H W
0036540 i n d o w C l o s e N I L
0036560 ( * C l o s e t h e w i n
0036600 d o w ) ) \r ( M E T H W i n d
0036620 o w C r e a t e W i n d o w
0036640 N I L N I L ) \r ( M E T H W
0036660 i n d o w D e s t r o y N I
0036700 L ( * g e t p r o p e r t
0036720 y f r o m w i n d o w ) ) \r
0036740 ( M E T H W i n d o w G e t
0036760 P r o p ( p r o p ) ( * g
0037000 e t p r o p e r t y f r o m
0037020 w i n d o w ) ) \r ( M E T H
0037040 W i n d o w H a s L i s p W i
0037060 n d o w N I L ( * C h e c
0037100 k s i f a L i s p w i n
0037120 d o w h a s e v e r b e e
0037140 n c r e a t e d f o r t h
0037160 i s L o o p s W i n d o w )
0037200 \r ) \r ( M E T H W i n d o w
0037220 I t e m M e n u N I L N I L
0037240 ) \r ( M E T H W i n d o w L
0037260 e f t C h o i c e N I L ( *
0037300 G e t t h e c h o i c e s
0037320 f r o m t h e L e f t B u
0037340 t t o n I t e m s ) ) \r ( M E T
0037360 H W i n d o w L e f t S e l
0037400 e c t i o n N I L ( * M a
0037420 k e c h o i c e f o r L e
0037440 f t B u t t o n d o w n ) )
0037460 \r ( M E T H W i n d o w M i
0037500 d d l e C h o i c e N I L (
0037520 * M a k e c h o i c e f o
0037540 r M i d d l e B u t t o n
0037560 d o w n ) ) \r ( M E T H W i n
0037600 d o w M i d d l e S e l e c t
0037620 i o n N I L ( * D o M i
0037640 d d l e B u t t o n I t e m s
0037660 o n s e l e c t i o n ) ) \r (
0037700 M E T H W i n d o w M o v e
0037720 ( x O r P o s y ) ( * M
0037740 o v e t h e w i n d o w ) )
0037760 \r ( M E T H W i n d o w O p
0040000 e n N I L ( * O p e n t
0040020 h e w i n d o w ) ) \r ( M E T
0040040 H W i n d o w P a i n t N
0040060 I L ( * C a l l s p a i n
0040100 t o n w i n d o w ) ) \r ( M
0040120 E T H W i n d o w R e p a i
0040140 n t ( r e g a l w a y s F l
0040160 g ) ( * C a l l s U p d a
0040200 t e o n w i n d o w ) ) \r (
0040220 M E T H W i n d o w R i g h
0040240 t B u t t o n F n N I L N I
0040260 L ) \r ( M E T H W i n d o w
0040300 R i g h t S e l e c t i o n N
0040320 I L ( * D o R i g h t B u
0040340 t t o n I t e m s o n s e l
0040360 e c t i o n . ) ) \r ( M E T H
0040400 W i n d o w S e t P r o p (
0040420 p r o p v a l u e ) ( * s
0040440 e t v a l u e i n r e a l
0040460 w i n d o w ) ) \r ( M E T H
0040500 W i n d o w S e t R e g i o n
0040520 ( r e g i o n d o n t U p d
0040540 a t e F l g ) ( * M a k e
0040560 L o o p s W i n d o w h a v
0040600 e r e g i o n p a r a m e t
0040620 e r s ) ) \r ( M E T H W i n d
0040640 o w S h a p e ( n e w R e g
0040660 i o n ) ( * S h a p e s o
0040700 u t s i d e o f r e g i o n
0040720 t o s p e c i f i e d s h
0040740 a p e . % . ) ) \r ( M E T H
0040760 W i n d o w S h a p e ? N I
0041000 L ( * R e t u r n s t h e
0041020 c u r r e n t r e g i o n
0041040 f o r w i n d o w ) ) \r ( M E
0041060 T H W i n d o w S h r i n k
0041100 ( t o w h a t i c o n P o s
0041120 e x p a n d F n ) ( * C a
0041140 l l s S H R I N K W o n w
0041160 i n d o w ) ) \r ( M E T H W i
0041200 n d o w S n a p N I L ( *
0041220 T a k e s s n a p s h o t
0041240 o f s c r e e n ) ) \r ( M E T
0041260 H W i n d o w T i t l e S e
0041300 l e c t i o n N I L ( * D
0041320 o T i t l e I t e m s i f
0041340 s e l e c t e d i n t i t l
0041360 e a r e a ) ) \r ( M E T H W
0041400 i n d o w T o T o p N I L
0041420 ( * O p e n w i n d o w a
0041440 n d t h e n b r i n g i t
0041460 t o t o p ) ) \r ( M E T H
0041500 W i n d o w U p d a t e N I
0041520 L ( * m a k e t h e I V
0041540 w i n d o w b e a w i n
0041560 d o w w i t h p r o p e r t
0041600 i e s c o n s i s t e n t w
0041620 i t h i v s ) ) \r ( M E T H
0041640 W i n d o w W h e n M e n u I
0041660 t e m H e l d ( i t e m m e
0041700 n u k e y ) ( * W h a t
0041720 t o d o w h e n t h e m
0041740 e n u i t e m i s h e l d
0041760 ) ) \r ( P U T P R O P S L O O
0042000 P S W I N D O W C O P Y R I G
0042020 H T ( " X e r o x C o r p o
0042040 r a t i o n " 1 9 8 3 1 9 8
0042060 4 ) ) \r N I L \r
0042070