$ 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