$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>TEDITWINDOW!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " I N
0000040 T E R L I S P " 247 P A C K A G
0000060 E " I N T E R L I S P " ) \r 006
0000100 001 ( F I L E C R E A T E D " 3
0000120 1 - M a r - 8 7 1 2 : 0 6 : 4
0000140 1 " 006 004 { E R I S } < T E d i
0000160 t > T E D I T W I N D O W . ; 5
0000200 8 006 001 1 5 4 8 2 3 \r \r
0000220 c h a n g e s t o % :
0000240 ( V A R S T E D I T W I N D
0000260 O W C O M S ) \r
0000300 ( F N S
0000320 \ E D I T . F L I P C A R E T
0000340 ) \r \r p r e v i o u
0000360 s d a t e % : " 3 0 - D e c
0000400 - 8 6 1 9 : 3 6 : 4 5 " { E
0000420 R I S } < T E D I T > T E D I T
0000440 W I N D O W . ; 5 6 ) \r \r \r ( *
0000460 " \r C o p y r i g h t ( c )
0000500 1 9 8 3 , 1 9 8 4 , 1 9 8
0000520 5 , 1 9 8 6 , 1 9 8 7 b y
0000540 J o h n S y b a l s k y &
0000560 X e r o x C o r p o r a t i
0000600 o n . A l l r i g h t s
0000620 r e s e r v e d . \r " ) \r \r ( P
0000640 R E T T Y C O M P R I N T T E
0000660 D I T W I N D O W C O M S ) \r \r
0000700 ( R P A Q Q 006 002 T E D I T W I
0000720 N D O W C O M S 006 001 \r
0000740 [ ( F I L E S T E D I T
0000760 D E C L S ) \r (
0001000 D E C L A R E % : E V A L @ C
0001020 O M P I L E D O N T C O P Y
0001040 ( C O N S T A N T S ( \ S C R
0001060 A T C H L E N 6 4 ) ) \r
0001100 ( F I L
0001120 E S ( L O A D C O M P ) \r
0001140
0001160 T E D I T D E C L S ) )
0001200 \r ( F I L E S
0001220 A T T A C H E D W I N D O W ) \r
0001240 ( F N S T E D
0001260 I T . C R E A T E W \ T E D I
0001300 T . C R E A T E W . F R O M . R
0001320 E G I O N T E D I T . C U R S
0001340 O R M O V E D F N T E D I T .
0001360 C U R S O R O U T F N \r
0001400 T E D I T .
0001420 W I N D O W . S E T U P T E D
0001440 I T . M I N I M A L . W I N D O
0001460 W . S E T U P \ T E D I T . A
0001500 C T I V E . W I N D O W P \ T
0001520 E D I T . B U T T O N E V E N T
0001540 F N \r
0001560 \ T E D I T . W I N D O W . O
0001600 P S \ T E D I T . E X P A N D
0001620 F N \ T E D I T . M A I N W
0001640 \ T E D I T . P R I M A R Y W
0001660 \ T E D I T . C O P Y I N S E R
0001700 T F N \r
0001720 \ T E D I T . N E W R E G I
0001740 O N F N \ T E D I T . S E T .
0001760 W I N D O W . E X T E N T \ T
0002000 E D I T . S H R I N K . I C O N
0002020 C R E A T E \ T E D I T . S H
0002040 R I N K F N \r
0002060 \ T E D I T . S P L I
0002100 T W \ T E D I T . U N S P L I
0002120 T W \ T E D I T . W I N D O W
0002140 . S E T U P \ S A F E . F I R
0002160 S T ) \r ( C U R
0002200 S O R S B X C A R E T B X H
0002220 I C A R E T T E D I T . L I N
0002240 E C U R S O R \ T E D I T . S
0002260 P L I T C U R S O R \ T E D I
0002300 T . M O V E S P L I T C U R S O
0002320 R \r
0002340 \ T E D I T . U N S P L I T
0002360 C U R S O R \ T E D I T . M A
0002400 K E S P L I T C U R S O R ) \r
0002420 ( I N I T V A R S
0002440 ( T E D I T . D E F A U L T .
0002460 W I N D O W N I L ) ) \r
0002500 ( G L O B A L V A R S
0002520 T E D I T . D E F A U L T . W
0002540 I N D O W ) \r (
0002560 C O M S
0002600
*
0002640 006 006 ( * ; " U s e r
0002660 - t y p e i n s u p p o r t "
0002700 ) 006 001 \r
0002720 ( F N S T E D I T . G E T
0002740 I N P U T \ T E D I T . M A K
0002760 E F I L E N A M E ) ) \r
0003000 ( C O M S
0003020
*
0003060 006 006 ( * ;
0003100 " A t t a c h e d P r o m p t
0003120 w i n d o w s u p p o r t .
0003140 " ) 006 001 \r
0003160 ( F N S T E D I T . P R
0003200 O M P T P R I N T T E D I T .
0003220 P R O M P T F L A S H \ T E D
0003240 I T . P R O M P T . P A G E F U
0003260 L L F N ) \r
0003300 ( I N I T V A R S ( T
0003320 E D I T . P R O M P T . F O N T
0003340 ( F O N T C R E A T E ' G A
0003360 C H A 1 0 ) ) \r
0003400 ( T
0003420 E D I T . P R O M P T W I N D O
0003440 W . H E I G H T N I L ) ) \r
0003460 ( G L
0003500 O B A L V A R S T E D I T . P
0003520 R O M P T . F O N T T E D I T
0003540 . P R O M P T W I N D O W . H E
0003560 I G H T ) ) \r (
0003600 C O M S
0003620
*
0003660 006 006 ( * ; " T i t l
0003700 e c r e a t i o n a n d u
0003720 p d a t e " ) 006 001 \r
0003740 ( F N S T E X
0003760 T S T R E A M . T I T L E \ T
0004000 E D I T . O R I G I N A L . W I
0004020 N D O W . T I T L E \ T E D I
0004040 T . W I N D O W . T I T L E \r
0004060
0004100 \ T E X T S T R E A M . F
0004120 I L E N A M E ) ) \r
0004140 ( C O M S
0004160
*
0004220 006 006 ( * ; " S
0004240 c r e e n u p d a t i n g u
0004260 t i l i t i e s " ) 006 001 \r
0004300 ( F N S
0004320 T E D I T . D E A C T I V A T E
0004340 . W I N D O W \ T E D I T . R
0004360 E P A I N T F N \ T E D I T .
0004400 R E S H A P E F N \ T E D I T
0004420 . S C R O L L F N ) ) \r
0004440 ( C O M S
0004460
*
0004520 006 006 ( * ;
0004540 " P r o c e s s - w o r l d i
0004560 n t e r f a c e s " ) 006 001 \r
0004600 ( F N S
0004620 \ T E D I T . P R O C I D L E
0004640 F N \ T E D I T . P R O C E N
0004660 T R Y F N \ T E D I T . P R O
0004700 C E X I T F N ) ) \r
0004720 ( C O M S ( I N I T V A R
0004740 S ( \ C A R E T R A T E 3 3
0004760 3 ) ) \r
0005000
*
0005060 006 006 ( * ; " C a r e t h
0005100 a n d l e r ; s t o l e n
0005120 f r o m C H A T . " ) 006 001 \r
0005140 ( F N
0005160 S \ E D I T . D O W N C A R E
0005200 T \ E D I T . F L I P C A R E
0005220 T T E D I T . F L A S H C A R
0005240 E T \ E D I T . U P C A R E T
0005260 \r
0005300 T E D I T . N O R M A
0005320 L I Z E C A R E T \ S E T C A
0005340 R E T \ T E D I T . C A R E T
0005360 ) ) \r [ C O M S
0005400
*
0005460 006 006 ( * ; " M e n u i n t
0005500 e r f a c i n g " ) 006 001 \r
0005520 ( F N S
0005540 T E D I T . A D D . M E N U I T
0005560 E M T E D I T . D E F A U L T
0005600 . M E N U F N T E D I T . R E
0005620 M O V E . M E N U I T E M \ T
0005640 E D I T . C R E A T E M E N U
0005660 \r
0005700 \ T E D I T . M E N U .
0005720 W H E N H E L D F N \ T E D I
0005740 T . M E N U . W H E N S E L E C
0005760 T E D F N ) \r
0006000 ( G L O B A L V A R S
0006020 T E D I T . D E F A U L T . M
0006040 E N U ) \r
0006060 [ D E C L A R E % : D O
0006100 N T E V A L @ L O A D D O C O
0006120 P Y \r
0006140 ( V A R S ( T
0006160 E D I T . D E F A U L T . M E N
0006200 U ( \ T E D I T . C R E A T E
0006220 M E N U ' ( ( P u t ' P u t
0006240 N I L ( S U B I T E M S \r
0006260
*
0006400 P l a i n - T
0006420 e x t \r
0006440
*
0006540 O l
0006560 d - F o r m a t ) ) \r
0006600
*
0006660 (
0006700 G e t ' G e t N I L ( S U
0006720 B I T E M S \r
0006740
*
0007040 U n f
0007060 o r m a t t e d % G e t \r
0007100
*
0007220 ) ) \r
0007240
*
0007320 I n
0007340 c l u d e F i n d L o o k s
0007360 S u b s t i t u t e \r
0007400
*
0007500 Q u i t \r
0007520
*
0007600 ( E x p a n
0007620 d e d % M e n u ' E x p a n
0007640 d e d % M e n u \r
0007660
*
0007760 N I L \r
0010000
*
0010100 ( S U B I T E M S E
0010120 x p a n d e d % M e n u \r
0010140
*
0010260 C h a r a c t e r % L o o k
0010300 s \r
0010320
*
0010420 P a r a g r a p h % F o
0010440 r m a t t i n g \r
0010460
*
0010560 P a g e
0010600 % L a y o u t ] \r
0010620 ( D E C L A R E
0010640 % : D O N T E V A L @ L O A D
0010660 D O C O P Y ( P [ O R (
0010700 S A S S O C ' T E d i t B a
0010720 c k g r o u n d M e n u C o m m
0010740 a n d s ) \r
0010760
*
0011020 ( N C O N
0011040 C 1 B a c k g r o u n d M e n
0011060 u C o m m a n d s \r
0011100
*
0011160 ' ( T E d i t ' (
0011200 T E D I T ) \r
0011220
*
0011300 " O p e
0011320 n s a T E d i t w i n d o
0011340 w f o r u s e . " ] \r
0011360
*
0011420 ( S
0011440 E T Q B a c k g r o u n d M e
0011460 n u N I L ] \r
0011500 ( C O M S
0011520
*
0011560 006 006 ( * ; " t i t
0011600 l e d i c o n i n f o " ) 006
0011620 001 \r
0011640 ( F I L E S I C O N W ) \r
0011660 ( B I T
0011700 M A P S T E D I T I C O N T
0011720 E D I T M A S K ) \r
0011740 ( I N I T V A R
0011760 S ( T E D I T . I C O N . F O
0012000 N T ( F O N T C R E A T E '
0012020 H E L V E T I C A 8 ' B O L
0012040 D ) ) \r
0012060 ( T E D I T .
0012100 I C O N . T I T L E . R E G I O
0012120 N ( c r e a t e R E G I O N
0012140 B O T T O M _ 4 L E F T
0012160 _ 1 6 W I D T H _ 6 4
0012200 H E I G H T _ \r
0012220
*
0012300 7 7 ) ) \r
0012320 ( T E D I T
0012340 . T I T L E D . I C O N . T E M
0012360 P L A T E ( c r e a t e T I
0012400 T L E D I C O N I C O N _
0012420 T E D I T I C O N M A S K _
0012440 T E D I T M A S K \r
0012460
*
0012540 T I T L E R E G _ T
0012560 E D I T . I C O N . T I T L E .
0012600 R E G I O N ] ) \r ( F I L E S L
0012620 O A D T E D I T D E C L S ) \r
0012640 ( D E C L A R E % : E V A L @
0012660 C O M P I L E D O N T C O P Y
0012700 \r ( D E C L A R E % : E V A
0012720 L @ C O M P I L E \r \r ( R P A
0012740 Q Q 006 002 \ S C R A T C H L E N
0012760 006 001 6 4 ) \r \r ( C O N S T A N
0013000 T S ( \ S C R A T C H L E N
0013020 6 4 ) ) \r ) \r \r ( F I L E S L O
0013040 A D ( L O A D C O M P ) \r
0013060 T E D I T D E C L S )
0013100 \r ) \r ( F I L E S L O A D A T
0013120 T A C H E D W I N D O W ) \r ( D
0013140 E F I N E Q \r \r ( 006 004 T E D I T
0013160 . C R E A T E W 006 001 \r [ L A
0013200 M B D A ( P R O M P T F I L
0013220 E P R O P S ) 006 006 006 001
0013240
0013260 006 006 ( *
0013300 j d s " 2 3 - M a y - 8 5
0013320 1 5 : 1 9 " ) 006 001 \r ( C
0013340 L R P R O M P T ) \r ( p
0013360 r i n t o u t P R O M P T W I
0013400 N D O W P R O M P T T ) \r
0013420 ( P R O G ( ( P R O M P
0013440 T ( L I S T G E T P R O P S
0013460 ' P R O M P T W I N D O W ) )
0013500 \r ( P H E
0013520 I G H T 0 ) \r
0013540 P W I N D O W R E G I O
0013560 N ) \r [ C O
0013600 N D \r
0013620 ( ( E Q P R O M P T ' D O N
0013640 ' T ) ) \r
0013660 ( P R O M P T ) \r
0013700 ( T ( S E T Q
0013720 P H E I G H T ( H E I G H T
0013740 I F W I N D O W ( I T I M E S
0013760 ( O R ( L I S T G E T P R
0014000 O P S ' P R O M P T W I N D O
0014020 W H E I G H T ) \r
0014040
*
0014120 T E D I T . P R O M P T W
0014140 I N D O W . H E I G H T 1 ) \r
0014160
*
0014240 ( F O N T P R O P T
0014260 E D I T . P R O M P T . F O N T
0014300 ' H E I G H T ] \r
0014320 ( S E T Q R E G I O N
0014340 ( G E T R E G I O N 3 2 (
0014360 I P L U S P H E I G H T 3 2
0014400 ) ) ) \r ( 006
0014420 002 a d d 006 001 ( 006 002 f e t c h 006
0014440 001 H E I G H T 006 002 o f 006 001
0014460 R E G I O N ) \r
0014500 ( I M I N U S P
0014520 H E I G H T ) ) \r
0014540 ( S E T Q T E D I T . D
0014560 E F A U L T . W I N D O W ( C
0014600 R E A T E W R E G I O N ( 006
0014620 002 \ T E D I T . O R I G I N A L
0014640 . W I N D O W . T I T L E 006 001
0014660 F I L E ) ) ) \r
0014700 ( C L R P R O M P T ) \r
0014720 ( O R P R O M
0014740 P T ( G E T P R O M P T W I N
0014760 D O W T E D I T . D E F A U L
0015000 T . W I N D O W ( O R ( L I
0015020 S T G E T P R O P S ' P R O
0015040 M P T W I N D O W H E I G H T )
0015060 \r
0015100
*
0015160 T E D I T . P R O M P T W I N D
0015200 O W . H E I G H T 1 ) \r
0015220
0015240 T E D I T . P
0015260 R O M P T . F O N T ) ) ) \r
0015300 T E D I T . D E F A U L T .
0015320 W I N D O W ] ) \r \r ( 006 004 \ T E
0015340 D I T . C R E A T E W . F R O M
0015360 . R E G I O N 006 001 \r [ L A M
0015400 B D A ( R E G I O N F I L E
0015420 P R O P S ) 006 006 006 001
0015440
0015460 006 006 ( *
0015500 g b n " 1 5 - N o v - 8 4 1
0015520 8 : 0 4 " ) 006 001 \r ( P R
0015540 O G ( ( P R O M P T ( L I S
0015560 T G E T P R O P S ' P R O M
0015600 P T W I N D O W ) ) \r
0015620 ( P H E I G H T 0
0015640 ) \r P W I
0015660 N D O W ) \r
0015700 [ C O N D \r
0015720 ( ( E Q P R O M P T '
0015740 D O N ' T ) ) \r
0015760 ( P R O M P T ) \r
0016000 ( T ( S
0016020 E T Q P H E I G H T ( H E I
0016040 G H T I F W I N D O W ( I T I
0016060 M E S ( O R ( L I S T G E T
0016100 P R O P S ' P R O M P T W I
0016120 N D O W H E I G H T ) \r
0016140
*
0016220 T E D I T . P R O M
0016240 P T W I N D O W . H E I G H T
0016260 1 ) \r
0016300
*
0016340 ( F O N T P R O
0016360 P T E D I T . P R O M P T . F
0016400 O N T ' H E I G H T ] \r
0016420 ( S E T Q T E D
0016440 I T . D E F A U L T . W I N D O
0016460 W ( C R E A T E W R E G I O
0016500 N ( 006 002 \ T E D I T . O R I G
0016520 I N A L . W I N D O W . T I T L
0016540 E 006 001 F I L E ) ) ) \r
0016560 ( W I N D O W P R O
0016600 P T E D I T . D E F A U L T .
0016620 W I N D O W ' T E D I T C R E
0016640 A T E D T ) \r
0016660 ( O R P R O M P T ( G E
0016700 T P R O M P T W I N D O W T E
0016720 D I T . D E F A U L T . W I N D
0016740 O W ( O R ( L I S T G E T
0016760 P R O P S ' P R O M P T W I N
0017000 D O W H E I G H T ) \r
0017020
*
0017100 T E D I T .
0017120 P R O M P T W I N D O W . H E I
0017140 G H T 1 ) \r
0017160
0017200 T E D I T . P R O M P T .
0017220 F O N T ) ) ) \r T E D I
0017240 T . D E F A U L T . W I N D O W
0017260 ] ) \r \r ( 006 004 T E D I T . C U R
0017300 S O R M O V E D F N 006 001 \r [
0017320 L A M B D A ( W ) 006 006 006 001
0017340
*
0017400 006 006
0017420 ( * j d s " 3 1 - J u l - 8
0017440 5 2 0 : 3 4 " ) 006 001 \r
0017460 \r
0017500 006 006 ( * W a t c h t h e
0017520 m o u s e a n d c h a n g e
0017540 t h e c u r s o r t o r
0017560 e f l e c t t h e r e g i o
0017600 n o f t h e w i n d o w
0017620 \r 006 001 006 006 i
0017640 t ' s i n ( l i n e s e l
0017660 e c t , w i n d o w s p l i
0017700 t e v e n t u a l l y ? ) ) 006
0017720 001 \r \r ( P R O G ( ( X
0017740 ( L A S T M O U S E X W ) )
0017760 \r ( Y (
0020000 L A S T M O U S E Y W ) ) \r
0020020 ( T E X T O
0020040 B J ( W I N D O W P R O P W
0020060 ' T E X T O B J ) ) \r
0020100 ( C U R S O R R E
0020120 G ( W I N D O W P R O P W
0020140 ' T E D I T . C U R S O R R E G
0020160 I O N ) ) \r
0020200 L I N E L E F T R I G H T
0020220 ) \r ( C O N
0020240 D \r (
0020260 ( I N S I D E ? C U R S O R R
0020300 E G X Y )
0020320 006
0020340 006 ( * D o n o t h i n g ) 006
0020360 001 \r
0020400 N I L ) \r
0020420 ( T ( S E T Q L I N E
0020440 ( \ T E D I T . F I N D . O V E
0020460 R L A P P I N G . L I N E ( 006
0020500 002 f o r 006 001 L I N E S \r
0020520
*
0020600 006 002 i n s i d
0020620 e 006 001 ( 006 002 f e t c h 006 001 L
0020640 I N E S 006 002 o f 006 001 T E X T
0020660 O B J ) \r
0020700
*
0020760 006 002 a s 006 001 W I N D O W \r
0021000
*
0021060 006 002 i n s
0021100 i d e 006 001 ( 006 002 f e t c h 006 001
0021120 \ W I N D O W 006 002 o f 006 001
0021140 T E X T O B J ) \r
0021160
*
0021240 006 002 w h e n 006 001 ( E
0021260 Q W W I N D O W ) \r
0021300
*
0021360 006 002 d o 006 001 (
0021400 R E T U R N L I N E S ) ) \r
0021420
*
0021460 Y ) ) \r
0021500 [ C O N D \r
0021520 ( L
0021540 I N E ( 006 002 r e p l a c e 006 001
0021560 B O T T O M 006 002 o f 006 001 C
0021600 U R S O R R E G 006 002 w i t h 006
0021620 001 ( 006 002 f e t c h 006 001 Y B O
0021640 T 006 002 o f 006 001 L I N E ) ) \r
0021660
0021700 ( 006 002 r e p l
0021720 a c e 006 001 H E I G H T 006 002 o
0021740 f 006 001 C U R S O R R E G 006 002
0021760 w i t h 006 001 ( 006 002 f e t c h 006
0022000 001 L H E I G H T 006 002 o f 006 001
0022020 L I N E ] \r
0022040 ( S E L E C T Q
0022060 ( 006 002 f e t c h 006 001 M O U S E
0022100 R E G I O N 006 002 o f 006 001 T E
0022120 X T O B J ) \r
0022140 ( T E X T
0022160 [ C O N D \r
0022200
0022220 ( ( I G E Q X ( S E
0022240 T Q L E F T ( I D I F F E R
0022260 E N C E ( 006 002 f e t c h 006 001
0022300 W R I G H T 006 002 o f 006 001 T E
0022320 X T O B J ) \r
0022340
*
0022400 8
0022420 ) ) ) \r
0022440
0022460 ( C U R S O R \ T E D I T
0022500 . S P L I T C U R S O R ) \r
0022520
0022540 ( 006 002 r
0022560 e p l a c e 006 001 M O U S E R E
0022600 G I O N 006 002 o f 006 001 T E X T
0022620 O B J 006 002 w i t h 006 001 ' W I
0022640 N D O W ) \r
0022660
0022700 ( 006 002 r e p l a c e 006 001
0022720 L E F T 006 002 o f 006 001 C U R
0022740 S O R R E G 006 002 w i t h 006 001
0022760 L E F T ) \r
0023000
0023020 ( 006 002 r e p l a c e 006 001
0023040 W I D T H 006 002 o f 006 001 C U
0023060 R S O R R E G 006 002 w i t h 006 001
0023100 8 ) ) \r
0023120
0023140 ( [ I L E S S P X ( S E
0023160 T Q L E F T \r
0023200
*
0023240 ( O R [ A N D L I N E (
0023260 C O N D \r
0023300
*
0023340 (
0023360 ( 006 002 f e t c h 006 001 F M T H A
0023400 R D C O P Y \r
0023420
*
0023500 006 002 o f 006 001 ( 006 002 f
0023520 e t c h 006 001 L F M T S P E C
0023540 006 002 o f 006 001 L I N E ) ) \r
0023560
*
0023640 ( F I X R (
0023660 F Q U O T I E N T ( 006 002 f e t
0023700 c h 006 001 L E F T M A R G I N \r
0023720
*
0024020 006
0024040 002 o f 006 001 L I N E ) \r
0024060
*
0024160 3 5 . 2 7 7 7 8 ) ) ) \r
0024200
*
0024260 ( T ( 006 002
0024300 f e t c h 006 001 L E F T M A R G
0024320 I N 006 002 o f 006 001 L I N E ] \r
0024340
*
0024400 ( I P
0024420 L U S ( 006 002 f e t c h 006 001 W
0024440 L E F T 006 002 o f 006 001 T E X T
0024460 O B J ) \r
0024500
*
0024540 8 ]
0024560 006 006 ( * I n l e f t m
0024600 a r g i n ; s w i t c h t o
0024620 t h e \r 006 001
0024640
*
0024720 006 006 l i n e - s e l e
0024740 c t c u r s o r ) 006 001 \r
0024760
0025000 ( C U R S
0025020 O R T E D I T . L I N E C U R
0025040 S O R ) \r
0025060
0025100 ( 006 002 r e p l a c e 006 001
0025120 M O U S E R E G I O N 006 002 o f
0025140 006 001 T E X T O B J 006 002 w i t
0025160 h 006 001 ' L I N E ) \r
0025200
0025220 ( 006 002 r e p l
0025240 a c e 006 001 L E F T 006 002 o f 006
0025260 001 C U R S O R R E G 006 002 w i
0025300 t h 006 001 0 ) \r
0025320
0025340 ( 006 002 r e p l a c e
0025360 006 001 W I D T H 006 002 o f 006 001
0025400 C U R S O R R E G 006 002 w i t h
0025420 006 001 L E F T ) ) \r
0025440
0025460 ( T ( 006 002 r e p
0025500 l a c e 006 001 L E F T 006 002 o f
0025520 006 001 C U R S O R R E G 006 002 w
0025540 i t h 006 001 L E F T ) \r
0025560
0025600 ( 006 002 r
0025620 e p l a c e 006 001 W I D T H 006
0025640 002 o f 006 001 C U R S O R R E G
0025660 006 002 w i t h 006 001 ( I D I F F E
0025700 R E N C E ( 006 002 f e t c h 006 001
0025720 W R I G H T \r
0025740
*
0026040 006 002 o f 006 001
0026060 T E X T O B J ) \r
0026100
*
0026200 ( I P L U S L E F T 8 ] )
0026220 \r
0026240 ( L I N E ( C O N D
0026260 \r
0026300 ( (
0026320 I G E Q X ( S E T Q L E F
0026340 T ( I D I F F E R E N C E (
0026360 006 002 f e t c h 006 001 W R I G H T
0026400 006 002 o f 006 001 T E X T O B J )
0026420 \r
0026440
*
0026500 8 ) ) ) \r
0026520
0026540 ( C U R
0026560 S O R \ T E D I T . S P L I T
0026600 C U R S O R ) \r
0026620
0026640 ( 006 002 r e p l a c e
0026660 006 001 M O U S E R E G I O N 006
0026700 002 o f 006 001 T E X T O B J 006 002
0026720 w i t h 006 001 ' W I N D O W ) \r
0026740
0026760 ( 006
0027000 002 r e p l a c e 006 001 L E F T
0027020 006 002 o f 006 001 C U R S O R R E G
0027040 006 002 w i t h 006 001 L E F T ) \r
0027060
0027100 ( 006
0027120 002 r e p l a c e 006 001 W I D T H
0027140 006 002 o f 006 001 C U R S O R R E
0027160 G 006 002 w i t h 006 001 8 ) ) \r
0027200
0027220 [ [ I G
0027240 E Q X ( S E T Q L E F T \r
0027260
*
0027320 ( O R [ A N D
0027340 L I N E ( C O N D \r
0027360
*
0027440 ( ( 006 002 f e t c h 006 001 F
0027460 M T H A R D C O P Y \r
0027500
*
0027560 006 002 o f 006 001 ( 006
0027600 002 f e t c h 006 001 L F M T S P E
0027620 C 006 002 o f 006 001 L I N E ) ) \r
0027640
*
0027720 ( F I X R (
0027740 F Q U O T I E N T ( 006 002 f e t
0027760 c h 006 001 L E F T M A R G I N \r
0030000
*
0030100 006 002 o
0030120 f 006 001 L I N E ) \r
0030140
*
0030240 3 5 . 2 7 7 7 8 ) ) ) \r
0030260
*
0030340 ( T ( 006 002 f e t c h 006
0030360 001 L E F T M A R G I N 006 002 o
0030400 f 006 001 L I N E ] \r
0030420
*
0030460 ( I P L U S ( 006 002 f
0030500 e t c h 006 001 W L E F T 006 002 o
0030520 f 006 001 T E X T O B J ) \r
0030540
*
0030600 8
0030620 ] \r
0030640
0030660 ( C U R S O R T ) \r
0030700
0030720 ( 006 002 r e p l
0030740 a c e 006 001 M O U S E R E G I O
0030760 N 006 002 o f 006 001 T E X T O B J
0031000 006 002 w i t h 006 001 ' T E X T )
0031020 \r
0031040 (
0031060 006 002 r e p l a c e 006 001 L E F T
0031100 006 002 o f 006 001 C U R S O R R E
0031120 G 006 002 w i t h 006 001 L E F T )
0031140 \r
0031160 (
0031200 006 002 r e p l a c e 006 001 W I D T
0031220 H 006 002 o f 006 001 C U R S O R R
0031240 E G 006 002 w i t h 006 001 ( I D I
0031260 F F E R E N C E ( 006 002 f e t c
0031300 h 006 001 W R I G H T \r
0031320
*
0031420 006 002 o f 006 001
0031440 T E X T O B J ) \r
0031460
*
0031560 ( I P L U S L E F T 8 ] \r
0031600
0031620 ( T (
0031640 006 002 r e p l a c e 006 001 L E F T
0031660 006 002 o f 006 001 C U R S O R R E
0031700 G 006 002 w i t h 006 001 0 ) \r
0031720
0031740 ( 006
0031760 002 r e p l a c e 006 001 W I D T H
0032000 006 002 o f 006 001 C U R S O R R E
0032020 G 006 002 w i t h 006 001 L E F T )
0032040 ) ) ) \r
0032060 ( W I N D O W
0032100 ( C O N D \r
0032120
0032140 ( ( I G E Q X ( S
0032160 E T Q L E F T ( I D I F F E
0032200 R E N C E ( 006 002 f e t c h 006 001
0032220 W R I G H T 006 002 o f 006 001 T
0032240 E X T O B J ) \r
0032260
*
0032340 8 ) ) ) \r
0032360
0032400 ( 006 002 r e p l a c
0032420 e 006 001 M O U S E R E G I O N
0032440 006 002 o f 006 001 T E X T O B J 006
0032460 002 w i t h 006 001 ' W I N D O W )
0032500 \r
0032520
0032540 ( 006 002 r e p l a c e 006 001 L E
0032560 F T 006 002 o f 006 001 C U R S O R
0032600 R E G 006 002 w i t h 006 001 L E F
0032620 T ) \r
0032640
0032660 ( 006 002 r e p l a c e 006 001
0032700 W I D T H 006 002 o f 006 001 C U R
0032720 S O R R E G 006 002 w i t h 006 001
0032740 8 ) ) \r
0032760
0033000 ( [ I G E Q X ( S E T
0033020 Q L E F T \r
0033040
*
0033100 ( O R [ A N D L I N E ( C
0033120 O N D \r
0033140
*
0033200 ( (
0033220 006 002 f e t c h 006 001 F M T H A R
0033240 D C O P Y \r
0033260
*
0033340 006 002 o f 006 001 ( 006 002 f e
0033360 t c h 006 001 L F M T S P E C 006
0033400 002 o f 006 001 L I N E ) ) \r
0033420
*
0033500 ( F I X R ( F
0033520 Q U O T I E N T ( 006 002 f e t c
0033540 h 006 001 L E F T M A R G I N \r
0033560
*
0033660 006 002
0033700 o f 006 001 L I N E ) \r
0033720
*
0034020 3 5 . 2 7 7 7 8 ) ) ) \r
0034040
*
0034120 ( T ( 006 002 f
0034140 e t c h 006 001 L E F T M A R G I
0034160 N 006 002 o f 006 001 L I N E ] \r
0034200
*
0034240 ( I P L
0034260 U S ( 006 002 f e t c h 006 001 W L
0034300 E F T 006 002 o f 006 001 T E X T O
0034320 B J ) \r
0034340
*
0034400 8 ] \r
0034420
0034440 ( C U R S
0034460 O R T ) \r
0034500
0034520 ( 006 002 r e p l a c e
0034540 006 001 M O U S E R E G I O N 006
0034560 002 o f 006 001 T E X T O B J 006 002
0034600 w i t h 006 001 ' T E X T ) \r
0034620
0034640 ( 006
0034660 002 r e p l a c e 006 001 L E F T
0034700 006 002 o f 006 001 C U R S O R R E G
0034720 006 002 w i t h 006 001 L E F T ) \r
0034740
*
0035000 ( 006 002 r e p l a c e 006 001 W I D
0035020 T H 006 002 o f 006 001 C U R S O R
0035040 R E G 006 002 w i t h 006 001 ( I D
0035060 I F F E R E N C E ( 006 002 f e t
0035100 c h 006 001 W R I G H T \r
0035120
*
0035220 006 002 o
0035240 f 006 001 T E X T O B J ) \r
0035260
*
0035360 L E F T ) ) ) \r
0035400
0035420 ( T (
0035440 C U R S O R T E D I T . L I N
0035460 E C U R S O R ) \r
0035500
0035520 ( 006 002 r e
0035540 p l a c e 006 001 L E F T 006 002 o
0035560 f 006 001 C U R S O R R E G 006 002
0035600 w i t h 006 001 0 ) \r
0035620
0035640 ( 006 002 r
0035660 e p l a c e 006 001 W I D T H 006
0035700 002 o f 006 001 C U R S O R R E G
0035720 006 002 w i t h 006 001 L E F T ) ) )
0035740 ) \r
0035760 N I L ] ) \r \r ( 006 004
0036000 T E D I T . C U R S O R O U T F
0036020 N 006 001 \r [ L A M B D A ( W
0036040 ) 006 006 006 001
0036060
*
0036120 006 006 ( * j d s " 2
0036140 9 - M a y - 8 5 0 8 : 3 8 " )
0036160 006 001 \r \r
0036200 006 006 ( * C u r
0036220 s o r l e a v e s e d i t
0036240 w i n d o w ; m a k e s u r
0036260 e w e t h i n k w e ' r e
0036300 i n t h e t e x t r e g
0036320 i o n . ) 006 001 \r \r ( P R
0036340 O G [ ( T E X T O B J ( W I
0036360 N D O W P R O P W ' T E X T
0036400 O B J ] \r (
0036420 C U R S O R T ) \r
0036440 ( 006 002 r e p l a c e 006 001
0036460 M O U S E R E G I O N 006 002 o
0036500 f 006 001 T E X T O B J 006 002 w i
0036520 t h 006 001 ' T E X T ] ) \r \r ( 006
0036540 004 T E D I T . W I N D O W . S E
0036560 T U P 006 001 \r [ L A M B D A
0036600 ( W I N D O W T E X T O B J
0036620 T E X T S T R E A M P R O P S
0036640 A F T E R W I N D O W ) 006 006 006
0036660 001 006 006 ( * ; " E
0036700 d i t e d 3 0 - D e c - 8 6
0036720 1 6 : 3 3 b y j d s " ) 006 001
0036740 \r \r
0036760 006 006 ( * ; ; " S
0037000 e t u p t h e w i n d o w
0037020 a n d T E X T O B J s o
0037040 t h e y c o r r e s p o n d ,
0037060 a n d t h e w i n d o w
0037100 i s a T E D I T w i n d o
0037120 w . " ) 006 001 \r
0037140 \r 006 006 ( *
0037160 ; ; " D o t h e m i n i
0037200 m a l , e v e r y o n e - w a
0037220 n t s - i t s t y l e o f
0037240 s e t u p . L e a v e m o
0037260 r e s p e c i a l i z e d s
0037300 e t u p f o r o t h e r f
0037320 u n c t i o n s . " ) 006 001 \r \r
0037340 ( P R O G ( ( S E L (
0037360 006 002 f e t c h 006 001 S E L 006 002
0037400 o f 006 001 T E X T O B J ) ) \r
0037420 T E D I T P
0037440 R O M P T W I N D O W D S P
0037460 R O P T W I D T H T H E I G
0037500 H T ) \r ( O
0037520 R W I N D O W ( \ I L L E G
0037540 A L . A R G W I N D O W ) ) \r
0037560 ( W I N D O
0037600 W P R O P W I N D O W ' B U
0037620 T T O N E V E N T F N ( F U N
0037640 C T I O N \ T E D I T . B U T
0037660 T O N E V E N T F N ) ) \r
0037700
*
0037760 006 006 ( * ;
0040000 \r 006 001
0040020
0040040 006 006 " S e
0040060 t t h e w i n d o w u p
0040100 w i t h t h e r i g h t m
0040120 o u s e i n t e r f a c e s
0040140 f o r T E D I T . " ) 006 001 \r
0040160 ( W I N D O W
0040200 P R O P W I N D O W ' R I G
0040220 H T B U T T O N F N ( F U N C
0040240 T I O N \ T E D I T . B U T T
0040260 O N E V E N T F N ) ) \r
0040300 ( W I N D O W P R O
0040320 P W I N D O W ' H A R D C O
0040340 P Y F N ( F U N C T I O N T
0040360 E D I T . H A R D C O P Y F N )
0040400 ) \r
0040420
*
0040460 006
0040500 006 ( * ; \r 006 001
0040520
*
0040560 006 006 " H
0040600 o o k i n t o t h e s y s
0040620 t e m s t a n d a r d h a r
0040640 d c o p y i n t e r f a c e "
0040660 ) 006 001 \r ( S
0040700 E T Q P R O P ( L I S T G E
0040720 T P R O P S ' M E N U ) )
0040740
0040760 006 006 ( * ; \r 006 001
0041000
*
0041060 006 006 " T h e C o m m
0041100 a n d m e n u , o r l i s
0041120 t o f i t e m s f o r i
0041140 t " ) 006 001 \r
0041160 ( C O N D \r
0041200 ( ( 006 002 t y p e ? 006 001 M
0041220 E N U P R O P )
0041240
0041260 006 006 ( * ; " I
0041300 t ' s a m e n u . j u s
0041320 t u s e i t . " ) 006 001 \r
0041340 ( W I N
0041360 D O W P R O P W I N D O W '
0041400 T E D I T . M E N U P R O P )
0041420 ) \r (
0041440 P R O P
0041460
0041500 006
0041520 006 ( * ; \r 006 001
0041540
0041560 006 006 " I t ' s
0041600 a l i s t o f m e n u
0041620 i t e m s . F o r c e a
0041640 n e w m e n u o n n e x t
0041660 m i d d l e b u t t o n . "
0041700 ) 006 001 \r
0041720 ( W I N D O W P R
0041740 O P W I N D O W ' T E D I T
0041760 . M E N U . C O M M A N D S P
0042000 R O P ) \r
0042020 ( W I N D O W P
0042040 R O P W I N D O W ' T E D I
0042060 T . M E N U N I L ) ) ) \r
0042100 ( 006 002 T E D I T
0042120 . M I N I M A L . W I N D O W .
0042140 S E T U P 006 001 W I N D O W T
0042160 E X T O B J T E X T S T R E A
0042200 M P R O P S A F T E R W I N
0042220 D O W ] ) \r \r ( 006 004 T E D I T .
0042240 M I N I M A L . W I N D O W . S
0042260 E T U P 006 001 \r [ L A M B D A
0042300 ( W I N D O W T E X T O B J
0042320 T E X T S T R E A M P R O P
0042340 S A F T E R W I N D O W ) 006 006
0042360 006 001 006 006 ( * ; "
0042400 E d i t e d 3 0 - D e c - 8 6
0042420 1 6 : 4 6 b y j d s " ) 006
0042440 001 \r \r
0042460 006 006 ( * ; ; "
0042500 D o t h e a b s o l u t e
0042520 m i n i m u m s e t u p s o
0042540 t h a t T E X T O B J a n
0042560 d W I N D O W k n o w a b
0042600 o u t e a c h o t h e r .
0042620 D o e s N O T i n c l u d
0042640 e m o u s e i n t e r f a c
0042660 e o r s c r o l l i n g . "
0042700 ) 006 001 \r \r
0042720 006 006 ( * ; ;
0042740 " I f A F T E R W I N D O W
0042760 i s n o n - N I L , t h e
0043000 n e w w i n d o w w i l l
0043020 b e p l a c e d a f t e r
0043040 A F T E R W I N D O W i n
0043060 t h e T E X T O B J ' s l i
0043100 s t . T h i s l i s t s
0043120 u s m a i n t a i n a n o
0043140 r d e r i n g o f w i n d o
0043160 w s , f o r s p l i t t i n
0043200 g a n d u n s p l i t t i n
0043220 g . " ) 006 001 \r \r ( P R O
0043240 G ( ( S E L ( 006 002 f e t c h
0043260 006 001 S E L 006 002 o f 006 001 T E
0043300 X T O B J ) ) \r
0043320 T E D I T P R O M P T W I
0043340 N D O W D S P R O P T W I
0043360 D T H T H E I G H T L I N E
0043400 S O L D W I N D O W S ) \r
0043420 ( O R W I N D
0043440 O W ( \ I L L E G A L . A R G
0043460 W I N D O W ) ) \r
0043500 ( 006 002 r e p l a c e 006 001
0043520 ( T E D I T C A R E T T C C
0043540 A R E T D S ) 006 002 o f 006 001 (
0043560 C O N D \r
0043600
*
0043640 [ ( L I S T P ( 006 002
0043660 f e t c h 006 001 C A R E T 006 002
0043700 o f 006 001 T E X T O B J ) ) \r
0043720
*
0044000 ( C A R ( F L A S T ( 006 002 f
0044020 e t c h 006 001 C A R E T 006 002 o
0044040 f 006 001 T E X T O B J ] \r
0044060
*
0044120 ( T
0044140 ( 006 002 f e t c h 006 001 C A R E T
0044160 006 002 o f 006 001 T E X T O B J )
0044200 ) ) \r
0044220 006 002 w i t h 006 001 ( W I N D O W
0044240 P R O P W I N D O W ' D S P
0044260 ) )
0044300 006 006 ( * ; \r 006 001
0044320
*
0044400 006 006 " T h e
0044420 d i s p l a y s t r e a m f o
0044440 r f l a s h i n g t h e c
0044460 a r e t " ) 006 001 \r
0044500 ( 006 002 r e p l a c e 006 001
0044520 S E L W I N D O W 006 002 o f 006 001
0044540 T E X T O B J 006 002 w i t h 006
0044560 001 W I N D O W ) \r
0044600 ( W I N D O W P R O P
0044620 W I N D O W ' P R O C E S S
0044640 N I L )
0044660 006 006 ( * ; \r 006
0044700 001
0044720
*
0044760 006 006 " F o r
0045000 t h e m o m e n t , t h i
0045020 s w i n d o w h a s n o
0045040 p r o c e s s " ) 006 001 \r
0045060 ( W I N D O W P R O
0045100 P W I N D O W ' T E D I T .
0045120 P R O P S P R O P S )
0045140 006 006 ( * ;
0045160 \r 006 001
0045200
0045220 006 006 " P u t t
0045240 h e p r o p s o n t h e
0045260 w i n d o w f o r o t h e r
0045300 s . . . * * t h i s s h
0045320 o u l d g o * * " ) 006 001 \r
0045340 ( W I N D O W P
0045360 R O P W I N D O W ' T E X T
0045400 S T R E A M T E X T S T R E A
0045420 M ) 006 006 ( *
0045440 ; \r 006 001
0045460
0045500 006 006 "
0045520 S a v e t h e t e x t s t
0045540 r e a m f o r t h e u s e
0045560 r t o g e t a t v i a
0045600 t h e w i n d o w . " ) 006 001 \r
0045620 ( W I N D O
0045640 W P R O P W I N D O W ' T E
0045660 X T O B J T E X T O B J )
0045700 006 006 (
0045720 * ; \r 006 001
0045740
*
0046000 006 006 " G i v e a h a n
0046020 d l e o n t h e T E X T O
0046040 B J f o r t h e t e x t
0046060 b e i n g e d i t e d . " ) 006
0046100 001 \r ( W I N
0046120 D O W P R O P W I N D O W '
0046140 T E D I T . C U R S O R R E G I
0046160 O N ( L I S T 0 0 0 0
0046200 ) ) \r
0046220
*
0046300 006 006 ( * ; " U s e d b y
0046320 C u r s o r M o v e d F n " ) 006
0046340 001 \r ( W I N
0046360 D O W P R O P W I N D O W '
0046400 C U R S O R M O V E D F N ( F
0046420 U N C T I O N T E D I T . C U
0046440 R S O R M O V E D F N ) ) \r
0046460 ( W I N D O W P
0046500 R O P W I N D O W ' C U R S
0046520 O R O U T F N ( F U N C T I O
0046540 N T E D I T . C U R S O R O U
0046560 T F N ) ) \r
0046600 ( S E T Q D S ( W I N D O W
0046620 P R O P W I N D O W ' D S P
0046640 ) ) \r ( D S
0046660 P R I G H T M A R G I N 3 2 7
0046700 6 7 D S )
0046720
0046740 006 006 ( * ; \r 006 001
0046760
*
0047020 006 006 " S o w e d o n '
0047040 t g e t s p u r i o u s R
0047060 E T U R N s p r i n t e d o
0047100 u t b y t h e s y s t e m
0047120 " ) 006 001 \r (
0047140 S E T Q O L D W I N D O W S
0047160 ( 006 002 f e t c h 006 001 \ W I N D
0047200 O W 006 002 o f 006 001 T E X T O B
0047220 J ) ) \r [ 006
0047240 002 r e p l a c e 006 001 \ W I N D
0047260 O W 006 002 o f 006 001 T E X T O B
0047300 J 006 002 w i t h 006 001 ( C O N D
0047320 \r
0047340
0047360 [
0047400 ( L I S T P O L D W I N D O W
0047420 S ) \r
0047440
*
0047520 006 006 ( * ; \r 006 001
0047540
*
0047600 006 006 " T
0047620 h e r e a r e w i n d o w s
0047640 a l r e a d y . A d d t
0047660 h i s t o t h e l i s t .
0047700 " ) 006 001 \r
0047720
*
0047760 ( C O N D \r
0050000
*
0050040 ( A F T
0050060 E R W I N D O W \r
0050100
*
0050160 006 006 ( * ; \r 006
0050200 001
0050220
*
0050260 006 006 " W e k n o w w h i c
0050300 h w i n d o w t o p u t
0050320 i t a f t e r . P u t i
0050340 t t h e r e " ) 006 001 \r
0050360
*
0050440 [ R P L A C D ( F M
0050460 E M B A F T E R W I N D O W
0050500 O L D W I N D O W S ) \r
0050520
*
0050600 ( C O N
0050620 S W I N D O W ( C D R ( F
0050640 M E M B A F T E R W I N D O W
0050660 \r
0050700
*
0051000 O L D W I
0051020 N D O W S ] \r
0051040
*
0051120 O L D W I N D O W S ) \r
0051140
*
0051200 ( T
0051220 006 006 ( * ;
0051240 \r 006 001
0051260
*
0051320 006 006 " O t h e
0051340 r w i s e , j u s t a d d
0051360 i t a t t h e e n d o f
0051400 t h e l i s t " ) 006 001 \r
0051420
*
0051500 ( N C O N C 1 O L D W I
0051520 N D O W S W I N D O W ] \r
0051540
*
0051600 ( W I N
0051620 D O W ( L I S T W I N D O W
0051640 ] \r ( 006 002 r
0051660 e p l a c e 006 001 D I S P L A Y
0051700 C A C H E 006 002 o f 006 001 T E X
0051720 T O B J 006 002 w i t h 006 001 ( C
0051740 A R ( \ T E D I T . C R E A T
0051760 E . L I N E C A C H E 1 ) ) )
0052000 \r
0052020
*
0052060 006 006
0052100 ( * ; \r 006 001
0052120
*
0052160 006 006 " a n
0052200 d a C A C H E f o r c r
0052220 e a t i n g l i n e i m a g
0052240 e s f o r d i s p l a y " )
0052260 006 001 \r [ 006 002
0052300 r e p l a c e 006 001 D I S P L A
0052320 Y C A C H E D S 006 002 o f 006 001
0052340 T E X T O B J 006 002 w i t h 006 001
0052360 ( D S P C R E A T E ( 006 002 f
0052400 e t c h 006 001 L C B I T M A P \r
0052420
*
0052520 006 002 o f 006 001 ( 006 002 f e t c h 006
0052540 001 D I S P L A Y C A C H E 006
0052560 002 o f 006 001 T E X T O B J ] \r
0052600
*
0052660 006 006 ( *
0052700 ; \r 006 001
0052720
*
0052760 006 006 " A
0053000 d i s p l a y s t r e a m f o
0053020 r c h a n g e i n g t h e
0053040 i m a g e c a c h e s " ) 006 001
0053060 \r ( D S P O
0053100 P E R A T I O N ' P A I N T
0053120 ( 006 002 f e t c h 006 001 D I S P L
0053140 A Y C A C H E D S 006 002 o f 006 001
0053160 T E X T O B J ) ) \r
0053200 ( D S P C L I P P I N
0053220 G R E G I O N ( 006 002 c r e a t
0053240 e 006 001 R E G I O N \r
0053260
0053300 L
0053320 E F T _ 0 \r
0053340
0053360 B O T T
0053400 O M _ 0 \r
0053420
0053440 W I D T H
0053460 _ 1 0 0 \r
0053500
0053520 H E I G H
0053540 T _ 1 5 ) \r
0053560 ( 006 002 f e t c
0053600 h 006 001 D I S P L A Y C A C H E
0053620 D S 006 002 o f 006 001 T E X T O B
0053640 J ) ) 006 006 (
0053660 * ; " R e m e m b e r i t
0053700 s s i z e , t o o . " ) 006 001
0053720 \r [ C O N D
0053740 \r ( (
0053760 S E T Q P R O P ( L I S T G
0054000 E T P R O P S ' R E G I O N
0054020 ) ) 006 006
0054040 ( * ; \r 006 001
0054060
*
0054140 006 006 " T h e c a l l e r w
0054160 a n t s t o s e t a r e
0054200 g i o n . U s e h i s " )
0054220 006 001 \r
0054240 ( 006 002 r e p l a c e 006 001 W T
0054260 O P 006 002 o f 006 001 T E X T O B
0054300 J 006 002 w i t h 006 001 ( 006 002 f e
0054320 t c h 006 001 P T O P 006 002 o f 006
0054340 001 P R O P ) ) \r
0054360 ( 006 002 r e p l a c
0054400 e 006 001 W R I G H T 006 002 o f 006
0054420 001 T E X T O B J 006 002 w i t h
0054440 006 001 ( 006 002 f e t c h 006 001 R I
0054460 G H T 006 002 o f 006 001 P R O P )
0054500 ) \r
0054520 ( 006 002 r e p l a c e 006 001 W B O
0054540 T T O M 006 002 o f 006 001 T E X T
0054560 O B J 006 002 w i t h 006 001 ( 006 002
0054600 f e t c h 006 001 B O T T O M 006
0054620 002 o f 006 001 P R O P ) ) \r
0054640 ( 006 002 r e
0054660 p l a c e 006 001 W L E F T 006 002
0054700 o f 006 001 T E X T O B J 006 002 w
0054720 i t h 006 001 ( 006 002 f e t c h 006 001
0054740 L E F T 006 002 o f 006 001 P R O
0054760 P ) ) ) \r
0055000 ( T
0055020
*
0055060 006 006 ( * ; \r 006 001
0055100
*
0055160 006 006 " O t h e
0055200 r w i s e , d e f a u l t t
0055220 o t h e w h o l e w i n d
0055240 o w " ) 006 001 \r
0055260 ( 006 002 r e p l a c
0055300 e 006 001 W L E F T 006 002 o f 006 001
0055320 T E X T O B J 006 002 w i t h 006
0055340 001 0 ) \r
0055360 ( 006 002 r e p l a c e 006
0055400 001 W B O T T O M 006 002 o f 006 001
0055420 T E X T O B J 006 002 w i t h 006
0055440 001 0 ) \r
0055460 ( 006 002 r e p l a c e 006
0055500 001 W T O P 006 002 o f 006 001 T E
0055520 X T O B J 006 002 w i t h 006 001 (
0055540 006 002 f e t c h 006 001 H E I G H T
0055560 006 002 o f 006 001 ( D S P C L I P
0055600 P I N G R E G I O N N I L D
0055620 S ) ) ) \r
0055640 ( 006 002 r e p l a c e 006
0055660 001 W R I G H T 006 002 o f 006 001
0055700 T E X T O B J 006 002 w i t h 006 001
0055720 ( 006 002 f e t c h 006 001 W I D T
0055740 H 006 002 o f 006 001 ( D S P C L I
0055760 P P I N G R E G I O N N I L
0056000 D S ] \r ( S
0056020 E T Q L I N E S ( \ S H O W
0056040 T E X T T E X T O B J N I L
0056060 W I N D O W ) ) \r
0056100 ( W I N D O W P R O P
0056120 W I N D O W ' L I N E S L I
0056140 N E S )
0056160 006 006 ( * ; \r 006
0056200 001
0056220
*
0056260 006 006 " D i s p l a y
0056300 t h e t e x t i n t h e
0056320 w i n d o w , f o r l a t
0056340 e r u s e . " ) 006 001 \r
0056360 [ 006 002 r e p l a c e
0056400 006 001 L I N E S 006 002 o f 006 001
0056420 T E X T O B J 006 002 w i t h 006 001
0056440 ( C O N D \r
0056460
*
0056520 [ A F T E R W I N D O W
0056540 ( 006 002 f o r 006 001 L I N E 006 002
0056560 i n 006 001 ( 006 002 f e t c h 006 001
0056600 L I N E S 006 002 o f 006 001 T E X
0056620 T O B J ) \r
0056640
*
0056720 006 002 a s 006 001 W I N D O W
0056740 006 002 i n 006 001 O L D W I N D O W
0056760 S \r
0057000
*
0057040 006 002
0057060 j o i n 006 001 ( C O N D \r
0057100
*
0057200 ( ( E Q W I N D O W A F T
0057220 E R W I N D O W ) \r
0057240
*
0057320 (
0057340 L I S T L I N E L I N E S )
0057360 ) \r
0057400
*
0057460 ( T ( L I S T L
0057500 I N E ] \r
0057520
*
0057560 ( ( L I S T P ( 006 002 f e t c
0057600 h 006 001 L I N E S 006 002 o f 006 001
0057620 T E X T O B J ) ) \r
0057640
*
0057700 ( N C O N C 1
0057720 ( 006 002 f e t c h 006 001 L I N E S
0057740 006 002 o f 006 001 T E X T O B J )
0057760 \r
0060000
*
0060040 L I N E S ) ) \r
0060060
*
0060120 ( L I N E S
0060140 ( L I S T L I N E S ] \r
0060160 ( \ F I X S E L
0060200 S E L T E X T O B J ) \r
0060220 ( 006 002 T E D I T .
0060240 N O R M A L I Z E C A R E T 006 001
0060260 T E X T O B J S E L ) \r
0060300 ( \ S H O W S E
0060320 L S E L N I L T ) \r
0060340 ( 006 002 \ T E D I T
0060360 . S E T . W I N D O W . E X T E
0060400 N T 006 001 T E X T O B J W I N
0060420 D O W ) \r (
0060440 \ C O P Y S E L S E L T E D
0060460 I T . S E L E C T I O N ] ) \r \r
0060500 ( 006 004 \ T E D I T . A C T I V E
0060520 . W I N D O W P 006 001 \r [ L A
0060540 M B D A ( W ) 006 006 006 001
0060560
*
0060620 006 006 ( *
0060640 j d s " 1 6 - J u l - 8 5
0060660 1 5 : 2 3 " ) 006 001 \r
0060700 \r 006
0060720 006 ( * D e c i d e s w h e t
0060740 h e r a T E d i t w i n d
0060760 o w i s r e a l l y i n
0061000 u s e . \r 006 001
0061020 006 006 T h e f u n c t i o n
0061040 T E D I T w i l l s e t t
0061060 h e T E X T O B J p r o p
0061100 o f t h e w i n d o w t o
0061120 T p r o t e m , t o \r
0061140 006 001 006 006 r e
0061160 s e r v e a w i n d o w .
0061200 O n c e t h e T E d i t h
0061220 a s r e a l l y s t a r t e
0061240 d , t h e T E X T O B J p
0061260 r o p e r t y w i l l \r 006 001
0061300 006 006 b e a
0061320 r e a l t e x t o b j . ) 006
0061340 001 \r \r ( P R O G [ ( T
0061360 E X T O B J ( O R ( W I N D
0061400 O W P R O P W ' T E X T O B
0061420 J ) \r
0061440 ( A N D
0061460 ( W I N D O W P R O P W ' T
0061500 E X T S T R E A M ) \r
0061520
0061540 ( T E X T O B J
0061560 ( W I N D O W P R O P W '
0061600 T E X T S T R E A M ] \r
0061620 ( R E T U R N ( C
0061640 O N D \r
0061660 ( ( E Q T E
0061700 X T O B J T ) \r
0061720 \r 006 006
0061740 ( * C a n h a v e a T E
0061760 X T O B J o f T a s a
0062000 p l a c e h o l d e r d u r i
0062020 n g c r e a t i o n . . . ) 006
0062040 001 \r \r
0062060 T ) \r
0062100
0062120 ( T E X T O B J ( A N D (
0062140 N O T ( 006 002 f e t c h 006 001 E
0062160 D I T F I N I S H E D F L G 006
0062200 002 o f 006 001 T E X T O B J ) ) \r
0062220
*
0062260 ( P R O C E S S P ( W I
0062300 N D O W P R O P W ' P R O C
0062320 E S S ] ) \r \r ( 006 004 \ T E D I T
0062340 . B U T T O N E V E N T F N 006 001
0062360 \r [ L A M B D A ( W S T
0062400 R E A M ) 006 006 006 001
0062420
*
0062460 006 006 ( * j d s " 9 - F
0062500 e b - 8 6 1 5 : 1 5 " ) 006 001 \r
0062520
*
0062600 006 006 (
0062620 * H a n d l e b u t t o n
0062640 e v e n t s f o r a T E d
0062660 i t \r 006 001
0062700
*
0062760 006 006 w i n d o w ) 006 001 \r
0063000 ( A N D S T R E A M (
0063020 S E T Q S T R E A M ( T E X
0063040 T O B J S T R E A M ) ) ) \r
0063060 ( P R O G * ( ( O S E L
0063100 N I L ) \r
0063120 ( S E L N I L ) \r
0063140 [ T E X T O B J
0063160 ( O R S T R E A M ( W I N
0063200 D O W P R O P W ' T E X T O
0063220 B J ] \r
0063240 ( D S ( W I N D O W P R O P
0063260 W ' D S P ) ) \r
0063300 U S E R F N \r
0063320 ( G L O B A L S
0063340 E L T E D I T . S E L E C T I
0063360 O N ) \r
0063400 ( X ( L A S T M O U S E X W
0063420 ) ) \r (
0063440 Y ( L A S T M O U S E Y W )
0063460 ) \r ( C
0063500 L I P R E G I O N ( D S P C L
0063520 I P P I N G R E G I O N N I L
0063540 W ) ) \r
0063560 ( S E L O P E R A T I O N '
0063600 N O R M A L ) \r
0063620 ( S E L F N ( T E X T
0063640 P R O P T E X T O B J ' S E
0063660 L F N ) ) \r
0063700 ( E X T E N D F L G N I L
0063720 ) \r ( O
0063740 L D X - 3 2 0 0 0 ) \r
0063760 ( O L D Y - 3
0064000 2 0 0 0 ) \r
0064020 S E L F I N A L F N P R O
0064040 C N O S E L ) \r
0064060 ( C O N D \r
0064100 ( ( N O T ( M
0064120 O U S E S T A T E ( O R L E
0064140 F T M I D D L E R I G H T )
0064160 ) ) \r \r
0064200 006 006 ( * N o
0064220 b u t t o n i s d o w n -
0064240 - w e g o t c o n t r o l
0064260 o n b u t t o n - u p t r
0064300 a n s i t i o n , s o i g n
0064320 o r e i t . ) 006 001 \r \r
0064340 ( R E T U
0064360 R N ) ) \r
0064400 ( T E D I T . S E L P E N
0064420 D I N G \r
0064440 \r 006 006 ( *
0064460 T h e r e i s a l r e a d y
0064500 a s e l e c t i o n i n
0064520 p r o g r e s s . \r 006 001
0064540 006 006 D o n ' t a l
0064560 l o w a n o t h e r t o i
0064600 n t e r f e r e . ) 006 001 \r \r
0064620
0064640 ( R E T U R N ) ) ) \r
0064660 ( 006 002 r e p l
0064700 a c e 006 001 C H # 006 002 o f 006 001
0064720 T E D I T . S C R A T C H S E
0064740 L E C T I O N 006 002 w i t h 006 001
0064760 0 ) \r \r
0065000 006 006 ( * M a
0065020 r k t h e u s e r - v i s i
0065040 b l e s c r a t c h s e l e
0065060 c t i o n f r e s h , s o
0065100 c h a n g e s c a n b e d
0065120 e t e c t e d . . . ) 006 001 \r \r
0065140 ( C O N D \r
0065160 [ [
0065200 O R ( N O T T E X T O B J )
0065220 \r
0065240 ( 006 002 f e t c h 006 001 E
0065260 D I T F I N I S H E D F L G 006
0065300 002 o f 006 001 T E X T O B J ) \r
0065320
0065340 ( A N D ( N O T ( W I N
0065360 D O W P R O P W ' P R O C E
0065400 S S ) ) \r
0065420 ( N O
0065440 T ( T E X T P R O P T E X T
0065460 O B J ' R E A D O N L Y ) ) \r
0065500
0065520 ( N O T ( S H
0065540 I F T D O W N P ' S H I F T )
0065560 ) \r
0065600 ( N O T (
0065620 S H I F T D O W N P ' C T R L
0065640 ) ) \r
0065660 ( N O T
0065700 ( S H I F T D O W N P ' M E T
0065720 A ) ) \r
0065740 ( N O T
0065760 ( K E Y D O W N P ' M O V E
0066000 ) ) \r
0066020 ( N O T
0066040 ( K E Y D O W N P ' C O P Y ]
0066060 \r \r
0066100 006 006 ( * T h e r e
0066120 ' s n o e d i t s e s s i
0066140 o n b e h i n d t h i s w
0066160 i n d o w . \r 006 001
0066200 006 006 Y o u c a n o n l
0066220 y d o w i n d o w o p s ,
0066240 o r r e - e s t a b l i s h
0066260 a s e s s i o n . ) 006 001 \r \r
0066300 (
0066320 T O T O P W W ) \r
0066340 ( C O N D \r
0066360
0066400 ( ( \ T E D I T . M O U S E S
0066420 T A T E R I G H T )
0066440 006 006 ( *
0066460 R i g h t b u t t o n g e
0066500 t s t h e w i n d o w \r 006
0066520 001
0066540
*
0066600 006 006
0066620 c o m m a n d m e n u ) 006 001 \r
0066640
0066660 ( D O W I N D O W C O M
0066700 W ) ) \r
0066720 ( ( A N D T E X T
0066740 O B J ( N O T ( T E X T P R
0066760 O P T E X T O B J ' R E A D
0067000 O N L Y ) ) \r
0067020 (
0067040 N O T ( T E X T P R O P T E
0067060 X T O B J ' S E L E C T O N L
0067100 Y ) ) \r
0067120 [ N O T
0067140 ( P R O C E S S P ( W I N D
0067160 O W P R O P W ' P R O C E S
0067200 S ] \r
0067220 ( \ T E D
0067240 I T . M O U S E S T A T E M I
0067260 D D L E ) ) \r
0067300 \r 006 006 ( *
0067320 M i d d l e b u t t o n o
0067340 n a d e a d w i n d o w
0067360 g i v e s a m e n u f o r
0067400 r e - s t a r t i n g T E D
0067420 I T ) 006 001 \r \r
0067440 ( C O N D \r
0067460
0067500 ( ( E Q ( M E N U
0067520 T E D I T . R E S T A R T . M
0067540 E N U ) \r
0067560
0067600 ' N e w E d i t P r o c e s s )
0067620 \r
0067640 ( 006 002 r e p l a
0067660 c e 006 001 E D I T O P A C T I V
0067700 E 006 002 o f 006 001 T E X T O B J
0067720 006 002 w i t h 006 001 N I L ) \r
0067740
0067760 ( T E D I T ( 006 002
0070000 f e t c h 006 001 S T R E A M H I
0070020 N T 006 002 o f 006 001 T E X T O B
0070040 J ) \r
0070060
0070100 W ] \r
0070120 [ ( I G R E A T E R P Y
0070140 ( 006 002 f e t c h 006 001 T O P 006
0070160 002 o f 006 001 C L I P R E G I O N
0070200 ) ) \r \r
0070220 006 006 ( * I t '
0070240 s n o t i n s i d e t h e
0070260 w i n d o w ' s R E A L r
0070300 e g i o n , s o c a l l o
0070320 n a m e n u . ) 006 001 \r \r
0070340 ( T O
0070360 T O P W W ) \r
0070400 ( C O N D \r
0070420 (
0070440 ( \ T E D I T . M O U S E S T A
0070460 T E R I G H T ) \r
0070500 ( D O
0070520 W I N D O W C O M W ) ) \r
0070540
0070560 ( ( M O U S E S T A T E ( O R
0070600 L E F T M I D D L E ) ) \r
0070620
0070640 ( A N D T E X T O B J (
0070660 S E T Q U S E R F N ( W I N
0070700 D O W P R O P W ' T E D I T
0070720 . T I T L E M E N U F N ) ) \r
0070740
0070760 ( N E Q U S E R
0071000 F N ' D O N ' T ) \r
0071020
0071040 ( C O N D \r
0071060
0071100 ( ( A N D ( S E T Q
0071120 P R O C ( W I N D O W P R O P
0071140 W ' P R O C E S S ) ) \r
0071160
0071200 (
0071220 P R O C E S S P P R O C ) ) \r
0071240 \r
0071260 006 006 ( * T h i s w
0071300 i n d o w h a s a l i v e
0071320 p r o c e s s b e h i n d
0071340 i t ; \r 006 001
0071360 006 006 g o e v a l u a t e t h
0071400 e b u t t o n f n t h e r
0071420 e . ) 006 001 \r \r
0071440
0071460 ( P R O C E S S . A P P L
0071500 Y P R O C U S E R F N ( L
0071520 I S T W ) ) ) \r
0071540
0071560 ( T
0071600
0071620 006 006 ( * O t h e r
0071640 w i s e , c r e a t e a n
0071660 e w p r o c e s s t o \r 006
0071700 001
0071720
*
0071760 006 006
0072000 h a n d l e t h e m e n u .
0072020 ) 006 001 \r
0072040
0072060 ( A D D . P R O C E S S (
0072100 L I S T U S E R F N ( K W O
0072120 T E W ] \r
0072140 ( ( A N D T E X T O B
0072160 J ( E Q ( 006 002 f e t c h 006 001
0072200 M O U S E R E G I O N 006 002 o
0072220 f 006 001 T E X T O B J ) \r
0072240
0072260 ' W I
0072300 N D O W ) ) \r
0072320 \r 006 006 ( *
0072340 W e ' r e i n t h e w i
0072360 n d o w - o p s r e g i o n
0072400 o f t h e w i n d o w . \r 006
0072420 001 006 006 D o
0072440 a w i n d o w s p l i t o
0072460 r s o m e t h i n g ) 006 001 \r \r
0072500 (
0072520 006 002 \ T E D I T . W I N D O W .
0072540 O P S 006 001 T E X T O B J W )
0072560 ) \r
0072600 ( ( A N D T E X T O B J ( N
0072620 O T ( 006 002 f e t c h 006 001 E D
0072640 I T O P A C T I V E 006 002 o f 006
0072660 001 T E X T O B J ) ) ) \r
0072700 \r
0072720 006 006 ( * U s u a l c a s
0072740 e - - h e ' s r e a l l y
0072760 s e l e c t i n g s o m e t
0073000 h i n g . \r 006 001
0073020 006 006 A n d t h e r e ' s
0073040 n o t h i n g e l s e g o i
0073060 n g o n n o w . ) 006 001 \r \r
0073100 ( T
0073120 O T O P W W ) \r
0073140 \r 006 006
0073160 ( * M o v e t h e e d i t
0073200 i n g w i n d o w t o t h
0073220 e t o p , s o h e c a n
0073240 s e l e c t w h e r e v e r
0073260 h e w a n t s . ) 006 001 \r \r
0073300 ( \
0073320 C A R E T . D O W N )
0073340
0073360 006 006 ( *
0073400 M a k e s u r e t h e c
0073420 a r e t i s n ' t b e i n g
0073440 \r 006 001
0073460
*
0073540 006 006 d i s p l a y e d . ) 006 001
0073560 \r
0073600 [ R E S E T L S T ( R E S E T
0073620 S A V E T E D I T . S E L P E
0073640 N D I N G T E X T O B J ) \r
0073660 \r
0073700 006 006 ( * T e l l a l
0073720 l T E d i t s n o t t o
0073740 r u n , s i n c e t h e r e
0073760 i s a s e l e c t i o n
0074000 i n p r o g r e s s . \r 006 001
0074020 006 006 T h i s
0074040 i s r e s e t t o N I L
0074060 o n r e t u r n f r o m h
0074100 e r e , t o r e - e n a b l
0074120 e T E d i t r u n s . ) 006 001
0074140 \r \r
0074160 ( R E S E T S A
0074200 V E ( 006 002 f o r 006 001 C A R E
0074220 T 006 002 i n s i d e 006 001 ( 006 002
0074240 f e t c h 006 001 C A R E T 006 002
0074260 o f 006 001 T E X T O B J ) \r
0074300
*
0074340 006 002 d o 006 001 ( 006 002 r e p l
0074360 a c e 006 001 T C C A R E T 006 002
0074400 o f 006 001 C A R E T 006 002 w i t
0074420 h 006 001 ( \ C A R E T . C R E A
0074440 T E B X H I C A R E T ) ) ) \r
0074460
0074500 ( L I
0074520 S T ' \ T E D I T . C A R E T
0074540 ( 006 002 f e t c h 006 001 C A R E
0074560 T 006 002 o f 006 001 T E X T O B J
0074600 ) ) ) \r \r
0074620 006 006 ( * T h
0074640 e n m a k e t h e c a r e
0074660 t b e t h e s p e c i a l
0074700 , t a l l o n e s o h e
0074720 c a n s e e i t . ) 006 001 \r
0074740 \r
0074760 ( C O N D \r
0075000
0075020 ( ( K E Y D O W N P
0075040 ' C O P Y )
0075060 006 006 ( * I
0075100 n a r e a d - o n l y d o
0075120 c u m e n t , y o u c a n
0075140 \r 006 001
0075160
*
0075240 006 006 o n l y c o p y . ) 006 001 \r
0075260
0075300 ( S E T Q
0075320 G L O B A L S E L T E D I T .
0075340 S H I F T E D S E L E C T I O N
0075360 ) \r
0075400 ( S E T
0075420 Q O S E L ( 006 002 f e t c h 006
0075440 001 S H I F T E D S E L 006 002 o
0075460 f 006 001 T E X T O B J ) ) \r
0075500
0075520 ( S E T Q S E
0075540 L O P E R A T I O N ' C O P Y
0075560 ) ) \r
0075600 ( ( A N
0075620 D ( K E Y D O W N P ' M O V
0075640 E ) \r
0075660
0075700 ( N O T ( 006 002 f e t c h 006
0075720 001 T X T R E A D O N L Y 006 002
0075740 o f 006 001 T E X T O B J ) ) ) \r
0075760
*
0076040 006 006 (
0076060 * T h e M O V E k e y i
0076100 s d o w n , s o s e t M
0076120 O V E \r 006 001
0076140
*
0076220 006 006 m o d e . ) 006 001 \r
0076240
0076260 ( S E T Q G
0076300 L O B A L S E L T E D I T . M
0076320 O V E S E L E C T I O N ) \r
0076340
0076360 ( S E T Q O S
0076400 E L ( 006 002 f e t c h 006 001 M O
0076420 V E S E L 006 002 o f 006 001 T E X
0076440 T O B J ) ) \r
0076460
0076500 ( S E T Q S E L O P E R A T
0076520 I O N ' M O V E ) ) \r
0076540
0076560 [ ( S H I F T D O W N
0076600 P ' S H I F T ) \r
0076620 \r 006
0076640 006 ( * t h e S H I F T k e
0076660 y i s d o w n ; m a r k
0076700 t h i s s e l e c t i o n f
0076720 o r C O P Y o r M O V E .
0076740 ) 006 001 \r \r
0076760 (
0077000 C O N D \r
0077020
0077040 ( ( A N D ( S H I F T D O
0077060 W N P ' C T R L ) \r
0077100
0077120 ( N
0077140 O T ( 006 002 f e t c h 006 001 T X
0077160 T R E A D O N L Y 006 002 o f 006 001
0077200 T E X T O B J ) ) ) \r
0077220
*
0077300 006 006 ( * C T
0077320 R L - S H I F T s e l e c t
0077340 m e a n s M O V E . ) 006 001 \r
0077360
0077400 ( S E
0077420 T Q G L O B A L S E L T E D
0077440 I T . M O V E S E L E C T I O N
0077460 ) \r
0077500
0077520 ( S E T Q O S E L ( 006 002 f e
0077540 t c h 006 001 M O V E S E L 006 002
0077560 o f 006 001 T E X T O B J ) ) \r
0077600
0077620 ( S E
0077640 T Q S E L O P E R A T I O N
0077660 ' M O V E ) ) \r
0077700
0077720 ( T ( S E T Q G L
0077740 O B A L S E L T E D I T . S H
0077760 I F T E D S E L E C T I O N ) \r
0100000
*
0100040 ( S E T Q O S E L ( 006 002 f e
0100060 t c h 006 001 S H I F T E D S E L
0100100 006 002 o f 006 001 T E X T O B J )
0100120 ) \r
0100140
0100160 ( S E T Q S E L O P E R A
0100200 T I O N ' C O P Y ] \r
0100220
0100240 ( ( S H I F T D O W N
0100260 P ' M E T A ) \r
0100300 \r 006 006
0100320 ( * H e ' s h o l d i n g
0100340 t h e m e t a k e y d o w
0100360 n % , d o a c o p y l o
0100400 o k s s e l e c t i o n ) 006 001
0100420 \r \r
0100440 ( S E T
0100460 Q G L O B A L S E L T E D I
0100500 T . C O P Y L O O K S S E L E C
0100520 T I O N ) \r
0100540
0100560 ( S E T Q O S E L ( 006 002 f e
0100600 t c h 006 001 S H I F T E D S E L
0100620 006 002 o f 006 001 T E X T O B J )
0100640 ) \r
0100660 ( S E T
0100700 Q S E L O P E R A T I O N '
0100720 C O P Y L O O K S ) ) \r
0100740
0100760 ( ( A N D ( S H I F
0101000 T D O W N P ' C T R L ) \r
0101020
0101040 ( N O
0101060 T ( 006 002 f e t c h 006 001 T X T
0101100 R E A D O N L Y 006 002 o f 006 001
0101120 T E X T O B J ) ) ) \r
0101140
*
0101220 006 006 ( * H e '
0101240 s h o l d i n g t h e c o
0101260 n t r o l k e y d o w n ; \r
0101300 006 001
0101320
*
0101360 006
0101400 006 n o t e t h e f a c t . )
0101420 006 001 \r
0101440 ( \ S
0101460 H O W S E L ( 006 002 f e t c h 006
0101500 001 S E L 006 002 o f 006 001 T E X
0101520 T O B J ) \r
0101540
0101560 N I L N I L ) \r
0101600
0101620 ( S E T Q
0101640 G L O B A L S E L T E D I T .
0101660 D E L E T E S E L E C T I O N )
0101700 \r
0101720 [ C O N D
0101740 \r
0101760 ( (
0102000 006 002 f e t c h 006 001 S E T 006 002
0102020 o f 006 001 ( 006 002 f e t c h 006 001
0102040 D E L E T E S E L 006 002 o f 006 001
0102060 T E X T O B J ) ) \r
0102100 \r
0102120 006 006 ( * T h e r e ' s a p
0102140 e n d i n g d e l e t e s e
0102160 l e c t i o n . U s e i t ,
0102200 a n d t u r n o f f t h
0102220 e e x i s t i n g n o r m a
0102240 l \r 006 001 006
0102260 006 s e l e c t i o n . ) 006 001 \r \r
0102300
0102320 ) \r
0102340
0102360 ( T
0102400 \r \r
0102420 006 006 ( * N o e x
0102440 i s t i n g d e l e t e s e
0102460 l e c t i o n . U s e t h e
0102500 n o r m a l s e l e c t i o
0102520 n a s a s t a r t i n g
0102540 p o i n t . ) 006 001 \r \r
0102560
0102600 ( \ C O P
0102620 Y S E L ( 006 002 f e t c h 006 001
0102640 S E L 006 002 o f 006 001 T E X T O
0102660 B J ) \r
0102700
0102720 ( 006 002 f e
0102740 t c h 006 001 D E L E T E S E L
0102760 006 002 o f 006 001 T E X T O B J ] \r
0103000
0103020 ( 006 002 r e p
0103040 l a c e 006 001 S E T 006 002 o f 006
0103060 001 ( 006 002 f e t c h 006 001 S E L
0103100 006 002 o f 006 001 T E X T O B J )
0103120 006 002 w i t h 006 001 N I L ) \r
0103140 \r
0103160 006 006 ( * R e m e m b e
0103200 r t o t u r n o f f t h
0103220 e n o r m a l s e l e c t i
0103240 o n , s i n c e w e ' l l
0103260 b e m o v i n g i t t o
0103300 a n e w \r 006 001
0103320 006 006 s p o t a f t e r
0103340 t h e d e l e t i o n . ) 006 001
0103360 \r \r
0103400 ( S E T
0103420 Q O S E L ( 006 002 f e t c h 006
0103440 001 D E L E T E S E L 006 002 o f
0103460 006 001 T E X T O B J ) ) \r
0103500
0103520 ( S E T Q S E L
0103540 O P E R A T I O N ' D E L E T
0103560 E ) \r
0103600 ( T E
0103620 D I T . S E T . S E L . L O O K
0103640 S O S E L ' D E L E T E ) \r
0103660
0103700 ( 006 002 r e p
0103720 l a c e 006 001 B L U E P E N D I
0103740 N G D E L E T E 006 002 o f 006 001
0103760 T E X T O B J 006 002 w i t h 006 001
0104000 N I L ) ) \r
0104020
0104040 ( T ( S E T Q O S E L ( 006
0104060 002 f e t c h 006 001 S E L 006 002 o
0104100 f 006 001 T E X T O B J ) ) \r
0104120
0104140 ( 006 002 r e p
0104160 l a c e 006 001 B L U E P E N D I
0104200 N G D E L E T E 006 002 o f 006 001
0104220 T E X T O B J 006 002 w i t h 006 001
0104240 N I L ) \r
0104260
*
0104340 006 006 ( * R e s e t t h
0104360 e p e n d i n g - d e l e t e
0104400 f l a g . ) 006 001 \r
0104420
0104440 ) ) \r
0104460 (
0104500 \ C O P Y S E L O S E L G L
0104520 O B A L S E L ) \r
0104540 (
0104560 006 002 b i n d 006 001 ( O S E L O P
0104600 _ S E L O P E R A T I O N )
0104620 \r
0104640 006 002 w h i l
0104660 e 006 001 [ O R ( S H I F T D O
0104700 W N P ' S H I F T ) \r
0104720
0104740 (
0104760 S H I F T D O W N P ' C T R L
0105000 ) \r
0105020
0105040 ( S H I F T D O W N P
0105060 ' M E T A ) \r
0105100
0105120 ( K E Y D
0105140 O W N P ' M O V E ) \r
0105160
0105200 (
0105220 K E Y D O W N P ' C O P Y ) \r
0105240
*
0105300 ( N O T ( Z E R O P (
0105320 L O G A N D L A S T M O U S E
0105340 B U T T O N S 7 ] \r
0105360
0105400 006 002 d o 006 001
0105420
0105440 006 006 ( *
0105460 P o l l t h e s e l e c t
0105500 i o n & d i s p l a y i t
0105520 s \r 006 001
0105540
*
0105620 006 006 c u r r e n t s t a t
0105640 e ) 006 001 \r
0105660
0105700 [ C O N D \r
0105720
0105740 ( ( Z E R O P ( L
0105760 O G A N D L A S T M O U S E B
0106000 U T T O N S 7 ) ) \r
0106020
*
0106100 006 006 ( * N o
0106120 m o u s e b u t t o n s a r
0106140 e d o w n ; \r 006 001
0106160
*
0106240 006 006 d o n ' t t
0106260 r y a n y t h i n g . ) 006 001 \r
0106300
*
0106340 ( S E T Q O L D X - 3 2 0 0
0106360 0 ) \r \r
0106400 006 006 ( * H o w
0106420 e v e r , r e m e m b e r t
0106440 h a t p u s h i n g a m o
0106460 u s e b u t t o n i s a
0106500 c h a n g e o f s t a t u s
0106520 t h a t w e \r 006 001
0106540 006 006 s h o u l d n
0106560 o t i c e . ) 006 001 \r \r
0106600
0106620 ) \r
0106640
0106660 ( ( K E
0106700 Y D O W N P ' M O V E ) \r
0106720 \r
0106740 006 006 ( * t h e M O V E
0106760 k e y i s d o w n ; m a
0107000 r k t h i s s e l e c t i o
0107020 n f o r M O V E . ) 006 001 \r \r
0107040
*
0107100 ( S E T Q S E L O P E R A T I
0107120 O N ' M O V E ) ) \r
0107140
0107160 [ ( O R (
0107200 S H I F T D O W N P ' S H I F
0107220 T ) \r
0107240
0107260 ( K E Y D O W N P
0107300 ' C O P Y ) ) \r
0107320 \r 006 006
0107340 ( * t h e S H I F T k e y
0107360 i s d o w n ; m a r k t
0107400 h i s s e l e c t i o n f o
0107420 r C O P Y o r M O V E . )
0107440 006 001 \r \r
0107460
0107500 ( C O N D \r
0107520
0107540 ( ( S
0107560 H I F T D O W N P ' C T R L )
0107600 \r \r
0107620 006 006 ( * H e ' s
0107640 h o l d i n g d o w n b o t
0107660 h c t r l a n d s h i f t
0107700 - - \r 006 001
0107720 006 006 d o a m o v e . ) 006 001 \r
0107740 \r
0107760
0110000 ( S E T Q S E L O P
0110020 E R A T I O N ' M O V E ) ) \r
0110040
*
0110100 ( T
0110120 006 006 (
0110140 * J u s t t h e S H I F T
0110160 k e y . \r 006 001
0110200
*
0110260 006 006 I t ' s a C O
0110300 P Y ) 006 001 \r
0110320
0110340 ( S E T
0110360 Q S E L O P E R A T I O N '
0110400 C O P Y ] \r
0110420
0110440 ( ( S H I F T D O W N
0110460 P ' M E T A )
0110500 006 006 ( * H e ' s h o l
0110520 d i n g t h e m e t a k e
0110540 y d o w n ; \r 006 001
0110560
*
0110640 006 006 n o t e t h
0110660 e f a c t . ) 006 001 \r
0110700
0110720 ( S E T Q
0110740 S E L O P E R A T I O N ' C
0110760 O P Y L O O K S ) ) \r
0111000
0111020 ( ( S H I F
0111040 T D O W N P ' C T R L ) \r
0111060 \r
0111100 006 006 ( * H e ' s h o l
0111120 d i n g o n l y t h e C T
0111140 R L k e y - - m a r k t
0111160 h e s e l e c t i o n f o r
0111200 d e l e t i o n . ) 006 001 \r \r
0111220
0111240 (
0111260 S E T Q S E L O P E R A T I O
0111300 N ' D E L E T E ) ) \r
0111320
0111340 ( T
0111360
0111400 006 006 ( * N o
0111420 k e y b e i n g h e l d
0111440 d o w n ; \r 006 001
0111460
*
0111540 006 006 r e v e r t t o
0111560 n o r m a l s e l e c t i o
0111600 n . ) 006 001 \r
0111620
0111640 ( S E T Q S E
0111660 L O P E R A T I O N ' N O R M
0111700 A L ] \r
0111720
0111740 ( C O N D \r
0111760
0112000 [ ( A N D ( O R [
0112020 N O T ( I E Q P O L D X (
0112040 S E T Q X ( L A S T M O U S
0112060 E X D S ] \r
0112100
*
0112140 [ N O T ( I E Q P O L D Y
0112160 ( S E T Q Y ( L A S T M O U
0112200 S E Y D S ] \r
0112220
*
0112260 ( N E Q O S E L O P S E L
0112300 O P E R A T I O N ) ) \r
0112320
*
0112360 ( I N S I D E P C L I P R E
0112400 G I O N X Y ) ) \r
0112420 \r
0112440 006 006 ( * O n l y d o s e l
0112460 e c t i o n i f ( 1 ) t h
0112500 e m o u s e i s i n s i d
0112520 e t h e w i n d o w p r o
0112540 p e r a n d \r 006 001
0112560 006 006 ( 2 ) t h e m o
0112600 u s e h a s m o v e d , o
0112620 r t h e k i n d o f s e
0112640 l e c t i o n h a s c h a n
0112660 g e d ) 006 001 \r
0112700 \r 006 006 ( *
0112720 M u s t p r e c e d e t h
0112740 e s c r o l l - r e g i o n
0112760 t e s t , s o t h a t w e
0113000 d o n ' t t r y t o s c
0113020 r o l l w h i l e \r 006 001
0113040 006 006 t h e m o
0113060 u s e i s i n s i d e t h
0113100 e m a i n w i n d o w , e
0113120 v e n i f t h e s c r o l
0113140 l b a r o v e r l a p s t
0113160 h e w i n d o w \r 006 001
0113200 006 006 ( a t l e f t
0113220 e d g e o f s c r e e n ,
0113240 s a y ) ) 006 001 \r \r
0113260
0113300 ( S E T Q
0113320 O L D X X ) \r
0113340
0113360 ( S E T Q O L
0113400 D Y Y ) \r
0113420
0113440 [ C O N D \r
0113460
0113500 (
0113520 ( \ T E D I T . M O U S E S T A
0113540 T E L E F T ) 006 006 ( * L e
0113560 f t b u t t o n i s c h a
0113600 r a c t e r s e l e c t i o n
0113620 ) 006 001 \r
0113640
0113660 ( S E T Q S E
0113700 L ( T E D I T . S E L E C T
0113720 X Y T E X T O B J ( 006 002 f
0113740 e t c h 006 001 M O U S E R E G I
0113760 O N \r
0114000
*
0114060 006 002
0114100 o f 006 001 T E X T O B J ) \r
0114120
*
0114200 N I L S E L O P E R A T
0114220 I O N W ) ) \r
0114240
0114260 ( S E T
0114300 Q E X T E N D F L G N I L )
0114320 ) \r
0114340
0114360 ( ( \ T E D I T . M O
0114400 U S E S T A T E M I D D L E )
0114420 \r
0114440
*
0114500 006 006
0114520 ( * M i d d l e b u t t o n
0114540 i s w o r d s e l e c t i
0114560 o n ) 006 001 \r
0114600
0114620 ( S E T Q
0114640 S E L ( T E D I T . S E L E C
0114660 T X Y T E X T O B J ( 006
0114700 002 f e t c h 006 001 M O U S E R E
0114720 G I O N \r
0114740
*
0115040 006 002 o f 006 001 T E X T O B J ) \r
0115060
*
0115140 T S E L O P E R A T
0115160 I O N W ) ) \r
0115200
0115220 ( S E T
0115240 Q E X T E N D F L G N I L )
0115260 ) \r
0115300
0115320 [ ( \ T E D I T . M O
0115340 U S E S T A T E R I G H T ) 006
0115360 006 ( * R I g h t b u t t o n
0115400 e x t e n d s s e l e c t i
0115420 o n s ) 006 001 \r
0115440
0115460 ( C O N D
0115500 \r
0115520
0115540 ( ( N E Q S E
0115560 L O P E R A T I O N O S E L O
0115600 P ) \r \r
0115620 006 006 ( * T h i
0115640 n g s c h a n g e d s i n c
0115660 e t h e l a s t s e l e c
0115700 t i o n . \r 006 001
0115720 006 006 G r a b t h e p r i
0115740 o r s e l e c t i o n i n f
0115760 o , s o t h a t t h e e
0116000 x t e n s i o n i s t a k e
0116020 n f r o m t h e \r 006 001
0116040 006 006 s e l e c t
0116060 i o n N O W b e i n g m a
0116100 d e , r a t h e r t h a n
0116120 t h e l a s t e x i s t i n
0116140 g o l d - t y p e s e l e c
0116160 t i o n . ) 006 001 \r \r
0116200
*
0116240 ( \ C O P Y S E L O S E L
0116260 G L O B A L S E L ) ) ) \r
0116300
*
0116340 ( C O N D \r
0116360
0116400 (
0116420 ( 006 002 f e t c h 006 001 S E T 006
0116440 002 o f 006 001 G L O B A L S E L )
0116460 \r
0116500
0116520 ( A N D T E
0116540 D I T . E X T E N D . P E N D I
0116560 N G . D E L E T E ( E Q S E
0116600 L O P E R A T I O N \r
0116620
*
0116720 ' N O R M A L )
0116740 \r
0116760
0117000 ( S
0117020 E T Q S E L O P E R A T I O N
0117040 ' P E N D I N G D E L ) \r
0117060
*
0117120 ( 006 002 r e
0117140 p l a c e 006 001 B L U E P E N D
0117160 I N G D E L E T E 006 002 o f 006 001
0117200 T E X T O B J 006 002 w i t h 006
0117220 001 T ) ) \r
0117240 \r 006 006 ( *
0117260 I f T e d i t B l u e P e n d
0117300 i n g D e l e t e f l a g i
0117320 s s e t , t h e n s i m u
0117340 l a t e L a u r e l ' s \r 006
0117360 001 006 006 b l u
0117400 e - p e n d i n g - d e l e t e
0117420 f e a t u r e . ) 006 001 \r \r
0117440
*
0117500 ( S E T Q S E L
0117520 ( T E D I T . E X T E N D . S E
0117540 L X Y G L O B A L S E L
0117560 T E X T O B J \r
0117600
*
0117660 S E L O P E R A T I O N W
0117700 ) ) \r
0117720
0117740 ( S E T Q
0117760 E X T E N D F L G T ] \r
0120000
*
0120040 ( T \r \r
0120060 006 006 ( * T
0120100 h e m o u s e b u t t o n s
0120120 a r e u p , l e a v i n g
0120140 u s w i t h a p r o - t
0120160 e m " p e r m a n e n t " s
0120200 e l e c t i o n ) 006 001 \r \r
0120220
*
0120260 ( \ C O P Y S E L O S E
0120300 L G L O B A L S E L ) \r
0120320 \r
0120340 006 006 ( * A n d S E L i
0120360 s N O T S E T A N Y L O
0120400 N G E R , s o i t w o n '
0120420 t g e t c o p i e d i n t
0120440 o O S E L d o w n b e l o
0120460 w ) 006 001 \r \r
0120500
0120520 ( A N D
0120540 S E L ( 006 002 r e p l a c e 006
0120560 001 S E T 006 002 o f 006 001 S E L
0120600 006 002 w i t h 006 001 N I L ] \r
0120620
0120640 [
0120660 C O N D \r
0120700
0120720 ( ( A N D S E
0120740 L ( 006 002 f e t c h 006 001 S E T
0120760 006 002 o f 006 001 S E L ) \r
0121000
*
0121040 S E L F N ) \r
0121060 \r
0121100 006 006 ( * T h e s e l e c
0121120 t i o n w a s s e t , b u
0121140 t t h e r e ' s a S E L F
0121160 N t h a t h a s v e t o
0121200 a u t h o r i t y ) 006 001 \r \r
0121220
*
0121260 ( C O N D \r
0121300
0121320 (
0121340 ( E Q ( A P P L Y * S E L F
0121360 N T E X T O B J S E L S E
0121400 L O P E R A T I O N ' T E N T
0121420 A T I V E ) \r
0121440
*
0121500 ' D O N ' T )
0121520 006 006 ( * T h e s e l
0121540 f n v e t o e d t h i s s
0121560 e l e c t i o n , s o \r 006 001
0121600
*
0121660 006 006 m
0121700 a r k i t u n - s e t . ) 006
0121720 001 \r
0121740
0121760 ( 006 002 r e p
0122000 l a c e 006 001 S E T 006 002 o f 006
0122020 001 S E L 006 002 w i t h 006 001 N
0122040 I L ] \r
0122060
0122100 ( C O N D \r
0122120
0122140 ( ( \
0122160 T E D I T . S E L . C H A N G E
0122200 D ? S E L O S E L O S E L
0122220 O P S E L O P E R A T I O N )
0122240 \r \r
0122260 006 006 ( * S o m e t
0122300 h i n g i n t e r e s t i n g
0122320 a b o u t t h e s e l e c
0122340 t i o n c h a n g e d . \r 006 001
0122360 006 006 W e h
0122400 a v e t o r e - d i s p l a
0122420 y i t s i m a g e . ) 006 001 \r
0122440 \r
0122460
0122500 ( C O N D \r
0122520
*
0122560 ( ( O R ( E Q S E L O P
0122600 E R A T I O N ' N O R M A L )
0122620 \r
0122640
0122660 ( E Q
0122700 S E L O P E R A T I O N ' P
0122720 E N D I N G D E L ) ) \r
0122740 \r
0122760 006 006 ( * F o r a n o r m
0123000 a l s e l e c t i o n , s e
0123020 t t h e " w i n d o w l a
0123040 s t s e l e c t e d i n "
0123060 f o r t h e T E X T O B J )
0123100 006 001 \r \r
0123120
0123140 ( 006 002 r
0123160 e p l a c e 006 001 S E L W I N D
0123200 O W 006 002 o f 006 001 T E X T O B
0123220 J 006 002 w i t h 006 001 W ) ) ) \r
0123240
*
0123300 ( S E T Q O S E L (
0123320 \ T E D I T . R E F R E S H . S
0123340 H O W S E L T E X T O B J S
0123360 E L O S E L O S E L O P \r
0123400
*
0123460 S E L O P E R A T I
0123500 O N E X T E N D F L G ) ) \r
0123520
*
0123560 ( S E T Q O S E L O P
0123600 S E L O P E R A T I O N ) ) \r
0123620
*
0123660 ( [ A N D O S E L ( 006 002
0123700 f e t c h 006 001 S E T 006 002 o f
0123720 006 001 O S E L ) \r
0123740
*
0124000 ( E Q ( 006 002 f e t c h 006 001
0124020 S E L K I N D 006 002 o f 006 001
0124040 O S E L ) \r
0124060
*
0124120 ' V O L A T I L E ) \r
0124140
*
0124200 ( O R ( N O T
0124220 S E L ) \r
0124240
*
0124300 ( N O T ( 006 002 f e t c h 006
0124320 001 S E T 006 002 o f 006 001 S E L
0124340 ] \r \r
0124360 006 006 ( * T h e r
0124400 e i s a n o l d s e l e
0124420 c t i o n a r o u n d , b u
0124440 t i t i s V O L A T I L E
0124460 - - \r 006 001
0124500 006 006 i . e . , i t s h o u l
0124520 d n ' t l a s t l o n g e r
0124540 t h a n s o m e t h i n g
0124560 i s p o i n t i n g a t i
0124600 t . \r 006 001 006
0124620 006 T u r n i t o f f . ) 006 001
0124640 \r \r
0124660
0124700 ( \ S H O W S E L
0124720 O S E L N I L N I L ) \r
0124740
*
0125000 ( 006 002 r e p l a c e 006 001 S
0125020 E T 006 002 o f 006 001 O S E L 006
0125040 002 w i t h 006 001 N I L ] \r
0125060
0125100 ( ( I N
0125120 / S C R O L L / B A R ? W L
0125140 A S T M O U S E X L A S T M O
0125160 U S E Y ) \r
0125200 \r 006 006 ( *
0125220 I f h e m o v e s t o t
0125240 h e s c r o l l b a r , l
0125260 e t h i m s c r o l l w i
0125300 t h o u t t r o u b l e ) 006 001
0125320 \r \r
0125340
0125360 ( S C R O L L . H A N D L E
0125400 R W ) ) ) \r
0125420
0125440 ( B L O C K )
0125460
0125500 006 006 ( * G i v e o t
0125520 h e r p r o c e s s e s a
0125540 c h a n c e ) 006 001 \r
0125560
0125600 ( G E T M O U S E S
0125620 T A T E )
0125640 006 006 ( * A n d
0125660 g e t t h e n e w m o u s
0125700 e i n f o ) 006 001 \r
0125720
0125740 ( 006 002 T E D I T . C
0125760 U R S O R M O V E D F N 006 001 W
0126000 ) ) \r
0126020 ( \ C O P Y S
0126040 E L O S E L G L O B A L S E
0126060 L ) \r
0126100 ( C O N D \r
0126120
0126140 ( ( 006 002 f e t c
0126160 h 006 001 S E T 006 002 o f 006 001 O
0126200 S E L ) \r \r
0126220 006 006 ( * O
0126240 n l y i f a s e l e c t i
0126260 o n R E A L L Y g o t m a
0126300 d e s h o u l d w e d o
0126320 t h i s . . . . ) 006 001 \r \r
0126340
0126360 ( S E L E C T Q
0126400 S E L O P E R A T I O N \r
0126420
0126440 ( C O P Y
0126460 \r \r
0126500 006 006 ( * A C O
0126520 P Y s e l e c t i o n - -
0126540 s e t t h e c o p y f l a
0126560 g , a n d s e e i f t h
0126600 i s i s a c o p y t o
0126620 a \r 006 001 006
0126640 006 n o n - T E d i t w i n d o
0126660 w ) 006 001 \r \r
0126700
0126720 ( S E T Q
0126740 T E D I T . C O P Y . P E N D I
0126760 N G T ) \r
0127000
0127020 ( 006 002 r e p
0127040 l a c e 006 001 S E T 006 002 o f 006
0127060 001 O S E L 006 002 w i t h 006 001
0127100 N I L ) \r
0127120
*
0127200 006 006 ( * A n d t u r n
0127220 o f f O S E L , t o a v o
0127240 i d \r 006 001
0127260
*
0127340 006 006 s p u r i o u s h i
0127360 g h l i g h t i n g ) 006 001 \r
0127400
*
0127440 ( \ T E D I T . F O R E I G
0127460 N . C O P Y ? G L O B A L S E
0127500 L ) \r \r
0127520 006 006 ( * M a y
0127540 b e c o p y i n t o t h e
0127560 S Y S B U F , i f t h e
0127600 r e c i p i e n t i s n ' t
0127620 a T E d i t w i n d o w . )
0127640 006 001 \r \r
0127660
0127700 ) \r
0127720
0127740 ( C O P Y L O O
0127760 K S
0130000 006 006 ( * A C O
0130020 P Y L O O K S s e l e c t i o
0130040 n ) 006 001 \r
0130060
0130100 ( S
0130120 E T Q T E D I T . C O P Y L O
0130140 O K S . P E N D I N G T ) \r
0130160
*
0130240 006 006 ( *
0130260 A n d t u r n o f f O S
0130300 E L , t o a v o i d \r 006 001
0130320
*
0130400 006 006 s
0130420 p u r i o u s h i g h l i g h
0130440 t i n g ) 006 001 \r
0130460
*
0130520 ( 006 002 r e p l a c e 006 001 S E
0130540 T 006 002 o f 006 001 O S E L 006 002
0130560 w i t h 006 001 N I L ) ) \r
0130600
0130620 ( M O V E
0130640 \r \r
0130660 006 006 ( * A M O
0130700 V E s e l e c t i o n - -
0130720 s e t t h e f l a g t o
0130740 s i g n a l t h e T E d i t
0130760 c o m m a n d l o o p , ) 006
0131000 001 \r \r
0131020
0131040 ( S E T Q T E D
0131060 I T . M O V E . P E N D I N G
0131100 T ) \r
0131120
*
0131200 006 006 ( * A n d t u r n o f
0131220 f O S E L , t o a v o i d
0131240 \r 006 001
0131260
*
0131340 006 006 s p u r i o u s h i g h
0131360 l i g h t i n g ) 006 001 \r
0131400
*
0131440 ( 006 002 r e p l a c e 006 001 S E T
0131460 006 002 o f 006 001 O S E L 006 002 w
0131500 i t h 006 001 N I L ) ) \r
0131520
0131540 ( D E L E T
0131560 E ( S E T Q T E D I T . D E
0131600 L . P E N D I N G T ) \r
0131620
*
0131660 ( 006 002 r e p l a c e 006 001
0131700 S E T 006 002 o f 006 001 O S E L
0131720 006 002 w i t h 006 001 N I L ) \r
0131740
*
0132020 006 006 ( *
0132040 A n d t u r n o f f O S E
0132060 L , t o a v o i d \r 006 001
0132100
*
0132160 006 006 s p
0132200 u r i o u s h i g h l i g h t
0132220 i n g ) 006 001 \r
0132240
0132260 ) \r
0132300
0132320 ( N O
0132340 R M A L
0132360 006 006 ( *
0132400 T h i s i s a n o r m a
0132420 l s e l e c t i o n ; \r 006 001
0132440
*
0132520 006 006 s e
0132540 t t h e c a r e t l o o k
0132560 s ) 006 001 \r
0132600
0132620 ( 006 002 r e
0132640 p l a c e 006 001 C A R E T L O O
0132660 K S 006 002 o f 006 001 T E X T O B
0132700 J 006 002 w i t h 006 001 ( \r
0132720
*
0133020 \ T E D I T . G E
0133040 T . I N S E R T . C H A R L O O
0133060 K S \r
0133100
*
0133160 T E
0133200 X T O B J O S E L ) ) ) \r
0133220
0133240 N I L )
0133260 ) ) \r
0133300 ( A N D S E
0133320 L F N ( A P P L Y * S E L F
0133340 N T E X T O B J G L O B A L
0133360 S E L S E L O P E R A T I O N
0133400 ' F I N A L ) ) \r
0133420 \r 006
0133440 006 ( * G i v e a u s e r
0133460 e x i t r o u t i n e c o n
0133500 t r o l , p e r h a p s f o
0133520 r l o g g i n g o f s e l
0133540 e c t i o n s . ) 006 001 \r \r
0133560
0133600 ( 006 002 f o r 006 001 C A R E
0133620 T 006 002 i n s i d e 006 001 ( 006 002
0133640 f e t c h 006 001 C A R E T 006 002
0133660 o f 006 001 T E X T O B J ) \r
0133700
0133720 006 002 d o 006 001 ( O
0133740 R ( 006 002 f e t c h 006 001 T C U
0133760 P 006 002 o f 006 001 C A R E T ) \r
0134000
*
0134040 ( 006 002 \ E D I T . F L I P C A R
0134060 E T 006 001 C A R E T T ] \r
0134100 ( A N
0134120 D O S E L ( 006 002 f e t c h 006
0134140 001 S E T 006 002 o f 006 001 O S E
0134160 L ) \r
0134200 ( 006 002 f e t c h 006
0134220 001 S E L O B J 006 002 o f 006 001
0134240 O S E L ) \r
0134260 ( S E T Q
0134300 S E L F I N A L F N ( I M A G
0134320 E O B J P R O P ( 006 002 f e t c
0134340 h 006 001 S E L O B J 006 002 o f 006
0134360 001 O S E L ) \r
0134400
*
0134440 ' W H E N O P E R A T E
0134460 D O N F N ) ) \r
0134500 ( A P P
0134520 L Y * S E L F I N A L F N (
0134540 006 002 f e t c h 006 001 S E L O B J
0134560 006 002 o f 006 001 O S E L ) \r
0134600
0134620 ( W I N D O W
0134640 P R O P W ' D S P ) \r
0134660
0134700 ' S E L E C T E
0134720 D O S E L ( 006 002 f e t c h 006
0134740 001 S T R E A M H I N T 006 002 o
0134760 f 006 001 T E X T O B J ] ) \r \r (
0135000 006 004 \ T E D I T . W I N D O W .
0135020 O P S 006 001 \r [ L A M B D A
0135040 ( T E X T O B J W I N D O W T
0135060 O S P L I T ) 006 006 006 001
0135100
0135120 006 006 ( * j d s
0135140 " 2 9 - M a y - 8 5 0 8 : 3 9
0135160 " ) 006 001 \r \r
0135200 006 006 ( * *
0135220 D o w i n d o w o p e r a
0135240 t i o n s f o r T E d i t ,
0135260 e . g . , s p l i t t i n g
0135300 a w i n d o w , m o v i n
0135320 g t h e s p l i t \r 006 001
0135340 006 006 l o c a t
0135360 i o n , o r u n s p l i t t
0135400 i n g . ) 006 001 \r \r ( P R
0135420 O G ( [ W I N D O W O P R E G
0135440 I O N ( 006 002 c r e a t e 006 001
0135460 R E G I O N \r
0135500
0135520 L E F T _
0135540 ( D I F F E R E N C E ( 006 002 f
0135560 e t c h 006 001 W R I G H T 006 002
0135600 o f 006 001 T E X T O B J ) \r
0135620
*
0135660 8 )
0135700 \r
0135720
0135740 B O T T O M _ 0 \r
0135760
*
0136020 W I D T H _ 8 \r
0136040
0136060 H E I G
0136100 H T _ ( 006 002 f e t c h 006 001
0136120 H E I G H T 006 002 o f 006 001 ( W
0136140 I N D O W P R O P W I N D O W
0136160 T O S P L I T ' R E G I O N ]
0136200 \r Y O P
0136220 E R A T I O N ) \r
0136240 [ 006 002 w h i l e 006 001 [ A
0136260 N D ( M O U S E S T A T E (
0136300 O R L E F T M I D D L E R
0136320 I G H T ) ) \r
0136340 ( I N
0136360 S I D E ? W I N D O W O P R E
0136400 G I O N ( L A S T M O U S E X
0136420 W I N D O W T O S P L I T ) \r
0136440
0136460 ( S E
0136500 T Q Y ( L A S T M O U S E Y
0136520 W I N D O W T O S P L I T ]
0136540 006 002 d o 006 001 ( C O N D \r
0136560
*
0136660 ( ( M O U S E S T A T E
0136700 M I D D L E ) \r
0136720
*
0137000 (
0137020 C U R S O R \ T E D I T . M A
0137040 K E S P L I T C U R S O R \r
0137060
*
0137160 ) \r
0137200
*
0137300 ( S E T Q O P E R A
0137320 T I O N ' S P L I T ) ) \r
0137340
*
0137440 ( ( M O U S E S T A T E
0137460 L E F T ) \r
0137500
*
0137560 ( C
0137600 U R S O R \ T E D I T . M O V
0137620 E S P L I T C U R S O R \r
0137640
*
0137740 ) \r
0137760
*
0140060 ( S E T Q O P E R A T
0140100 I O N ' M O V E ) ) \r
0140120
*
0140220 ( ( M O U S E S T A T E R
0140240 I G H T ) \r
0140260
*
0140340 ( C U
0140360 R S O R \ T E D I T . U N S P
0140400 L I T C U R S O R ) \r
0140420
*
0140520 ( S E T Q O P E R A T I O
0140540 N ' U N S P L I T ] \r
0140560 ( C O N D \r
0140600 ( ( I N S I D
0140620 E ? W I N D O W O P R E G I O
0140640 N ( L A S T M O U S E X W I
0140660 N D O W T O S P L I T ) \r
0140700
0140720 ( S E T Q Y ( L A S T M
0140740 O U S E Y W I N D O W T O S P
0140760 L I T ) ) ) \r
0141000 ( C U R S O R \ T E
0141020 D I T . S P L I T C U R S O R )
0141040 \r (
0141060 S E L E C T Q O P E R A T I O
0141100 N \r
0141120 ( S P L I T ( 006 002 \ T
0141140 E D I T . S P L I T W 006 001 W I
0141160 N D O W T O S P L I T Y ) ) \r
0141200
0141220 ( U N S P L I T ( 006 002 \ T
0141240 E D I T . U N S P L I T W 006 001
0141260 W I N D O W T O S P L I T ) ) \r
0141300
0141320 ( M O V E ( 006 002 T E D I T
0141340 . P R O M P T P R I N T 006 001 T
0141360 E X T O B J " C a n ' t m o
0141400 v e t h e s p l i t p o i
0141420 n t y e t . " T ) ) \r
0141440 (
0141460 S H O U L D N T ) ) ) \r
0141500 ( T ( C U R
0141520