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