$ od -c -N 50000 [Erinyes]<LispManual>AttachedWindows.im!5
0000000 \r { B e g i n S u b S e c A
0000020 t t a c h e d W i n d o w s }
0000040 \r { T i t l e A t t a c h e d
0000060 W i n d o w s } \r { T e x t \r
0000100 \r { i n d e x * P R I M A R Y
0000120 * A t t a c h e d w i n d o
0000140 w s } \r \r T h e a t t a c h e
0000160 d w i n d o w f a c i l i t
0000200 y m a k e s i t e a s y
0000220 t o m a n i p u l a t e a
0000240 g r o u p o f w i n d o w
0000260 a s a u n i t . S t a n
0000300 d a r d w i n d o w o p e r
0000320 a t i o n s l i k e m o v i
0000340 n g , r e s h a p i n g , o
0000360 p e n i n g , a n d c l o s
0000400 i n g c a n b e d o n e
0000420 s o t h a t i t a p p e a
0000440 r s t o t h e u s e r a
0000460 s i f t h e w i n d o w s
0000500 a r e a s i n g l e e n
0000520 t i t y . E a c h c o l l
0000540 e c t i o n o f a t t a c h
0000560 e d w i n d o w s h a s o
0000600 n e m a i n w i n d o w a
0000620 n d a n y n u m b e r o f
0000640 o t h e r w i n d o w s t
0000660 h a t a r e " a t t a c h e
0000700 d " t o i t . M o v i n
0000720 g o r r e s h a p i n g t
0000740 h e m a i n w i n d o w c
0000760 a u s e s a l l o f t h e
0001000 a t t a c h e d w i n d o w
0001020 s t o b e m o v e d o r
0001040 r e s h a p e d a s w e l
0001060 l . M o v i n g o r r e
0001100 s h a p i n g a n a t t a c
0001120 h e d w i n d o w d o e s
0001140 n o t a f f e c t t h e m
0001160 a i n w i n d o w . \r \r A t t
0001200 a c h e d w i n d o w s c a
0001220 n h a v e o t h e r w i n
0001240 d o w s a t t a c h e d t o
0001260 t h e m . T h u s , i t
0001300 i s p o s s i b l e t o
0001320 a t t a c h w i n d o w A
0001340 t o w i n d o w B w h e n
0001360 B i s a l r e a d y a t
0001400 t a c h e d t o w i n d o w
0001420 C . S i m i l a r l y ,
0001440 i f A h a s o t h e r w
0001460 i n d o w s a t t a c h e d
0001500 t o i t , i t c a n s t
0001520 i l l b e a t t a c h e d
0001540 t o B . \r \r \r { F n D e f
0001560 { N a m e A T T A C H W I N D
0001600 O W } { A r g s W I N D O W
0001620 T O A T T A C H M A I N W I N
0001640 D O W E D G E P O S I T I O
0001660 N O N E D G E W I N D O W C O
0001700 M A C T I O N } \r { T e x t \r A
0001720 s s o c i a t e s { a r g W
0001740 I N D O W T O A T T A C H } w
0001760 i t h { a r g M A I N W I N
0002000 D O W } s o t h a t w i n
0002020 d o w o p e r a t i o n s d
0002040 o n e t o { a r g M A I N
0002060 W I N D O W } a r e a l s o
0002100 d o n e t o { a r g W I
0002120 N D O W T O A T T A C H } ( t
0002140 h e e x a c t s e t o f
0002160 w i n d o w o p e r a t i o n
0002200 s p a s s e d b e t w e e n
0002220 m a i n w i n d o w s a n
0002240 d a t t a c h e d w i n d o
0002260 w s i s d e s c r i b e d
0002300 o n { P a g e R e f ( W i n
0002320 d o w P r o p e r t y ) P A
0002340 S S T O M A I N C O M S } ) .
0002360 { f n A T T A C H W I N D O
0002400 W } m o v e s { a r g W I
0002420 N D O W T O A T T A C H } t o
0002440 t h e c o r r e c t p o s
0002460 i t i o n r e l a t i v e t
0002500 o { a r g M A I N W I N D O
0002520 W } . \r \r N o t e : A w i
0002540 n d o w c a n b e a t t a
0002560 c h e d t o o n l y o n e
0002600 o t h e r w i n d o w .
0002620 A t t a c h i n g a w i n d
0002640 o w t o a s e c o n d w
0002660 i n d o w w i l l d e t a c
0002700 h i t f r o m t h e f i
0002720 r s t . A t t a c h m e n t
0002740 s c a n n o t f o r m l
0002760 o o p s . T h a t i s ,
0003000 a w i n d o w c a n n o t
0003020 b e a t t a c h e d t o i
0003040 t s e l f o r t o a w i
0003060 n d o w t h a t i s a t t
0003100 a c h e d t o i t . { f
0003120 n A T T A C H W I N D O W }
0003140 w i l l g e n e r a t e a n
0003160 e r r o r i f t h i s i
0003200 s a t t e m p t e d . \r \r \r \r
0003220 { a r g E D G E } d e t e r
0003240 m i n e s w h i c h e d g e
0003260 o f { a r g M A I N W I N
0003300 D O W } t h e a t t a c h e
0003320 d w i n d o w i s p o s i
0003340 t i o n e d a l o n g : i t
0003360 s h o u l d b e o n e o
0003400 f { l i s p T O P } , { l
0003420 i s p B O T T O M } , { l i
0003440 s p L E F T } , o r { l i
0003460 s p R I G H T } . I f {
0003500 a r g E D G E } i s { l i
0003520 s p N I L } , i t d e f a
0003540 u l t s t o { l i s p T O
0003560 P } . \r \r { a r g P O S I T I
0003600 O N O N E D G E } d e t e r m
0003620 i n e s w h e r e a l o n g
0003640 { a r g E D G E } t h e
0003660 a t t a c h e d w i n d o w
0003700 i s p o s i t i o n e d .
0003720 I t s h o u l d b e o n e
0003740 o f t h e f o l l o w i n
0003760 g : \r \r { B e g i n L a b e l
0004000 e d L i s t } \r \r { L a b e l
0004020 { l i s p L E F T } } \r { T e
0004040 x t T h e a t t a c h e d
0004060 w i n d o w i s p l a c e d
0004100 o n t h e l e f t ( o f
0004120 a { l i s p T O P } o r
0004140 { l i s p B O T T O M } e
0004160 d g e ) . } \r \r { L a b e l {
0004200 l i s p R I G H T } } \r { T e
0004220 x t T h e a t t a c h e d
0004240 w i n d o w i s p l a c e d
0004260 o n t h e r i g h t ( o
0004300 f a { l i s p T O P } o
0004320 r { l i s p B O T T O M }
0004340 e d g e ) . } \r \r { L a b e l
0004360 { l i s p B O T T O M } } \r {
0004400 T e x t T h e a t t a c h e
0004420 d w i n d o w i s p l a c
0004440 e d o n t h e b o t t o m
0004460 ( o f a { l i s p L E F
0004500 T } o r { l i s p R I G H
0004520 T } e d g e ) . } \r \r { L a b
0004540 e l { l i s p T O P } } \r {
0004560 T e x t T h e a t t a c h e
0004600 d w i n d o w i s p l a c
0004620 e d o n t h e t o p ( o
0004640 f a { l i s p L E F T }
0004660 o r { l i s p R I G H T }
0004700 e d g e ) . } \r \r { L a b e l
0004720 { l i s p C E N T E R } } \r {
0004740 T e x t T h e a t t a c h e
0004760 d w i n d o w i s p l a c
0005000 e d i n t h e c e n t e r
0005020 o f t h e e d g e . } \r \r
0005040 { L a b e l { l i s p J U S
0005060 T I F Y } } \r { L a b e l o r
0005100 { l i s p N I L } } \r { T e
0005120 x t T h e a t t a c h e d
0005140 w i n d o w i s p l a c e d
0005160 t o f i l l t h e e n t
0005200 i r e e d g e . { f n A
0005220 T T A C H W I N D O W } r e s
0005240 h a p e s t h e w i n d o w
0005260 i f n e c e s s a r y . \r \r
0005300 N o t e : T h e w i d t h
0005320 o r h e i g h t u s e d
0005340 t o j u s t i f y a n a t
0005360 t a c h e d w i n d o w i n
0005400 c l u d e s a n y o t h e r
0005420 w i n d o w s t h a t h a
0005440 v e a l r e a d y b e e n
0005460 a t t a c h e d t o { a r g
0005500 M A I N W I N D O W } . T
0005520 h u s { l i s p ( A T T A C
0005540 H W I N D O W B B B A A A
0005560 ' R I G H T ' J U S T I F Y )
0005600 } f o l l o w e d b y { l
0005620 i s p ( A T T A C H W I N D O
0005640 W C C C A A A ' T O P '
0005660 J U S T I F Y ) } w i l l p
0005700 u t { l i s p C C C } a c
0005720 r o s s t h e t o p o f
0005740 b o t h { l i s p B B B }
0005760 a n d { l i s p A A A } : \r
0006000 \r \0 001 \0 \0 \0 x \0 K \0 001 377 377 377 377 377
0006020 377 377 377 377 377 377 377 377 377 377 \0 377 377 377 377 377
0006040 377 377 377 377 377 377 377 377 377 377 \0 374 8 p 377 377
0006060 377 377 377 377 377 377 377 377 377 377 \0 373 327 257 177 377
0006100 377 377 377 377 377 377 377 377 377 377 \0 373 367 357 377 377
*
0006140 377 377 377 377 377 377 377 377 377 377 \0 373 327 257 177 377
0006160 377 377 377 377 377 377 377 377 377 377 \0 374 8 p 377 377
0006200 377 377 377 377 377 377 377 377 377 377 \0 377 377 377 377 377
*
0006260 377 377 377 377 377 377 377 377 377 377 \0 300 \0 \0 \0 \0
0006300 \0 \0 \0 \0 \0 \0 \0 \0 \0 003 \0 300 \0 \0 \0 \0
*
0007060 \0 \0 \0 \0 \0 \0 \0 \0 \0 003 \0 377 377 377 377 377
0007100 377 377 377 377 377 377 377 377 377 377 \0 377 377 377 377 377
*
0007160 377 377 377 377 377 377 377 377 377 377 \0 376 375 373 377 377
0007200 377 377 370 p 341 377 377 377 377 377 \0 375 z 365 377 377
0007220 377 377 373 267 n 377 377 377 377 377 \0 375 z 365 377 377
0007240 377 377 370 p 341 377 377 377 377 377 \0 373 267 n 377 377
0007260 377 377 373 267 n 377 377 377 377 377 \0 370 0 ` 377 377
0007300 377 377 373 267 n 377 377 377 377 377 \0 367 317 237 177 377
0007320 377 377 370 p 341 377 377 377 377 377 \0 377 377 377 377 377
0007340 377 377 377 377 377 377 377 377 377 377 \0 377 377 377 377 377
*
0007400 377 377 377 377 377 377 377 377 377 377 \0 300 \0 \0 \0 \0
0007420 \0 003 300 \0 \0 \0 \0 \0 \0 003 \0 300 \0 \0 \0 \0
*
0010220 \0 003 300 \0 \0 \0 \0 \0 \0 003 \0 377 377 377 377 377
0010240 377 377 377 377 377 377 377 377 377 377 \0 377 377 377 377 377
0010260 377 377 377 377 377 377 377 377 377 377 \0 } \r \r { E
0010300 n d L a b e l e d L i s t } \r
0010320 \r { a r g W I N D O W C O M A
0010340 C T I O N } p r o v i d e s
0010360 a c o n v e n i e n t w a y
0010400 o f s p e c i f y i n g h
0010420 o w { a r g W I N D O W T O
0010440 A T T A C H } r e s p o n d s
0010460 t o r i g h t b u t t o n
0010500 m e n u c o m m a n d s .
0010520 T h e w i n d o w p r o p
0010540 e r t y { l i s p P A S S T
0010560 O M A I N C O M S } d e t e r
0010600 m i n e s w h i c h r i g h
0010620 t b u t t o n m e n u c o
0010640 m m a n d s a r e d i r e c
0010660 t l y a p p l i e d t o t
0010700 h e a t t a c h e d w i n d
0010720 o w , a n d w h i c h a r
0010740 e p a s s e d t o t h e
0010760 m a i n w i n d o w ( s e e
0011000 { P a g e R e f ( W i n d o
0011020 w P r o p e r t y ) P A S S
0011040 T O M A I N C O M S } ) . D
0011060 e p e n d i n g o n t h e
0011100 v a l u e o f { a r g W I
0011120 N D O W C O M A C T I O N } ,
0011140 t h e { l i s p P A S S T O
0011160 M A I N C O M S } w i n d o w
0011200 p r o p e r t y o f { a r
0011220 g W I N D O W T O A T T A C H
0011240 } i s s e t a s f o l l
0011260 o w s : \r \r { B e g i n L a b
0011300 e l e d L i s t W I N D O W C
0011320 O M A C T I O N v a l u e s }
0011340 \r \r { L a b e l { L i s p N
0011360 I L } } \r { T e x t { l i s p
0011400 P A S S T O M A I N C O M S }
0011420 i s s e t t o { l i s p
0011440 ( C L O S E W M O V E W S
0011460 H A P E W S H R I N K W B U
0011500 R Y W ) } , s o r i g h t
0011520 b u t t o n m e n u c o m m
0011540 a n d s t o c l o s e , m
0011560 o v e , s h a p e , s h r i
0011600 n k , a n d b u r y a r e
0011620 p a s s e d t o t h e m
0011640 a i n w i n d o w , a n d
0011660 a l l o t h e r s a r e a
0011700 p p l i e d t o t h e a t
0011720 t a c h e d w i n d o w . } \r
0011740 \r { L a b e l { L i s p L O
0011760 C A L C L O S E } } \r { T e x t
0012000 { l i s p P A S S T O M A I
0012020 N C O M S } i s s e t t o
0012040 { l i s p ( M O V E W S H
0012060 A P E W S H R I N K W B U R
0012100 Y W ) } , w h i c h i s t
0012120 h e s a m e a s w h e n
0012140 { a r g W I N D O W C O M A C
0012160 T I O N } i s { l i s p N
0012200 I L } , e x c e p t t h a t
0012220 t h e a t t a c h e d w i
0012240 n d o w c a n b e c l o s
0012260 e d i n d e p e n d e n t l y
0012300 . } \r \r { L a b e l { L i s p
0012320 H E R E } } \r { T e x t { l
0012340 i s p P A S S T O M A I N C O
0012360 M S } i s s e t t o { l
0012400 i s p N I L } , s o a l l
0012420 r i g h t b u t t o n m e
0012440 n u c o m m a n d s a r e
0012460 a p p l i e d t o t h e a
0012500 t t a c h e d w i n d o w . }
0012520 \r \r { L a b e l { L i s p M
0012540 A I N } } \r { T e x t { l i s
0012560 p P A S S T O M A I N C O M S
0012600 } i s s e t t o { l i s
0012620 p T } , s o a l l r i g
0012640 h t b u t t o n m e n u c
0012660 o m m a n d s a r e p a s s
0012700 e d t o t h e m a i n w
0012720 i n d o w . } \r \r { E n d L a
0012740 b e l e d L i s t W I N D O W
0012760 C O M A C T I O N v a l u e s
0013000 } \r \r N o t e : I f t h e
0013020 u s e r w a n t s t o s
0013040 e t t h e { l i s p P A S
0013060 S T O M A I N C O M S } w i n
0013100 d o w p r o p e r t y o f
0013120 a n a t t a c h e d w i n d
0013140 o w t o s o m e t h i n g
0013160 e l s e , i t m u s t b e
0013200 d o n e { i t a f t e r }
0013220 t h e w i n d o w i s a
0013240 t t a c h e d , s i n c e {
0013260 f n A T T A C H W I N D O W }
0013300 m o d i f i e s t h i s w
0013320 i n d o w p r o p e r t y . \r
0013340 } } \r \r \r { F n D e f { N a m
0013360 e D E T A C H W I N D O W }
0013400 { A r g s W I N D O W T O D E
0013420 T A C H } \r { T e x t \r D e t a
0013440 c h e s { a r g W I N D O W
0013460 T O D E T A C H } f r o m i
0013500 t s m a i n w i n d o w .
0013520 R e t u r n s a d o t t e
0013540 d p a i r { l i s p ( { a
0013560 r g E D G E } . { a r g
0013600 P O S I T I O N O N E D G E } )
0013620 } i f { a r g W I N D O W
0013640 T O D E T A C H } w a s a n
0013660 a t t a c h e d w i n d o w
0013700 , { l i s p N I L } o t h
0013720 e r w i s e . T h i s d o
0013740 e s n o t c l o s e { a r
0013760 g W I N D O W T O D E T A C H
0014000 } . \r } } \r \r \r { F n D e f {
0014020 N a m e D E T A C H A L L W I
0014040 N D O W S } { A r g s M A I
0014060 N W I N D O W } \r { T e x t \r
0014100 D e t a c h e s a n d c l o
0014120 s e s a l l w i n d o w s
0014140 a t t a c h e d t o { a r g
0014160 M A I N W I N D O W } . \r } }
0014200 \r \r { F n D e f { N a m e F
0014220 R E E A T T A C H E D W I N D O
0014240 W } { A r g s W I N D O W }
0014260 \r { T e x t \r D e t a c h e s
0014300 t h e a t t a c h e d w i
0014320 n d o w { a r g W I N D O W
0014340 } . I n a d d i t i o n ,
0014360 o t h e r a t t a c h e d
0014400 w i n d o w s a b o v e ( i
0014420 n t h e c a s e o f a
0014440 { l i s p T O P } a t t a c
0014460 h e d w i n d o w ) o r b
0014500 e l o w ( i n t h e c a s
0014520 e o f a { l i s p B O T
0014540 T O M } a t t a c h e d w i
0014560 n d o w ) a r e m o v e d
0014600 c l o s e r t o t h e m a
0014620 i n w i n d o w t o f i l
0014640 l t h e g a p . \r \r \r N o t
0014660 e : A t t a c h e d w i n
0014700 d o w s t h a t " r e j e c
0014720 t " t h e m o v e o p e r
0014740 a t i o n ( s e e { l i s p
0014760 R E J E C T M A I N C O M S }
0015000 , { P a g e R e f ( W i n d
0015020 o w P r o p e r t y ) R E J
0015040 E C T M A I N C O M S } ) a r
0015060 e n o t m o v e d . \r \r N o
0015100 t e : { f n F R E E A T T
0015120 A C H E D W I N D O W } c u r
0015140 r e n t l y d o e s n ' t h
0015160 a n d l e { l i s p L E F T
0015200 } o r { l i s p R I G H T
0015220 } a t t a c h e d w i n d o
0015240 w s . \r } } \r \r { F n D e f {
0015260 N a m e R E M O V E W I N D O
0015300 W } { A r g s W I N D O W }
0015320 \r { T e x t \r C l o s e s {
0015340 a r g W I N D O W } , a n d
0015360 c a l l s { f n F R E E A
0015400 T T A C H E D W I N D O W } t
0015420 o m o v e o t h e r a t t
0015440 a c h e d w i n d o w s t o
0015460 f i l l a n y g a p s . \r
0015500 } } \r \r \r { F n D e f { N a m
0015520 e R E P O S I T I O N A T T A
0015540 C H E D W I N D O W S } { A r
0015560 g s W I N D O W } \r { T e x t
0015600 \r R e p o s i t i o n s e v
0015620 e r y w i n d o w a t t a c
0015640 h e d t o { a r g W I N D
0015660 O W } , i n t h e o r d e
0015700 r t h a t t h e y w e r e
0015720 a t t a c h e d . T h i s
0015740 i s u s e f u l a s a
0015760 { l i s p R E S H A P E F N }
0016000 f o r m a i n w i n d o w
0016020 s w i t h a t t a c h e d
0016040 w i n d o w t h a t d o n '
0016060 t w a n t t o b e r e s
0016100 h a p e d , b u t d o w a
0016120 n t t o k e e p t h e i r
0016140 p o s i t i o n r e l a t i
0016160 v e t o t h e m a i n w
0016200 i n d o w w h e n t h e m
0016220 a i n w i n d o w i s r e
0016240 s h a p e d . \r \r N o t e :
0016260 A t t a c h e d w i n d o w s
0016300 t h a t " r e j e c t " t
0016320 h e m o v e o p e r a t i o
0016340 n ( s e e { l i s p R E J
0016360 E C T M A I N C O M S } , { P
0016400 a g e R e f ( W i n d o w P
0016420 r o p e r t y ) R E J E C T M
0016440 A I N C O M S } ) a r e n o
0016460 t m o v e d . \r } } \r \r \r { F
0016500 n D e f { N a m e M A I N W
0016520 I N D O W } { A r g s W I N
0016540 D O W R E C U R S E F L G } \r
0016560 { T e x t \r I f { a r g W
0016600 I N D O W } i s n o t a
0016620 w i n d o w , i t g e n e r
0016640 a t e s a n e r r o r .
0016660 I f { a r g W I N D O W }
0016700 i s c l o s e d , i t r e
0016720 t u r n s { a r g W I N D O
0016740 W } . I f { a r g W I N
0016760 D O W } i s n o t a t t a
0017000 c h e d t o a n o t h e r
0017020 w i n d o w , i t r e t u r
0017040 n s { a r g W I N D O W }
0017060 i t s e l f . I f { a r g
0017100 R E C U R S E F L G } i s
0017120 { l i s p N I L } a n d {
0017140 a r g W I N D O W } i s a
0017160 t t a c h e d t o a w i n
0017200 d o w , i t r e t u r n s
0017220 t h a t w i n d o w . I f
0017240 { a r g R E C U R S E F L G
0017260 } i s { l i s p T } , i
0017300 t r e t u r n s t h e f i
0017320 r s t w i n d o w u p t h
0017340 e " m a i n w i n d o w "
0017360 c h a i n s t a r t i n g a
0017400 t { a r g W I N D O W } t
0017420 h a t i s n o t a t t a c
0017440 h e d t o a n y o t h e r
0017460 w i n d o w . \r } } \r \r { F n
0017500 D e f { N a m e A T T A C H
0017520 E D W I N D O W S } { A r g s
0017540 W I N D O W C O M } \r { T e
0017560 x t \r R e t u r n s t h e
0017600 l i s t o f w i n d o w s
0017620 a t t a c h e d t o { a r g
0017640 W I N D O W } . \r \r I f { a
0017660 r g C O M } i s n o n - {
0017700 l i s p N I L } , o n l y
0017720 t h o s e w i n d o w s a t
0017740 t a c h e d t o { a r g W
0017760 I N D O W } t h a t d o n
0020000 o t r e j e c t t h e w i
0020020 n d o w o p e r a t i o n {
0020040 a r g C O M } a r e r e t
0020060 u r n e d ( s e e { l i s p
0020100 R E J E C T M A I N C O M S }
0020120 , { P a g e R e f ( W i n d
0020140 o w P r o p e r t y ) R E J
0020160 E C T M A I N C O M S } ) . \r }
0020200 } \r \r { F n D e f { N a m e
0020220 A L L A T T A C H E D W I N D O
0020240 W S } { A r g s W I N D O W
0020260 } \r { T e x t \r R e t u r n s
0020300 a l i s t o f a l l o
0020320 f t h e w i n d o w s a t
0020340 t a c h e d t o { a r g W
0020360 I N D O W } o r a t t a c h
0020400 e d t o a w i n d o w a
0020420 t t a c h e d t o i t . \r }
0020440 } \r \r \r { F n D e f { N a m e
0020460 W I N D O W R E G I O N } {
0020500 A r g s W I N D O W C O M }
0020520 \r { T e x t \r R e t u r n s
0020540 t h e s c r e e n r e g i o
0020560 n o c c u p i e d b y { a
0020600 r g W I N D O W } a n d i
0020620 t s a t t a c h e d w i n d
0020640 o w s , i f i t h a s a
0020660 n y . \r \r I f { a r g C O M
0020700 } i s n o n - { l i s p N
0020720 I L } , o n l y t h o s e
0020740 w i n d o w s a t t a c h e d
0020760 t o { a r g W I N D O W }
0021000 t h a t d o n o t r e j
0021020 e c t t h e w i n d o w o
0021040 p e r a t i o n { a r g C O
0021060 M } a r e c o n s i d e r e
0021100 d i n t h e c a l c u l a
0021120 t i o n ( s e e { l i s p
0021140 R E J E C T M A I N C O M S } ,
0021160 { P a g e R e f ( W i n d o
0021200 w P r o p e r t y ) R E J E
0021220 C T M A I N C O M S } ) . \r } }
0021240 \r \r { F n D e f { N a m e W
0021260 I N D O W S I Z E } { A r g s
0021300 W I N D O W } \r { T e x t \r R
0021320 e t u r n s t h e s i z e
0021340 o f { a r g W I N D O W }
0021360 a n d i t s a t t a c h e d
0021400 w i n d o w s ( i f a n y
0021420 ) , a s a d o t t e d p
0021440 a i r { l i s p ( { a r g
0021460 W I D T H } . { a r g H E
0021500 I G H T } ) } . \r } } \r \r { F n
0021520 D e f { N a m e M I N A T T
0021540 A C H E D W I N D O W E X T E N
0021560 T } { A r g s W I N D O W }
0021600 \r { T e x t \r R e t u r n s
0021620 t h e m i n i m u m s i z e
0021640 t h a t { a r g W I N D O
0021660 W } a n d i t s a t t a c
0021700 h e d w i n d o w s ( i f
0021720 a n y ) w i l l a c c e p t
0021740 , a s a d o t t e d p a
0021760 i r { l i s p ( { a r g W
0022000 I D T H } . { a r g H E I
0022020 G H T } ) } . \r } } \r \r \r { B e
0022040 g i n S u b S e c A t t a c
0022060 h i n g M e n u s T o W i
0022100 n d o w s } \r { T i t l e A t
0022120 t a c h i n g M e n u s T o
0022140 W i n d o w s } \r { T e x t \r
0022160 \r T h e f o l l o w i n g f
0022200 u n c t i o n s a r e p r o
0022220 v i d e d t o a s s o c i a
0022240 t e m e n u s t o w i n d
0022260 o w s . \r \r { F n D e f { N a
0022300 m e M E N U W I N D O W } {
0022320 A r g s M E N U V E R T F L
0022340 G } \r { T e x t \r R e t u r n s
0022360 a c l o s e d w i n d o w
0022400 t h a t h a s t h e m e
0022420 n u { a r g M E N U } i n
0022440 i t . I f { a r g M E
0022460 N U } i s a l i s t , a
0022500 m e n u i s c r e a t e d
0022520 w i t h { a r g M E N U }
0022540 a s i t s { l i s p I T
0022560 E M S } m e n u f i e l d
0022600 ( s e e { P a g e R e f ( M
0022620 e n u F i e l d ) I T E M S
0022640 } ) . O t h e r w i s e ,
0022660 { a r g M E N U } s h o u l
0022700 d b e a m e n u . T h
0022720 e r e t u r n e d w i n d o
0022740 w h a s t h e a p p r o p
0022760 r i a t e { l i s p R E S H
0023000 A P E F N } , { l i s p M I
0023020 N S I Z E } a n d { l i s p
0023040 M A X S I Z E } w i n d o w
0023060 p r o p e r t i e s t o a
0023100 l l o w i t s u s e i n
0023120 a w i n d o w g r o u p . \r
0023140 \r I f b o t h t h e { l i
0023160 s p M E N U R O W S } a n d
0023200 { l i s p M E N U C O L U M
0023220 N S } f i e l d s o f { a
0023240 r g M E N U } a r e { l i
0023260 s p N I L } , { a r g V E
0023300 R T F L G } i s u s e d t
0023320 o s e t t h e d e f a u l
0023340 t m e n u s h a p e . I
0023360 f { a r g V E R T F L G }
0023400 i s n o n - { l i s p N I L
0023420 } , t h e { l i s p M E N
0023440 U C O L U M N S } f i e l d
0023460 o f { a r g M E N U } w i
0023500 l l b e s e t t o 1 (
0023520 t h e m e n u i t e m s w
0023540 i l l b e l i s t e d v e
0023560 r t i c a l l y ) ; o t h e r
0023600 w i s e t h e { l i s p M
0023620 E N U R O W S } f i e l d o
0023640 f { a r g M E N U } w i l
0023660 l b e s e t t o 1 ( t
0023700 h e m e n u i t e m s w i
0023720 l l b e l i s t e d h o r
0023740 i z o n t a l l y ) . \r } } \r \r
0023760 { F n D e f { N a m e A T T
0024000 A C H M E N U } { A r g s M
0024020 E N U M A I N W I N D O W E
0024040 D G E P O S I T I O N O N E D
0024060 G E N O O P E N F L G } \r { T
0024100 e x t \r C r e a t e s a w i
0024120 n d o w t h a t c o n t a i
0024140 n s t h e m e n u { a r g
0024160 M E N U } ( b y c a l l i
0024200 n g { f n M E N U W I N D O
0024220 W } ) a n d a t t a c h e s
0024240 i t t o t h e w i n d o
0024260 w { a r g M A I N W I N D O
0024300 W } o n e d g e { a r g
0024320 E D G E } a t p o s i t i o
0024340 n { a r g P O S I T I O N O
0024360 N E D G E } . T h e m e n
0024400 u w i n d o w i s o p e n
0024420 e d u n l e s s { a r g M
0024440 A I N W I N D O W } i s c l
0024460 o s e d , o r { a r g N O
0024500 O P E N F L G } i s { l i s
0024520 p T } . \r \r I f { a r g E
0024540 D G E } i s e i t h e r {
0024560 l i s p L E F T } o r { l
0024600 i s p R I G H T } , { f n
0024620 M E N U W I N D O W } w i l l
0024640 b e c a l l e d w i t h
0024660 { a r g V E R T F L G } = { l
0024700 i s p T } , s o t h e m
0024720 e n u i t e m s w i l l b
0024740 e l i s t e d v e r t i c a
0024760 l l y ; o t h e r w i s e t
0025000 h e m e n u i t e m s w i
0025020 l l b e l i s t e d h o r
0025040 i z o n t a l l y . T h e s
0025060 e d e f a u l t s c a n b
0025100 e o v e r r i d d e n b y
0025120 s p e c i f y i n g t h e {
0025140 l i s p M E N U R O W S } o
0025160 r { l i s p M E N U C O L U
0025200 M N S } f i e l d s i n {
0025220 a r g M E N U } . \r } } \r \r {
0025240 F n D e f { N a m e C R E A
0025260 T E M E N U E D W I N D O W }
0025300 { A r g s M E N U W I N D O
0025320 W T I T L E L O C A T I O N
0025340 W I N D O W S P E C } \r { T e x
0025360 t \r C r e a t e s a w i n d
0025400 o w w i t h a n a t t a c
0025420 h e d m e n u a n d r e t
0025440 u r n s t h e m a i n w i
0025460 n d o w . { a r g M E N U
0025500 } i s t h e o n l y r e
0025520 q u i r e d a r g u m e n t ,
0025540 a n d m a y b e a m e
0025560 n u o r a l i s t o f
0025600 m e n u i t e m s . { a r
0025620 g W I N D O W T I T L E } i
0025640 s a s t r i n g s p e c i
0025660 f y i n g t h e t i t l e
0025700 o f t h e m a i n w i n d
0025720 o w . { a r g L O C A T I
0025740 O N } s p e c i f i e s t h
0025760 e e d g e o n w h i c h
0026000 t o p l a c e t h e m e n
0026020 u ; t h e d e f a u l t i
0026040 s { l i s p T O P } . {
0026060 a r g W I N D O W S P E C }
0026100 i s a r e g i o n s p e c
0026120 i f y i n g a r e g i o n
0026140 f o r t h e a g g r e g a t
0026160 e w i n d o w ; i f { l i
0026200 s p N I L } , t h e u s e
0026220 r i s p r o m p t e d f o
0026240 r a r e g i o n . \r } } \r \r
0026260 E x a m p l e s : \r \r { l i s p
0026300 c o d e \r ( S E T Q M E N U W
0026320 \r ( M E N U W I N D O W \r
0026340 ( c r e a t e M E N U
0026360 \r I T E M S _
0026400 ' ( s m a l l e r L A R G E
0026420 R ) \r M E N U F
0026440 O N T _ ' ( M O D E R N 1
0026460 2 ) \r T I T L E
0026500 _ " z o o m c o n t r o l
0026520 s " \r C E N T E
0026540 R F L G _ T \r
0026560 W H E N S E L E C T E D F N
0026600 _ ( F U N C T I O N Z O O M
0026620 M A I N W I N D O W ) ) ) ) } \r
0026640 \r c r e a t e s ( b u t d o
0026660 e s n o t o p e n ) a m
0026700 e n u w i n d o w t h a t
0026720 c o n t a i n s t h e t w o
0026740 i t e m s " { l i s p s m
0026760 a l l e r } " a n d " { l i
0027000 s p L A R G E R } " w i t h
0027020 t h e t i t l e " { l i s
0027040 p z o o m c o n t r o l s }
0027060 " a n d t h a t c a l l s
0027100 t h e f u n c t i o n { l
0027120 i s p Z O O M M A I N W I N D
0027140 O W } w h e n a n i t e m
0027160 i s s e l e c t e d . N
0027200 o t e t h a t t h e m e n
0027220 u i t e m s w i l l b e
0027240 l i s t e d h o r i z o n t a
0027260 l l y , b e c a u s e { f n
0027300 M E N U W I N D O W } i s
0027320 c a l l e d w i t h { a r g
0027340 V E R T F L G } = { l i s p
0027360 N I L } , a n d t h e m e
0027400 n u d o e s n o t s p e c
0027420 i f y e i t h e r a { l i
0027440 s p M E N U R O W S } o r
0027460 { l i s p M E N U C O L U M N
0027500 S } f i e l d . \r \r { l i s p
0027520 c o d e \r ( A T T A C H W I N D
0027540 O W M E N U W \r ( C R E
0027560 A T E W ' ( 5 0 5 0 1 5 0
0027600 5 0 ) ) \r ' T O P \r
0027620 ' J U S T I F Y ) } \r \r c r e
0027640 a t e s a w i n d o w o n
0027660 t h e s c r e e n a n d
0027700 a t t a c h e s t h e a b o
0027720 v e c r e a t e d m e n u
0027740 w i n d o w t o i t s t o
0027760 p : \r \r \0 001 \0 \0 \0 226 \0 K \0 001 377 377
0030000 377 377 377 377 377 377 377 377 377 377 377 377 377 377 377 377
0030020 374 \0 377 377 377 377 377 377 377 377 377 377 377 377 377 377
0030040 377 377 377 377 374 \0 377 377 377 377 377 377 377 377 377 377
0030060 377 337 376 377 377 377 377 377 374 \0 377 377 377 377 377 303
0030100 < 351 ? 236 t 212 316 343 377 377 377 377 374 \0 377 377
0030120 377 377 377 366 333 d 277 m 262 330 266 337 377 377 377 377
0030140 374 \0 377 377 377 377 377 356 333 m 277 } 266 333 266 347
0030160 377 377 377 377 374 \0 377 377 377 377 377 336 333 m 277 m
0030200 266 333 266 373 377 377 377 377 374 \0 377 377 377 377 377 303
0030220 < 355 277 236 v 313 316 307 377 377 377 377 374 \0 377 377
0030240 377 377 377 377 377 377 377 377 377 377 377 377 377 377 377 377
0030260 374 \0 377 377 377 377 377 377 377 377 377 377 377 377 377 377
0030300 377 377 377 377 374 \0 200 \0 \0 \0 \0 \0 \0 \0 \0 \0
0030320 \0 \0 \0 \0 \0 \0 \0 \0 004 \0 200 \0 \0 \0 \0 $
0030340 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 004 \0 200 \0
0030360 \0 \0 \0 $ \0 \0 \0 \0 \0 020 \b < 036 > x \0
0030400 004 \0 200 \0 \0 \0 \0 $ \0 \0 \0 \0 \0 020 \b "
0030420 ! D \0 004 \0 200 \0 034 263 036 $ q ` \0 \0
0030440 \0 020 024 " @ D \0 004 \0 200 \0 314 201 $
0030460 211 200 \0 \0 \0 020 024 < @ < x \0 004 \0 200 \0
0030500 030 210 217 $ 371 \0 \0 \0 \0 020 " $ G H \0
0030520 004 \0 200 \0 004 210 221 $ 201 \0 \0 \0 \0 020 > "
0030540 A D \0 004 \0 200 \0 004 210 223 $ 201 \0 \0 \0
0030560 \0 020 A " ! D \0 004 \0 200 \0 8 210 215 $
0030600 y \0 \0 \0 \0 037 A ! 037 > B \0 004 \0 200 \0
0030620 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0030640 004 \0 200 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0030660 \0 \0 \0 \0 004 \0 200 \0 \0 \0 \0 \0 \0 \0 \0 \0
0030700 \0 \0 \0 \0 \0 \0 \0 \0 004 \0 200 \0 \0 \0 \0 \0
0030720 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 004 \0 377 377
0030740 377 377 377 377 377 377 377 377 377 377 377 377 377 377 377 377
0030760 374 \0 377 377 377 377 377 377 377 377 377 377 377 377 377 377
0031000 377 377 377 377 374 \0 377 377 377 377 377 377 377 377 377 377
0031020 377 377 377 377 377 377 377 377 374 \0 300 \0 \0 \0 \0 \0
0031040 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \f \0 300 \0
0031060 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0031100 \f \0 300 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0031120 \0 \0 \0 \0 \f \0 300 \0 \0 \0 \0 \0 \0 \0 \0 \0
0031140 \0 \0 \0 \0 \0 \0 \0 \0 \f \0 300 \0 \0 \0 \0 \0
0031160 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \f \0 300 \0
0031200 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0031220 \f \0 300 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0031240 \0 \0 \0 \0 \f \0 300 \0 \0 \0 \0 \0 \0 \0 \0 \0
0031260 \0 \0 \0 \0 \0 \0 \0 \0 \f \0 300 \0 \0 \0 \0 \0
0031300 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \f \0 300 \0
0031320 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0031340 \f \0 300 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0031360 \0 \0 \0 \0 \f \0 300 \0 \0 \0 \0 \0 \0 \0 \0 \0
0031400 \0 \0 \0 \0 \0 \0 \0 \0 \f \0 300 \0 \0 \0 \0 \0
0031420 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \f \0 300 \0
0031440 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0031460 \f \0 300 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0031500 \0 \0 \0 \0 \f \0 300 \0 \0 \0 \0 \0 \0 \0 \0 \0
0031520 \0 \0 \0 \0 \0 \0 \0 \0 \f \0 300 \0 \0 \0 \0 \0
0031540 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \f \0 300 \0
0031560 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0031600 \f \0 300 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0031620 \0 \0 \0 \0 \f \0 300 \0 \0 \0 \0 \0 \0 \0 \0 \0
0031640 \0 \0 \0 \0 \0 \0 \0 \0 \f \0 300 \0 \0 \0 \0 \0
0031660 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \f \0 300 \0
0031700 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0031720 \f \0 300 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0031740 \0 \0 \0 \0 \f \0 300 \0 \0 \0 \0 \0 \0 \0 \0 \0
0031760 \0 \0 \0 \0 \0 \0 \0 \0 \f \0 300 \0 \0 \0 \0 \0
0032000 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \f \0 300 \0
0032020 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0032040 \f \0 300 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0032060 \0 \0 \0 \0 \f \0 300 \0 \0 \0 \0 \0 \0 \0 \0 \0
0032100 \0 \0 \0 \0 \0 \0 \0 \0 \f \0 300 \0 \0 \0 \0 \0
0032120 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \f \0 300 \0
0032140 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0032160 \f \0 300 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0032200 \0 \0 \0 \0 \f \0 300 \0 \0 \0 \0 \0 \0 \0 \0 \0
0032220 \0 \0 \0 \0 \0 \0 \0 \0 \f \0 300 \0 \0 \0 \0 \0
0032240 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \f \0 300 \0
0032260 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0032300 \f \0 300 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0032320 \0 \0 \0 \0 \f \0 300 \0 \0 \0 \0 \0 \0 \0 \0 \0
0032340 \0 \0 \0 \0 \0 \0 \0 \0 \f \0 300 \0 \0 \0 \0 \0
0032360 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \f \0 300 \0
0032400 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0032420 \f \0 300 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0032440 \0 \0 \0 \0 \f \0 300 \0 \0 \0 \0 \0 \0 \0 \0 \0
0032460 \0 \0 \0 \0 \0 \0 \0 \0 \f \0 300 \0 \0 \0 \0 \0
0032500 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \f \0 300 \0
0032520 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0032540 \f \0 300 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0032560 \0 \0 \0 \0 \f \0 300 \0 \0 \0 \0 \0 \0 \0 \0 \0
0032600 \0 \0 \0 \0 \0 \0 \0 \0 \f \0 300 \0 \0 \0 \0 \0
0032620 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \f \0 300 \0
0032640 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0
0032660 \f \0 377 377 377 377 377 377 377 377 377 377 377 377 377 377
0032700 377 377 377 377 374 \0 377 377 377 377 377 377 377 377 377 377
0032720 377 377 377 377 377 377 377 377 374 \0 \r \r { l i s
0032740 p c o d e \r ( C R E A T E M E N
0032760 U E D W I N D O W \r ( c r
0033000 e a t e M E N U \r
0033020 I T E M S _ ' ( s m a l l e
0033040 r L A R G E R ) \r
0033060 M E N U F O N T _ ' ( M O D
0033100 E R N 1 2 ) \r T I
0033120 T L E _ " z o o m c o n t
0033140 r o l s " \r C E N T
0033160 E R F L G _ T \r
0033200 W H E N S E L E C T E D F N _
0033220 ( F U N C T I O N Z O O M M
0033240 A I N W I N D O W ) ) ) ) } \r \r
0033260 c r e a t e s t h e s a m e
0033300 s o r t o f w i n d o w
0033320 i n o n e s t e p , p r o
0033340 m p t i n g t h e u s e r
0033360 f o r a r e g i o n . \r \r }
0033400 { E n d S u b S e c A t t a
0033420 c h i n g M e n u s T o W
0033440 i n d o w s } \r \r \r { B e g i n
0033460 S u b S e c A t t a c h e d
0033500 P r o m p t W i n d o w s }
0033520 \r { T i t l e A t t a c h e d
0033540 P r o m p t W i n d o w s }
0033560 \r { T e x t \r \r M a n y p a c
0033600 k a g e s h a v e a n e e
0033620 d t o d i s p l a y s t a
0033640 t u s i n f o r m a t i o n
0033660 o r p r o m p t f o r s m
0033700 a l l a m o u n t s o f u
0033720 s e r i n p u t i n a p
0033740 l a c e o u t s i d e t h e
0033760 i r s t a n d a r d w i n d
0034000 o w . A c o n v e n i e n
0034020 t w a y t o d o t h i s
0034040 i s t o a t t a c h a
0034060 s m a l l w i n d o w t o
0034100 t h e t o p o f t h e p
0034120 r o g r a m ' s m a i n w i
0034140 n d o w . T h e f o l l o
0034160 w i n g f u n c t i o n s d
0034200 o s o i n a u n i f o r
0034220 m w a y t h a t c a n b
0034240 e d e p e n d e d o n a m
0034260 o n g d i v e r s e a p p l
0034300 i c a t i o n s . \r \r { F n D e
0034320 f { N a m e G E T P R O M P
0034340 T W I N D O W } { A r g s M
0034360 A I N W I N D O W # L I N E S
0034400 F O N T D O N T C R E A T E
0034420 } \r { T e x t \r R e t u r n s
0034440 t h e a t t a c h e d p r
0034460 o m p t w i n d o w a s s o
0034500 c i a t e d w i t h { a r g
0034520 M A I N W I N D O W } , c r
0034540 e a t i n g i t i f n e c
0034560 e s s a r y . T h e w i n
0034600 d o w i s a l w a y s a t
0034620 t a c h e d t o t h e t o
0034640 p o f { a r g M A I N W I
0034660 N D O W } , h a s { l i s p
0034700 D S P S C R O L L } s e t
0034720 t o { l i s p T } , a n d
0034740 h a s a { l i s p P A G
0034760 E F U L L F N } o f { f n
0035000 N I L L } t o i n h i b i t
0035020 p a g e h o l d i n g .
0035040 T h e w i n d o w i s a t
0035060 l e a s t { a r g # L I N
0035100 E S } l i n e s h i g h (
0035120 d e f a u l t 1 ) ; i f a
0035140 p r e - e x i s t i n g w i
0035160 n d o w i s s h o r t e r
0035200 t h a n t h a t , i t i s
0035220 r e s h a p e d t o m a k
0035240 e i t l a r g e e n o u g
0035260 h . { a r g F O N T } i
0035300 s t h e f o n t t o g i
0035320 v e t h e p r o m p t w i
0035340 n d o w ( d e f a u l t s t
0035360 o t h e f o n t o f { a
0035400 r g M A I N W I N D O W } ) ,
0035420 a n d a p p l i e s o n l
0035440 y w h e n t h e w i n d o
0035460 w i s f i r s t c r e a t
0035500 e d . I f { a r g D O N
0035520 T C R E A T E } i s t r u e
0035540 , r e t u r n s t h e w i
0035560 n d o w i f i t e x i s t
0035600 s , o t h e r w i s e { l i
0035620 s p N I L } w i t h o u t
0035640 c r e a t i n g a n y p r o
0035660 m p t w i n d o w . \r } } \r \r
0035700 { F n D e f { N a m e R E M
0035720 O V E P R O M P T W I N D O W }
0035740 { A r g s M A I N W I N D O
0035760 W } \r { T e x t \r D e t a c h
0036000 e s t h e a t t a c h e d
0036020 p r o m p t w i n d o w a s
0036040 s o c i a t e d w i t h { a
0036060 r g M A I N W I N D O W } (
0036100 i f a n y ) , a n d c l o
0036120 s e s i t . \r } } \r \r } { E n
0036140 d S u b S e c A t t a c h e
0036160 d P r o m p t W i n d o w s
0036200 } \r \r \r \r { B e g i n S u b S
0036220 e c W i n d o w O p e r a t
0036240 i o n s A n d A t t a c h e
0036260 d W i n d o w s } \r { T i t l
0036300 e W i n d o w O p e r a t i
0036320 o n s A n d A t t a c h e d
0036340 W i n d o w s } \r { T e x t \r
0036360 \r W h e n a w i n d o w o
0036400 p e r a t i o n , s u c h a
0036420 s m o v i n g o r c l e a
0036440 r i n g , i s p e r f o r m
0036460 e d o n a w i n d o w ,
0036500 t h e r e i s a q u e s t
0036520 i o n a b o u t w h e t h e
0036540 r o r n o t t h a t o p
0036560 e r a t i o n s h o u l d a
0036600 l s o b e p e r f o r m e d
0036620 o n t h e w i n d o w s
0036640 a t t a c h e d t o i t o
0036660 r p e r f o r m e d o n t
0036700 h e w i n d o w i t i s
0036720 a t t a c h e d t o . T h
0036740 e " r i g h t " t h i n g
0036760 t o d o d e p e n d s o n
0037000 t h e w i n d o w o p e r
0037020 a t i o n : i t m a k e s
0037040 s e n s e t o i n d e p e
0037060 n d e n t l y r e d i s p l a
0037100 y a s i n g l e w i n d o
0037120 w i n a c o l l e c t i o
0037140 n o f w i n d o w s , w h
0037160 e r e a s m o v i n g a s
0037200 i n g l e w i n d o w u s u
0037220 a l l y i m p l i e s m o v
0037240 i n g t h e w h o l e g r
0037260 o u p o f w i n d o w s .
0037300 T h e i n t e r p r e t a t
0037320 i o n o f w i n d o w o p
0037340 e r a t i o n s a l s o d e
0037360 p e n d s o n t h e a p p
0037400 l i c a t i o n t h a t t h
0037420 e w i n d o w g r o u p i
0037440 s u s e d f o r . F o r
0037460 s o m e a p p l i c a t i o
0037500 n s , i t m a y b e d e
0037520 s i r a b l e t o h a v e
0037540 a w i n d o w g r o u p w
0037560 h e r e i n d i v i d u a l
0037600 w i n d o w s c a n b e m
0037620 o v e d a w a y f r o m t
0037640 h e g r o u p , b u t s t
0037660 i l l b e c o n c e p t u a
0037700 l l y a t t a c h e d t o
0037720 t h e g r o u p f o r o t
0037740 h e r o p e r a t i o n s .
0037760 T h e a t t a c h e d w i
0040000 n d o w f a c i l i t y i s
0040020 f l e x i b l e e n o u g h
0040040 t o a l l o w a l l o f
0040060 t h e s e p o s s i b i l i
0040100 t i e s . \r \r T h e o p e r a
0040120 t i o n o f w i n d o w o
0040140 p e r a t i o n s c a n b e
0040160 s p e c i f i e d b y e a
0040200 c h a t t a c h e d w i n d
0040220 o w , b y s e t t i n g t
0040240 h e f o l l o w i n g t w o
0040260 w i n d o w p r o p e r t i
0040300 e s : \r \r { D e f { N a m e
0040320 P A S S T O M A I N C O M S }
0040340 { T y p e ( W i n d o w P r
0040360 o p e r t y ) } \r { T e x t \r V
0040400 a l u e i s a l i s t o
0040420 f w i n d o w c o m m a n d
0040440 s ( e . g . { l i s p C L
0040460 O S E W } , { l i s p M O V
0040500 E W } ) w h i c h , w h e n
0040520 s e l e c t e d f r o m t
0040540 h e a t t a c h e d w i n d
0040560 o w ' s r i g h t - b u t t o
0040600 n m e n u , a r e a c t u
0040620 a l l y a p p l i e d t o
0040640 t h e c e n t r a l w i n d
0040660 o w i n t h e g r o u p ,
0040700 i n s t e a d o f b e i n
0040720 g a p p l i e d t o t h e
0040740 a t t a c h e d w i n d o w
0040760 i t s e l f . T h e "
0041000 c e n t r a l w i n d o w "
0041020 i s t h e f i r s t w i n
0041040 d o w u p t h e " m a i n
0041060 w i n d o w " c h a i n t
0041100 h a t i s n o t a t t a c
0041120 h e d t o a n y o t h e r
0041140 w i n d o w . \r \r I f { l i
0041160 s p P A S S T O M A I N C O M
0041200 S } i s { l i s p N I L }
0041220 , a l l w i n d o w o p e
0041240 r a t i o n s a r e d i r e
0041260 c t l y a p p l i e d t o
0041300 t h e a t t a c h e d w i n
0041320 d o w . I f { l i s p P
0041340 A S S T O M A I N C O M S } i
0041360 s { l i s p T } , a l l
0041400 w i n d o w o p e r a t i o n
0041420 s a r e p a s s e d t o
0041440 t h e c e n t r a l w i n d
0041460 o w . \r \r N o t e : { f n A
0041500 T T A C H W I N D O W } ( { P
0041520 a g e R e f F n A T T A C H
0041540 W I N D O W } ) a l l o w s
0041560 t h i s w i n d o w p r o p
0041600 e r t y t o b e s e t t
0041620 o c o m m o n l y - u s e d
0041640 v a l u e s b y u s i n g
0041660 i t s { a r g W I N D O W C
0041700 O M A C T I O N } a r g u m e
0041720 n t . { f n A T T A C H W
0041740 I N D O W } a l w a y s s e
0041760 t s t h i s w i n d o w p
0042000 r o p e r t y , s o u s e r
0042020 s m u s t m o d i f y i t
0042040 d i r e c t l y o n l y {
0042060 i t a f t e r } a t t a c h
0042100 i n g t h e w i n d o w t
0042120 o a n o t h e r w i n d o w
0042140 . \r } } \r \r \r { D e f { N a m
0042160 e R E J E C T M A I N C O M S
0042200 } { T y p e ( W i n d o w
0042220 P r o p e r t y ) } \r { T e x t
0042240 \r V a l u e i s a l i s t
0042260 o f w i n d o w c o m m a
0042300 n d s t h a t t h e a t t
0042320 a c h e d w i n d o w w i l
0042340 l n o t a l l o w t h e
0042360 m a i n w i n d o w t o a
0042400 p p l y t o i t . T h i
0042420 s i s h o w a w i n d o
0042440 w c a n s a y " l e a v e
0042460 m e o u t o f t h i s
0042500 g r o u p o p e r a t i o n .
0042520 " \r \r I f { l i s p R E J E
0042540 C T M A I N C O M S } i s {
0042560 l i s p N I L } , a l l w
0042600 i n d o w c o m m a n d s m
0042620 a y b e a p p l i e d t o
0042640 t h i s a t t a c h e d w
0042660 i n d o w . I f { l i s p
0042700 R E J E C T M A I N C O M S }
0042720 i s { l i s p T } , n o
0042740 w i n d o w c o m m a n d s
0042760 m a y b e a p p l i e d
0043000 t o t h i s a t t a c h e d
0043020 w i n d o w . \r } } \r \r \r N o
0043040 t e : T h e { l i s p P
0043060 A S S T O M A I N C O M S } a
0043100 n d { l i s p R E J E C T M
0043120 A I N C O M S } w i n d o w
0043140 p r o p e r t i e s a f f e c
0043160 t r i g h t - b u t t o n m
0043200 e n u o p e r a t i o n s a
0043220 p p l i e d t o m a i n w
0043240 i n d o w s o r a t t a c h
0043260 e d w i n d o w s , a n d
0043300 t h e a c t i o n o f p r
0043320 o g r a m m a t i c w i n d o
0043340 w f u n c t i o n s ( { f n
0043360 S H A P E W } , { f n M O
0043400 V E W } , e t c . ) a p p l
0043420 i e d t o m a i n w i n d
0043440 o w s . H o w e v e r , t
0043460 h e s e w i n d o w p r o p
0043500 e r t i e s d o { i t n o
0043520 t } a f f e c t t h e a c
0043540 t i o n o f w i n d o w f
0043560 u n c t i o n s a p p l i e d
0043600 t o a t t a c h e d w i n
0043620 d o w s . \r \r \r T h e f o l l
0043640 o w i n g l i s t d e s c r
0043660 i b e s t h e b e h a v i o
0043700 r o f m a i n a n d a t
0043720 t a c h e d w i n d o w s u
0043740 n d e r t h e w i n d o w
0043760 o p e r a t i o n s , a s s u
0044000 m i n g t h a t a l l a t
0044020 t a c h e d w i n d o w s h
0044040 a v e t h e i r { l i s p
0044060 R E J E C T M A I N C O M S }
0044100 w i n d o w p r o p e r t y
0044120 s e t t o { l i s p N I L
0044140 } a n d { l i s p P A S S
0044160 T O M A I N C O M S } s e t
0044200 t o { l i s p ( C L O S E W
0044220 M O V E W S H A P E W S H
0044240 R I N K W B U R Y W ) } ( t
0044260 h e d e f a u l t i f { f
0044300 n A T T A C H W I N D O W }
0044320 i s c a l l e d w i t h {
0044340 a r g W I N D O W C O M A C T
0044360 I O N } = { l i s p N I L } ,
0044400 s e e { P a g e R e f F n
0044420 A T T A C H W I N D O W } ) .
0044440 \r \r T h e b e h a v i o r
0044460 f o r a n y p a r t i c u
0044500 l a r o p e r a t i o n c a
0044520 n b e c h a n g e d f o r
0044540 p a r t i c u l a r a t t a
0044560 c h e d w i n d o w s b y
0044600 s e t t i n g t h e s t a n
0044620 d a r d w i n d o w p r o p
0044640 e r t i e s ( e . g . , { l
0044660 i s p M O V E F N } o r {
0044700 l i s p C L O S E F N } ) o
0044720 f t h e a t t a c h e d w
0044740 i n d o w . A n e x c e p
0044760 t i o n i s t h e { l i s
0045000 p T O T O P F N } p r o p e
0045020 r t y o f a n a t t a c h
0045040 e d w i n d o w , t h a t
0045060 i s s e t t o b r i n g
0045100 t h e w h o l e w i n d o w
0045120 g r o u p t o t h e t o
0045140 p a n d s h o u l d n o t
0045160 b e s e t b y t h e u
0045200 s e r ( a l t h o u g h u s
0045220 e r s c a n { i t a d d }
0045240 f u n c t i o n s t o t h
0045260 e { l i s p T O T O P F N }
0045300 w i n d o w p r o p e r t y
0045320 ) . \r \r { B e g i n L a b e l
0045340 e d l i s t } \r \r { L a b e l
0045360 M o v e } \r { T e x t \r I f t
0045400 h e m a i n w i n d o w m
0045420 o v e s , a l l a t t a c h
0045440 e d w i n d o w s m o v e
0045460 w i t h i t , a n d t h e
0045500 r e l a t i v e p o s i t i
0045520 o n i n g b e t w e e n t h
0045540 e m a i n w i n d o w a n
0045560 d t h e a t t a c h e d w
0045600 i n d o w s i s m a i n t a
0045620 i n e d . I f t h e r e
0045640 g i o n i s d e t e r m i n
0045660 e d i n t e r a c t i v e l y
0045700 , t h e p r o m p t r e g
0045720 i o n f o r t h e m o v e
0045740 i s t h e u n i o n o f
0045760 t h e e x t e n t o f t
0046000 h e m a i n w i n d o w a
0046020 n d a l l a t t a c h e d
0046040 w i n d o w s ( e x c l u d i
0046060 n g t h o s e w i t h { l
0046100 i s p M O V E W } i n t h
0046120 e i r { l i s p R E J E C T
0046140 M A I N C O M S } w i n d o w
0046160 p r o p e r t y ) . \r \r I f
0046200 a n a t t a c h e d w i n d
0046220 o w i s m o v e d b y c
0046240 a l l i n g t h e f u n c t
0046260 i o n { f n M O V E W } ,
0046300 i t i s m o v e d w i t h
0046320 o u t a f f e c t i n g t h
0046340 e m a i n w i n d o w .
0046360 I f t h e r i g h t - b u t
0046400 t o n w i n d o w m e n u
0046420 c o m m a n d { l i s p M o
0046440 v e } i s c a l l e d o n
0046460 a n a t t a c h e d w i n
0046500 d o w , i t i s p a s s e
0046520 d o n t o t h e m a i n
0046540 w i n d o w , s o t h a t
0046560 a l l w i n d o w s i n
0046600 t h e g r o u p m o v e . \r
0046620 } \r \r { L a b e l R e s h a p
0046640 e } \r { T e x t \r I f t h e
0046660 m a i n w i n d o w i s r
0046700 e s h a p e d , t h e m i n
0046720 i m u m s i z e o f i t
0046740 a n d a l l o f i t s a
0046760 t t a c h e d w i n d o w s
0047000 i s u s e d a s t h e m
0047020 i n i m u m o f t h e s p
0047040 a c e f o r t h e r e s u
0047060 l t . A n y s p a c e g
0047100 r e a t e r t h a n t h e
0047120 m i n i m u m i s d i s t r
0047140 i b u t e d a m o n g t h e
0047160 m a i n w i n d o w a n d
0047200 i t s a t t a c h e d w i
0047220 n d o w s . A t t a c h e d
0047240 w i n d o w s w i t h { l
0047260 i s p S H A P E W } o n t
0047300 h e i r { l i s p R E J E C
0047320 T M A I N C O M S } w i n d o
0047340 w p r o p e r t y a r e i
0047360 g n o r e d w h e n f i n d
0047400 i n g t h e m i n i m u m
0047420 s i z e , c r e a t i n g a
0047440 " g h o s t " r e g i o n ,
0047460 o r d i s t r i b u t i n g
0047500 s p a c e a f t e r a r
0047520 e s h a p e . \r \r I f a n
0047540 a t t a c h e d w i n d o w
0047560 i s r e s h a p e d b y c
0047600 a l l i n g t h e f u n c t
0047620 i o n { f n S H A P E W } ,
0047640 i t i s r e s h a p e d
0047660 i n d e p e n d e n t l y .
0047700 I f t h e r i g h t - b u t
0047720 t o n w i n d o w m e n u
0047740 c o m m a n d { l i s p S h
0047760 a p e } i s c a l l e d o
0050000 n a n a t t a c h e d w i
0050020 n d o w , i t i s p a s s
0050040 e d o n t o t h e m a i
0050060 n w i n d o w , s o t h e
0050100 w h o l e g r o u p i s
0050120 r e s h a p e d . \r \r N o t e :
0050140 R e s h a p i n g t h e
0050160 m a i n w i n d o w w i l l
0050200 r e s t o r e t h e c o n
0050220 d i t i o n s e s t a b l i s
0050240 h e d b y t h e c a l l
0050260 t o { f n A T T A C H W I N
0050300 D O W } , w h e r e a s m o
0050320 v i n g t h e m a i n w i
0050340 n d o w d o e s n o t .
0050360 T h u s , i f { l i s p A
0050400 } i s a t t a c h e d t o
0050420 t h e t o p o f { l i s
0050440 p B } a n d t h e n m o
0050460 v e d b y t h e u s e r ,
0050500 i t s n e w p o s i t i o
0050520 n r e l a t i v e t o { l
0050540 i s p B } w i l l b e m
0050560 a i n t a i n e d i f { l i
0050600 s p B } i s m o v e d .
0050620 I f { l i s p B } i s
0050640 r e s h a p e d , { l i s p
0050660 A } w i l l b e r e s h a
0050700 p e d t o t h e t o p o
0050720 f { l i s p B } . A d d
0050740 i t i o n a l l y , i f , w
0050760 h i l e { l i s p A } i s
0051000 m o v e d a w a y f r o m
0051020 t h e t o p o f { l i s
0051040 p B } , { l i s p C } i
0051060 s a t t a c h e d t o t h
0051100 e t o p o f { l i s p B
0051120 } , { l i s p C } w i l
0051140 l p o s i t i o n i t s e l
0051160 f a b o v e w h e r e { l
0051200 i s p A } u s e d t o b
0051220 e . \r } \r \r { L a b e l C l o
0051240 s e } \r { T e x t \r I f t h e
0051260 m a i n w i n d o w i s
0051300 c l o s e d , a l l o f t
0051320 h e a t t a c h e d w i n d
0051340 o w s a r e c l o s e d a
0051360 l s o a n d t h e l i n k
0051400 s f r o m t h e a t t a c
0051420 h e d w i n d o w s t o t
0051440 h e m a i n w i n d o w a
0051460 r e b r o k e n . T h i s
0051500 i s n e c e s s a r y f o
0051520 r t h e w i n d o w s t o
0051540 b e g a r b a g e c o l l
0051560 e c t e d . \r \r I f a n a t
0051600 t a c h e d w i n d o w i s
0051620 c l o s e d b y c a l l i
0051640 n g t h e f u n c t i o n
0051660 { f n C L O S E W } , i t
0051700 i s c l o s e d w i t h o u
0051720 t a f f e c t i n g t h e
0051740 m a i n w i n d o w . I f
0051760 t h e r i g h t - b u t t o
0052000 n w i n d o w m e n u c o
0052020 m m a n d { l i s p C l o s
0052040 e } i s c a l l e d o n
0052060 a n a t t a c h e d w i n d
0052100 o w , i t i s p a s s e d
0052120 o n t o t h e m a i n
0052140 w i n d o w . N o t e t h
0052160 a t c l o s i n g a n a t
0052200 t a c h e d w i n d o w d e
0052220 t a c h e s i t . \r } \r \r { L
0052240 a b e l O p e n } \r { T e x t
0052260 \r I f t h e m a i n w i n
0052300 d o w i s o p e n e d , i
0052320 t o p e n s a l l a t t a
0052340 c h e d w i n d o w s a n d
0052360 r e e s t a b l i s h e s l
0052400 i n k s f r o m t h e m t
0052420 o t h e m a i n w i n d o
0052440 w . \r \r A t t a c h e d w i n
0052460 d o w s c a n b e o p e n
0052500 e d i n d e p e n d e n t l y
0052520 a n d t h i s d o e s n
0052540 o t a f f e c t t h e m a
0052560 i n w i n d o w . N o t e
0052600 t h a t i t i s p o s s
0052620 i b l e t o r e o p e n a
0052640 c l o s e d a t t a c h e d
0052660 w i n d o w a n d n o t
0052700 h a v e i t l i n k e d t
0052720 o i t s m a i n w i n d o
0052740 w . \r } \r \r { L a b e l S h r
0052760 i n k } \r { T e x t \r T h e c
0053000 o l l e c t i o n o f w i n
0053020 d o w s s h r i n k s a s
0053040 a g r o u p . T h e { l
0053060 i s p S H R I N K F N } s o
0053100 f t h e a t t a c h e d w
0053120 i n d o w s a r e e v a l u
0053140 a t e d b u t t h e o n l
0053160 y i c o n d i s p l a y e d
0053200 i s t h e o n e f o r
0053220 t h e m a i n w i n d o w .
0053240 \r } \r \r { L a b e l R e d i s
0053260 p l a y } \r { T e x t \r T h e
0053300 m a i n o r a t t a c h e d
0053320 w i n d o w s c a n b e
0053340 r e d i s p l a y e d i n d e
0053360 p e n d e n t l y . \r } \r \r { L
0053400 a b e l T o t o p } \r { T e x
0053420 t \r I f a n y m a i n o r
0053440 a t t a c h e d w i n d o w
0053460 i s b r o u g h t t o t
0053500 h e t o p , a l l o f t
0053520 h e o t h e r w i n d o w s
0053540 a r e b r o u g h t t o
0053560 t h e t o p a l s o . \r } \r
0053600 \r { L a b e l E x p a n d } \r
0053620 { T e x t \r E x p a n d i n g
0053640 a n y o f t h e w i n d o
0053660 w s e x p a n d s t h e w
0053700 h o l e c o l l e c t i o n .
0053720 \r } \r \r { L a b e l S c r o l
0053740 l i n g } \r { T e x t \r A l l
0053760 o f t h e w i n d o w s i
0054000 n v o l v e d i n t h e g
0054020 r o u p s c r o l l i n d e
0054040 p e n d e n t l y . \r } \r \r { L
0054060 a b e l C l e a r } \r { T e x
0054100 t \r A l l w i n d o w s c l
0054120 e a r i n d e p e n d e n t l
0054140 y o f e a c h o t h e r .
0054160 \r } \r \r { E n d L a b e l e d
0054200 l i s t } \r \r } { E n d S u b
0054220 S e c W i n d o w O p e r a
0054240 t i o n s A n d A t t a c h
0054260 e d W i n d o w s } \r \r \r \r {
0054300 B e g i n S u b S e c W i n
0054320 d o w P r o p e r t i e s O
0054340 f A t t a c h e d W i n d o
0054360 w s } \r { T i t l e W i n d o
0054400 w P r o p e r t i e s O f
0054420 A t t a c h e d W i n d o w s
0054440 } \r { T e x t \r \r W i n d o w s
0054460 t h a t a r e i n v o l v
0054500 e d i n a c o l l e c t i
0054520 o n e i t h e r a s a m
0054540 a i n w i n d o w o r a s
0054560 a n a t t a c h e d w i n
0054600 d o w h a v e p r o p e r t
0054620 i e s s t o r e d o n t h
0054640 e m . T h e o n l y p r
0054660 o p e r t i e s t h a t a r
0054700 e i n t e n d e d t o b e
0054720 s e t b e s e t b y t
0054740 h e u s e r a r e t h e
0054760 { l i s p M I N S I Z E } ,
0055000 { l i s p M A X S I Z E } ,
0055020 { l i s p P A S S T O M A I N
0055040 C O M S } , a n d { l i s p
0055060 R E J E C T M A I N C O M S }
0055100 w i n d o w p r o p e r t i
0055120 e s . T h e o t h e r p
0055140 r o p e r t i e s s h o u l d
0055160 b e c o n s i d e r e d r
0055200 e a d o n l y . \r \r { D e f
0055220 { T y p e ( W i n d o w P r
0055240 o p e r t y ) } { N a m e M
0055260 I N S I Z E } } \r { D e f { T
0055300 y p e ( W i n d o w P r o p
0055320 e r t y ) } { N a m e M A X
0055340 S I Z E } \r { T e x t \r E a c h
0055360 o f t h e s e w i n d o w
0055400 p r o p e r t i e s s h o u
0055420 l d b e a d o t t e d p
0055440 a i r { l i s p ( { a r g
0055460 W I D T H } . { a r g H E
0055500 I G H T } ) } o r a f u n
0055520 c t i o n t o a p p l y t
0055540 o t h e w i n d o w t h a
0055560 t r e t u r n s a d o t t
0055600 e d p a i r . T h e n u
0055620 m b e r s a r e u s e d w
0055640 h e n t h e m a i n w i n
0055660 d o w i s r e s h a p e d .
0055700 T h e { l i s p M I N S
0055720 I Z E } i s u s e d t o
0055740 d e t e r m i n e t h e s i
0055760 z e o f t h e s m a l l e
0056000 s t r e g i o n a c c e p t
0056020 a b l e d u r i n g r e s h
0056040 a p i n g . A n y a m o u
0056060 n t g r e a t e r t h a n
0056100 t h e c o l l e c t i v e m
0056120 i n i m u m i s s p r e a d
0056140 e v e n l y a m o n g t h
0056160 e w i n d o w s u n t i l
0056200 e a c h r e a c h e s { l i
0056220 s p M A X S I Z E } . A n
0056240 y e x c e s s i s g i v e
0056260 n t o t h e m a i n w i
0056300 n d o w . \r \r N o t e : I f
0056320 y o u g i v e t h e m a
0056340 i n w i n d o w o f a n
0056360 a t t a c h e d w i n d o w
0056400 g r o u p a { l i s p M I
0056420 N S I Z E } o r { l i s p
0056440 M A X S I Z E } p r o p e r t
0056460 y , i t s v a l u e i s
0056500 m o v e d t o t h e { i n
0056520 d e x M A I N W I N D O W M I
0056540 N S I Z E ( W i n d o w P r
0056560 o p e r t y ) } { l i s p M A
0056600 I N W I N D O W M I N S I Z E }
0056620 o r { i n d e x M A I N W
0056640 I N D O W M A X S I Z E ( W i
0056660 n d o w P r o p e r t y ) } {
0056700 l i s p M A I N W I N D O W M
0056720 A X S I Z E } p r o p e r t y
0056740 , s o t h a t t h e m a
0056760 i n w i n d o w c a n b e
0057000 g i v e n a s i z e f u
0057020 n c t i o n t h a t c o m p
0057040 u t e s t h e m i n i m u m
0057060 o r m a x i m u m s i z e
0057100 o f t h e e n t i r e g
0057120 r o u p . T h u s , i f
0057140 y o u w a n t t o c h a n
0057160 g e t h e m a i n w i n d
0057200 o w ' s m i n i m u m o r
0057220 m a x i m u m s i z e a f t
0057240 e r a t t a c h i n g w i n
0057260 d o w s t o i t , y o u
0057300 s h o u l d c h a n g e t h
0057320 e { l i s p M A I N W I N D
0057340 O W M I N S I Z E } o r { l
0057360 i s p M A I N W I N D O W M A
0057400 X S I Z E } p r o p e r t y
0057420 i n s t e a d . \r \r N o t e :
0057440 T h i s d o e s n ' t a d
0057460 d r e s s t h e h a r d p
0057500 r o b l e m o f o v e r l a
0057520 p p i n g a t t a c h e d w
0057540 i n d o w s s i d e t o s
0057560 i d e , f o r e x a m p l e
0057600 i f w i n d o w { l i s p
0057620 A } w a s a t t a c h e d
0057640 a s [ { l i s p T O P } ,
0057660 { l i s p L E F T } ] a n
0057700 d { l i s p B } a s [ {
0057720 l i s p T O P } , { l i s p
0057740 R I G H T } ] . C u r r e
0057760 n t l y , t h e a t t a c h
0060000 e d w i n d o w f u n c t i
0060020 o n s d o n o t w o r r y
0060040 a b o u t t h e o v e r l
0060060 a p . \r \r T h e d e f a u l t
0060100 { l i s p M A X S I Z E }
0060120 i s { l i s p N I L } , w
0060140 h i c h w i l l l e t t h
0060160 e r e g i o n g r o w i n
0060200 d e f i n i t e l y . \r } } \r \r
0060220 \r { D e f { T y p e ( W i n
0060240 d o w P r o p e r t y ) } {
0060260 N a m e M A I N W I N D O W }
0060300 \r { T e x t \r P o i n t e r f
0060320 r o m a t t a c h e d w i n
0060340 d o w s t o t h e m a i n
0060360 w i n d o w o f t h e g
0060400 r o u p . T h i s l i n k
0060420 i s n o t a v a i l a b l
0060440 e i f t h e m a i n w i
0060460 n d o w i s c l o s e d .
0060500 T h e f u n c t i o n { f
0060520 n M A I N W I N D O W } ( {
0060540 P a g e R e f F n M A I N W
0060560 I N D O W } ) i s t h e p
0060600 r e f e r r e d w a y t o
0060620 a c c e s s t h i s p r o p
0060640 e r t y . \r } } \r \r \r { D e f
0060660 { T y p e ( W i n d o w P r
0060700 o p e r t y ) } { N a m e A
0060720 T T A C H E D W I N D O W S } \r
0060740 { T e x t \r P o i n t e r f r
0060760 o m a w i n d o w t o i
0061000 t s a t t a c h e d w i n d
0061020 o w s . T h e f u n c t i
0061040 o n { f n A T T A C H E D W
0061060 I N D O W S } ( { P a g e R e
0061100 f F n A T T A C H E D W I N
0061120 D O W S } ) i s t h e p r
0061140 e f e r r e d w a y t o a
0061160 c c e s s t h i s p r o p e
0061200 r t y . \r } } \r \r \r { D e f {
0061220 T y p e ( W i n d o w P r o
0061240 p e r t y ) } { N a m e W H
0061260 E R E A T T A C H E D } \r { T e
0061300 x t \r F o r a t t a c h e d
0061320 w i n d o w s , a d o t t e
0061340 d p a i r { l i s p ( { a
0061360 r g E D G E } . { a r g
0061400 P O S I T I O N O N E D G E } )
0061420 } g i v i n g t h e e d g
0061440 e a n d p o s i t i o n o
0061460 n t h e e d g e t h a t
0061500 d e t e r m i n e h o w t h
0061520 e a t t a c h e d w i n d o
0061540 w i s p l a c e d r e l a
0061560 t i v e t o i t s m a i n
0061600 w i n d o w . \r } } \r \r \r T h
0061620 e { l i s p T O T O P F N }
0061640 w i n d o w p r o p e r t y
0061660 o n a t t a c h e d w i n
0061700 d o w s a n d t h e p r o
0061720 p e r t i e s { l i s p T O
0061740 T O P F N } , { l i s p D O
0061760 S H A P E F N } , { l i s p
0062000 M O V E F N } , { l i s p C
0062020 L O S E F N } , { l i s p O
0062040 P E N F N } , { l i s p S H
0062060 R I N K F N } , { l i s p E
0062100 X P A N D F N } a n d { l i
0062120 s p C A L C U L A T E R E G I
0062140 O N F N } o n m a i n w i
0062160 n d o w s c o n t a i n f u
0062200 n c t i o n s t h a t i m p
0062220 l e m e n t t h e a t t a c
0062240 h e d w i n d o w m a n i p
0062260 u l a t i o n f a c i l i t i
0062300 e s . C a r e s h o u l d
0062320 b e u s e d i n m o d i
0062340 f y i n g o r r e p l a c i
0062360 n g t h e s e p r o p e r t
0062400 i e s . \r \r } { E n d S u b S
0062420 e c W i n d o w P r o p e r
0062440 t i e s O f A t t a c h e d
0062460 W i n d o w s } \r \r \r } { E n
0062500 d S u b S e c A t t a c h e
0062520 d W i n d o w s } \r \r \0 \0 \0 \0
0062540 \0 004 \0 002 \0 ? \0 1 ( D E F A U L T
0062560 F O N T 1 ( G A C H A 1 0
0062600 ) ( G A C H A 8 ) ( T E R
0062620 M I N A L 8 ) ) \0 \n \0 \0 \0 \0 \0
0062640 \0 \0 \0 \0 ? \0 1 ( D E F A U L T F
0062660 O N T 1 ( G A C H A 1 0 )
0062700 ( G A C H A 8 ) ( T E R M
0062720 I N A L 8 ) ) \0 \n \0 \0 \0 \0 \0 \0
0062740 \0 \0 \0 \0 \f 001 \0 \0 \0 \0 002 \0 \0 004 272 \0
0062760 001 \0 \f B M O B J . G E T F N 2 \0
0063000 \0 \0 037 9 \0 \0 \0 \0 002 \0 \0 005 346 \0 001 \0
0063020 \f B M O B J . G E T F N 2 \0 \0 \0
0063040 / 202 \0 \0 \0 \0 002 \0 \0 e \ \0 005 z 272
0063057