$ od -c -N 50000 [eris]<LispCore>SOURCES>FREEMENU!5
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " X C
0000040 L " 247 P A C K A G E " L I S
0000060 P " ) \r 006 001 ( i l : f i l e c r
0000100 e a t e d " 2 0 - O c t - 8 6
0000120 1 8 : 1 3 : 5 9 " 006 004 i l :
0000140 { e r i s } < l i s p c o r e >
0000160 s o u r c e s > f r e e m e n u
0000200 . \ ; 5 006 001 2 8 0 7 1 5 \r \r
0000220 i l : | p r e v i o
0000240 u s | i l : | d a t e : | "
0000260 2 0 - O c t - 8 6 1 0 : 5 8 :
0000300 5 8 " i l : { e r i s } < l i
0000320 s p c o r e > s o u r c e s > f
0000340 r e e m e n u . \ ; 4 ) \r \r \r ;
0000360 C o p y r i g h t ( c ) 1
0000400 9 8 6 b y X e r o x C o r
0000420 p o r a t i o n . A l l r
0000440 i g h t s r e s e r v e d . \r
0000460 \r ( i l : p r e t t y c o m p r
0000500 i n t i l : f r e e m e n u c
0000520 o m s ) \r \r ( i l : r p a q q
0000540 006 002 i l : f r e e m e n u c o m
0000560 s 006 001 \r (
0000600 ( i l : p r o p i l : f i l e
0000620 t y p e i l : f r e e m e n u
0000640 ) \r ( i l
0000660 : c o m s ( i l : * i l : u
0000700 s e r i l : i n t e r f a c e
0000720 i l : f u n c t i o n s ) \r
0000740
0000760 ( i l : m a c r o s i l : f
0001000 m . g r o u p p r o p i l : f
0001020 m . m e n u p r o p i l : f m
0001040 . n w a y p r o p ) \r
0001060 ( i l
0001100 : o p t i m i z e r s i l : f
0001120 m . i t e m p r o p ) \r
0001140 ( i
0001160 l : p r o p i l : a r g n a m
0001200 e s i l : f m . i t e m p r o
0001220 p i l : f m . g r o u p p r o
0001240 p i l : f m . m e n u p r o p
0001260 i l : f m . n w a y p r o p )
0001300 \r
0001320 ( i l : m a c r o s i l
0001340 : \ \ f m . i n s u r e f m i
0001360 l : \ \ f m . i n s u r e w i n
0001400 d o w ) \r
0001420 ( i l : * i l :
0001440 r u n t i m e t y p e i l
0001460 : c h e c k e r s ) \r
0001500 ( i l
0001520 : f n s i l : f r e e m e n u
0001540 ( i l : * i l : a c c e s s
0001560 i n g i l : f u n c t i o n s
0001600 ) \r
0001620 i l : f m
0001640 . i t e m p r o p i l : f m .
0001660 g e t i t e m i l : f m . g e
0001700 t s t a t e ( i l : * i l :
0001720 c h a n g i n g i l : f u n c
0001740 t i o n s ) \r
0001760
0002000 i l : f m . h i g h l i g h t i
0002020 t e m i l : f m . c h a n g e
0002040 l a b e l i l : f m . c h a n
0002060 g e s t a t e i l : f m . r e
0002100 s e t s t a t e \r
0002120
0002140 i l : f m . r e s e t m e
0002160 n u i l : f m . r e s e t s h
0002200 a p e i l : f m . r e s e t g
0002220 r o u p s ( i l : * i l : m
0002240 i s c \r
0002260
*
0002360 i l : f u n c t i
0002400 o n s ) \r
0002420 i l
0002440 : f m . r e d i s p l a y i t e
0002460 m i l : f m . r e d i s p l a
0002500 y m e n u i l : f m . s h a d
0002520 e i l : f m . e d i t p \r
0002540
0002560 i l : f m . e d
0002600 i t i t e m i l : f m . e n d
0002620 e d i t i l : f m . s k i p n
0002640 e x t i l : f m . w h i c h i
0002660 t e m i l : f m . t o p g r o
0002700 u p i d \r
0002720 ) )
0002740 \r ( i l :
0002760 c o m s ( i l : * i l : c r
0003000 e a t i o n i l : o f i l :
0003020 f r e e m e n u s ) \r
0003040 ( i l
0003060 : d e c l a r e \ : i l : d o
0003100 n t c o p y ( i l : m a c r o
0003120 s i l : \ \ f m . i t e m p r
0003140 o p i l : \ \ f m . g r o u p
0003160 p r o p \r
0003200
*
0003240 i l : \ \ f m
0003260 . n w a y p r o p i l : \ \ f
0003300 m . m a k e g r o u p \r
0003320
*
0003400 i l : \ \ f m . t o p g r o u p
0003420 p r o p i l : \ \ f m . d t o
0003440 p g r o u p i d \r
0003460
*
0003520 i l :
0003540 \ \ f m . d g r o u p p r o p
0003560 i l : \ \ f m . d t o p g r o u
0003600 p p r o p ) ) \r
0003620 ( i l : f n
0003640 s ( i l : * i l : f o r m a
0003660 t t i n g ) \r
0003700
0003720 i l : \ \ f m . f o r m a t i
0003740 l : \ \ f m . f o r m a t b y r
0003760 o w i l : \ \ f m . f o r m a
0004000 t b y c o l u m n \r
0004020
0004040 i l : \ \ f m . f o r m
0004060 a t b y g r i d i l : \ \ f m
0004100 . f o r m a t e x p l i c i t
0004120 i l : \ \ f m . l a y o u t r o
0004140 w \r
0004160 i l : \
0004200 \ f m . l a y o u t c o l u m n
0004220 i l : \ \ f m . l a y o u t g
0004240 r i d i l : \ \ f m . j u s t
0004260 i f y i t e m s \r
0004300
0004320 i l : \ \ f m . j u s t i
0004340 f y g r o u p s i l : \ \ f m
0004360 . p u s h g r o u p ( i l : *
0004400 i l : e r r o r i l : c h e
0004420 c k i n g ) \r
0004440
0004460 i l : \ \ f m . c h e c k d e s
0004500 c r i p t i o n i l : \ \ f m
0004520 . c h e c k p r o p s ( i l :
0004540 * i l : c r e a t i n g ) \r
0004560
0004600 i l : \ \ f m .
0004620 c r e a t e i t e m i l : \ \
0004640 f m . g e t r e g i o n s i l
0004660 : \ \ f m . g e t b i t m a p s
0004700 i l : \ \ f m . m a k e b i t
0004720 m a p \r
0004740 i l
0004760 : \ \ f m . r e a d u s e r d a
0005000 t a i l : \ \ f m . m a k e l
0005020 i n k s i l : \ \ f m . c o l
0005040 l e c t n w a y s \r
0005060
0005100 i l : \ \ f m . s e t a
0005120 t t a c h p o i n t i l : \ \
0005140 f m . c r e a t e w i l : \ \
0005160 f m . s t a r t e d i t ) \r
0005200
0005220 ( i l : d e c l a r e \ : i l
0005240 : d o n t c o p y ( i l : m a
0005260 c r o s i l : \ \ f m . s e t
0005300 u p p r o p s i l : \ \ f m .
0005320 s e t f o r m a t p r o p s \r
0005340
*
0005420 i l : \ \ f m . c h e c k
0005440 f o r b o x i l : \ \ f m . u
0005460 p d a t e f o r b o x \r
0005500
*
0005560 i l : \ \ f m . u p d a t e g r
0005600 i d i l : \ \ f m . i t e m w
0005620 i d t h \r
0005640
*
0005700 i l : \ \ f m
0005720 . i t e m h e i g h t i l : \
0005740 \ f m . a t t a c h p o i n t )
0005760 ) \r
0006000 ( i l : d e c l a r e \
0006020 : i l : d o n t c o p y \r
0006040
0006060 ( i l : c o n s t
0006100 a n t s ( i l : \ \ f m . f o
0006120 r m a t - t y p e s ' ( i l :
0006140 r o w i l : c o l u m n i l
0006160 : t a b l e i l : e x p l i c
0006200 i t ) \r
0006220
*
0006260 ) \r
0006300
0006320 ( i l : \ \ f m . d e f
0006340 a u l t f o r m a t ' i l : r
0006360 o w ) \r
0006400
0006420 ( i l : * i l : | f o
0006440 r m a t | i l : | k e y w o r
0006460 d s | ) \r
0006500
0006520 ( i l : \ \ f m . g r
0006540 o u p s p e c ' i l : g r o u
0006560 p ) \r
0006600
0006620 ( i l : \ \ f m . p r o p
0006640 s p e c ' i l : p r o p s ) \r
0006660
*
0006720 ( i l : * i l : | k e y | i
0006740 l : | w o r d s | i l : | i n
0006760 | i l : | d e s c r i p t i o
0007000 n | ) \r
0007020
0007040 ( i l : \ \ f m . h j u
0007060 s t i f y - s p e c s ' ( i l
0007100 : l e f t i l : c e n t e r
0007120 i l : r i g h t ) ) \r
0007140
0007160 ( i l : \
0007200 \ f m . v j u s t i f y - s p e
0007220 c s ' ( i l : t o p i l : m
0007240 i d d l e i l : b o t t o m )
0007260 ) \r
0007300
0007320 ( i l : * i l : | i t e m
0007340 | i l : | j u s t i f i c a t
0007360 i o n | i l : | k e y w o r d
0007400 s | ) \r
0007420
0007440 ( i l : \ \ f m . b o x
0007460 s p a c e 1 ) \r
0007500
0007520 ( i l : * i
0007540 l : | d e f a u l t | i l : |
0007560 n u m b e r | i l : | o f |
0007600 i l : | b i t s | i l : | b e
0007620 t w e e n | \r
0007640
0007660 i l
0007700 : | l a b e l | i l : | a n d
0007720 | i l : | b o x | ) \r
0007740
0007760 ( i l :
0010000 \ \ f m . r o w s p a c e 2 )
0010020 \r
0010040
0010060 ( i l : \ \ f m . c o l u m n
0010100 s p a c e 1 0 ) \r
0010120
0010140 ( i l : *
0010160 i l : | d e f a u l t | i l :
0010200 | n u m b e r | i l : | o f |
0010220 i l : | b i t s | i l : | b
0010240 e t w e e n | \r
0010260
0010300 i
0010320 l : | f o r m a t t e d | i l
0010340 : | r o w s | i l : | a n d |
0010360 i l : | c o l u m n s | ) \r
0010400
0010420 (
0010440 i l : \ \ f m . i t e m - t y p
0010460 e s ' ( i l : m o m e n t a r
0010500 y i l : t o g g l e i l : 3
0010520 s t a t e i l : n w a y \r
0010540
*
0010620 i l : s t
0010640 a t e i l : n u m b e r i l
0010660 : e d i t i l : e d i t s t a
0010700 r t \r
0010720
*
0011000 i l : d i s p l a y ) ) \r
0011020
0011040 ( i l
0011060 : * i l : | k n o w n | i l
0011100 : | f r e e m e n u | i l : |
0011120 i t e m | i l : | t y p e s |
0011140 ) \r
0011160
0011200 ( i l : \ \ f m . d e s c r
0011220 i p t i o n - p r o p s ' ( t
0011240 y p e i l : l a b e l i l :
0011260 l e f t i l : b o t t o m i
0011300 l : i d \r
0011320
*
0011400 i l : g r o u p
0011420 i d i l : s t a t e i l : i
0011440 n i t s t a t e \r
0011460
*
0011540 i l : f
0011560 o n t i l : b i t m a p i l
0011600 : r e g i o n \r
0011620
*
0011700 i l : m a
0011720 x r e g i o n i l : m e s s a
0011740 g e i l : u s e r d a t a \r
0011760
*
0012060 i l : l i n k s i l : s y
0012100 s d o w n f n i l : s y s m o
0012120 v e d f n \r
0012140
*
0012220 i l : s y s s
0012240 e l e c t e d f n i l : d o w
0012260 n f n \r
0012300
*
0012360 i l : h e l d f n
0012400 i l : m o v e d f n i l : s
0012420 e l e c t e d f n ) \r
0012440
*
0012500 ) \r
0012520
0012540 ( i l : * i l : | p r
0012560 o p e r t i e s | i l : | i n
0012600 | i l : | i t e m | i l : |
0012620 d e s c r i p t i o n | i l :
0012640 | t h a t | \r
0012660
0012700 i l
0012720 : | d o n ' t | i l : | b e c
0012740 o m e | i l : u s e r d a t a
0012760 ) ) ) \r
0013000 ( i l : r e c o r d
0013020 s i l : f r e e m e n u i t e
0013040 m ) ) \r (
0013060 i l : c o m s ( i l : * i l
0013100 : f r e e m e n u i l : w i n
0013120 d o w s ) \r
0013140 ( i l : d e c l
0013160 a r e \ : i l : d o n t c o p
0013200 y ( i l : m a c r o s i l :
0013220 \ \ f m . t r a n s p o s e ) )
0013240 \r
0013260 ( i l : f n s i l : \ \
0013300 f m . r e d i s p l a y m e n u
0013320 i l : \ \ f m . r e s h a p e
0013340 f n i l : \ \ f m . u n s c r
0013360 o l l w i n d o w \r
0013400
0013420 i l : \ \ f m . r e s e
0013440 t c l i p p i n g r e g i o n
0013460 i l : \ \ f m . f i l l w i n d
0013500 o w i l : \ \ f m . i n i t c
0013520 o r n e r s f n \r
0013540
0013560 i l : \ \ f m . t r a n s
0013600 p o s e h o r z i l : \ \ f m
0013620 . t r a n s p o s e v e r t i
0013640 l : \ \ f m . u p d a t e g r o
0013660 u p e x t e n t \r
0013700
0013720 i l : \ \ f m . w i n d o
0013740 w e x t e n t i l : \ \ f m .
0013760 u p d a t e w i n d o w e x t e
0014000 n t ) ) \r
0014020 ( i l : c o m s ( i l : * i
0014040 l : m o u s e i l : f u n c t
0014060 i o n s ) \r
0014100 ( i l : d e c l
0014120 a r e \ : i l : d o n t c o p
0014140 y ( i l : m a c r o s i l :
0014160 \ \ f m . o n i t e m i l : \
0014200 \ f m . c h e c k r e g i o n )
0014220 ) \r
0014240 ( i l : f n s i l : \
0014260 \ f m . w i n d o w e n t r y f
0014300 n i l : \ \ f m . b u t t o n
0014320 e v e n t f n i l : \ \ f m .
0014340 r i g h t b u t t o n f n \r
0014360
0014400 i l : \ \ f m .
0014420 d o s e l e c t i o n i l : \
0014440 \ f m . m e n u h a n d l e r )
0014460 ) \r ( i l
0014500 : c o m s ( i l : * i l : i
0014520 t e m i l : s u p p o r t i
0014540 l : f u n c t i o n s ) \r
0014560 (
0014600 i l : d e c l a r e \ : i l :
0014620 d o n t c o p y ( i l : m a c
0014640 r o s i l : \ \ f m . d i s p
0014660 l a y b i t m a p i l : \ \ f
0014700 m . c o e r c e i t e m p t r )
0014720 ) \r
0014740 ( i l : f n s i l : \
0014760 \ f m . g e t i t e m p r o p
0015000 i l : \ \ f m . p u t i t e m p
0015020 r o p i l : \ \ f m . c g e t
0015040 i t e m p r o p \r
0015060
0015100 i l : \ \ f m . c p u t i
0015120 t e m p r o p i l : \ \ f m .
0015140 d i s p l a y i t e m i l : \
0015160 \ f m . h i g h l i g h t i t e
0015200 m \r
0015220 i l : \
0015240 \ f m . c h a n g e l a b e l
0015260 i l : \ \ f m . c h a n g e s t
0015300 a t e i l : \ \ f m . e n d e
0015320 d i t \r
0015340 i l
0015360 : \ \ f m . i n s u r e v i s i
0015400 b l e i l : \ \ f m . c l e a
0015420 r i t e m ) ) \r
0015440 ( i l : c o m s ( i l :
0015460 * i l : m o m e n t a r y i
0015500 l : i t e m i l : f u n c t i
0015520 o n s ) \r
0015540 ( i l : f n s i
0015560 l : \ \ f m . m o m e n t a r y
0015600 - s e t u p i l : \ \ f m . m
0015620 o m e n t a r y - s e l e c t e
0015640 d f n ) ) \r
0015660 ( i l : c o m s ( i l : *
0015700 i l : t o g g l e i l : i t e
0015720 m i l : f u n c t i o n s ) \r
0015740
0015760 ( i l : f n s i l : \ \ f
0016000 m . t o g g l e - s e t u p i
0016020 l : \ \ f m . t o g g l e - d o
0016040 w n f n i l : \ \ f m . t o g
0016060 g l e - s e l e c t e d f n \r
0016100
0016120 i l : \ \ f m
0016140 . t o g g l e - c h a n g e s t
0016160 a t e ) ) \r
0016200 ( i l : c o m s ( i l : *
0016220 i l : 3 s t a t e i l : i t e
0016240 m i l : f u n c t i o n s ) \r
0016260
0016300 ( i l : f n s i l : \ \ f
0016320 m . 3 s t a t e - s e t u p i
0016340 l : \ \ f m . 3 s t a t e - s e
0016360 t u p o f f b i t m a p i l :
0016400 \ \ f m . 3 s t a t e - d o w n
0016420 f n \r
0016440 i l :
0016460 \ \ f m . 3 s t a t e - s e l e
0016500 c t e d f n i l : \ \ f m . 3
0016520 s t a t e - c h a n g e s t a t
0016540 e ) ) \r (
0016560 i l : c o m s ( i l : * i l
0016600 : s t a t e i l : i t e m i
0016620 l : f u n c t i o n s ) \r
0016640 (
0016660 i l : f n s i l : \ \ f m . s
0016700 t a t e - s e t u p i l : \ \
0016720 f m . s t a t e - s e l e c t e
0016740 d f n i l : \ \ f m . s t a t
0016760 e - c h a n g e s t a t e ) ) \r
0017000 ( i l : c
0017020 o m s ( i l : * i l : n w a
0017040 y i l : i t e m i l : f u n
0017060 c t i o n s ) \r
0017100 ( i l : f n
0017120 s i l : \ \ f m . n w a y - s
0017140 e t u p i l : \ \ f m . n w a
0017160 y - m e s s a g e i l : \ \ f
0017200 m . n w a y - d o w n f n \r
0017220
0017240 i l : \ \ f m .
0017260 n w a y - m o v e d f n i l :
0017300 \ \ f m . n w a y - s e l e c t
0017320 e d f n i l : \ \ f m . n w a
0017340 y - c h a n g e s t a t e ) ) \r
0017360 ( i l : c
0017400 o m s ( i l : * i l : n u m
0017420 b e r i l : i t e m i l : f
0017440 u n c t i o n s ) \r
0017460 ( i l :
0017500 f n s i l : \ \ f m . n u m b
0017520 e r - s e t u p i l : \ \ f m
0017540 . n u m b e r - m e s s a g e
0017560 i l : \ \ f m . n u m b e r - s
0017600 e l e c t e d f n \r
0017620
0017640 i l : \ \ f m . n u m b
0017660 e r - c h a n g e s t a t e ) )
0017700 \r ( i l :
0017720 c o m s ( i l : * i l : t i
0017740 t l e i l : i t e m i l : f
0017760 u n c t i o n s ) \r
0020000 ( i l :
0020020 f n s i l : \ \ f m . d i s p
0020040 l a y - s e t u p ) ) \r
0020060 ( i l : c o m s
0020100 ( i l : * i l : e d i t s t a
0020120 r t i l : i t e m i l : f u
0020140 n c t i o n s ) \r
0020160 ( i l : f
0020200 n s i l : \ \ f m . e d i t s
0020220 t a r t - s e t u p i l : \ \
0020240 f m . e d i t s t a r t - m e s
0020260 s a g e \r
0020300 i
0020320 l : \ \ f m . e d i t s t a r t
0020340 - s e l e c t e d f n ) ) \r
0020360 ( i l : c o m
0020400 s ( i l : * i l : e d i t
0020420 i l : i t e m s ) \r
0020440 ( i l :
0020460 d e c l a r e \ : i l : d o n
0020500 t c o p y \r
0020520 (
0020540 i l : c o n s t a n t s ( i l
0020560 : \ \ f m . e d i t - t i m e o
0020600 u t 1 0 0 0 0 0 ) \r
0020620
0020640 ( i l : \
0020660 \ f m . e d i t - r i g h t e n
0020700 d s p a c e 5 ) \r
0020720
0020740 ( i l : \ \
0020760 f m . e d i t - b l o c k s i z
0021000 e 5 0 ) \r
0021020
0021040 ( i l : \ \ f m . e
0021060 d i t - c o n t r o l c h a r s
0021100 ' ( 9 1 0 1 2 1 3 ) ) \r
0021120
*
0021160 ( i l : \ \ f m . e d i t - c o
0021200 n t r o l c h a r s e c h o 2
0021220 5 5 ) \r
0021240
0021260 ( i l : \ \ f m . e d i
0021300 t - w o r d d e l i m c h a r s
0021320 ' ( 3 2 1 2 3 1 2 5 9 1
0021340 9 3 6 0 6 2 4 7 9 2
0021360 4 6 4 4 5 9 \r
0021400
*
0021460 4 2 4
0021500 0 4 1 4 5 ) ) \r
0021520
0021540 ( i l : *
0021560 i l : | s p a c e | i l : {
0021600 i l : } i l : [ i l : ] <
0021620 > / i l : \ \ i l : \ .
0021640 i l : \ , i l : \ ; \r
0021660
*
0021720 i l : * i l : \ ( i
0021740 l : \ ) - ) ) ) \r
0021760 ( i l :
0022000 v a r s ( i l : \ \ f m . e d
0022020 i t - t t b l ) ) \r
0022040 ( i l :
0022060 g l o b a l v a r s i l : \ \
0022100 f m . e d i t - t t b l ) \r
0022120
0022140 ( i l : m a c r o s i l : \ \
0022160 f m . e d i t - m a x w i d t h
0022200 i l : \ \ f m . e d i t - s c
0022220 r o l l a m o u n t ) \r
0022240 ( i
0022260 l : f n s i l : \ \ f m . e d
0022300 i t - s e t u p i l : \ \ f m
0022320 . e d i t - m e s s a g e i l
0022340 : \ \ f m . e d i t - s e t u p
0022360 t t b l \r
0022400 i
0022420 l : \ \ f m . e d i t - i t e m
0022440 i l : \ \ f m . e d i t - p r
0022460 e p a r e t o e d i t i l : \
0022500 \ f m . e d i t - f i n d n e x
0022520 t \r
0022540 i l : \
0022560 \ f m . e d i t - f i n d f i r
0022600 s t i l : \ \ f m . e d i t -
0022620 b a c k u p i l : \ \ f m . e
0022640 d i t - w o r d d e l e t e \r
0022660
0022700 i l : \ \ f m
0022720 . e d i t - i n s e r t i l :
0022740 \ \ f m . e d i t - d e l e t e
0022760 i l : \ \ f m . e d i t - g e
0023000 t p o i n t e r i n f o \r
0023020
0023040 i l : \ \ f m . e
0023060 d i t - m o v e c a r e t i l
0023100 : \ \ f m . e d i t - s t r d e
0023120 l e t e i l : \ \ f m . e d i
0023140 t - s t r i n s e r t \r
0023160
0023200 i l : \ \ f m . e d
0023220 i t - u p d a t e a f t e r d e
0023240 l e t e ) ) \r
0023260 ( i l : d e c l a r e \ :
0023300 i l : d o n t e v a l @ l o a d
0023320 i l : d o e v a l @ c o m p i
0023340 l e i l : d o n t c o p y i
0023360 l : c o m p i l e r v a r s \r
0023400
0023420 ( i l : a d d v a r s ( i l
0023440 : n l a m a ) \r
0023460
0023500 ( i l : n l a m l ) \r
0023520
0023540 ( i l : l a m a i l
0023560 : f m . i t e m p r o p ) ) ) )
0023600 ) \r \r ( i l : p u t p r o p s
0023620 006 002 i l : f r e e m e n u i l
0023640 : f i l e t y p e 006 001 c o m p
0023660 i l e - f i l e ) \r \r \r \r 006 004 (
0023700 i l : * i l : u s e r i l :
0023720 i n t e r f a c e i l : f u n
0023740 c t i o n s ) 006 001 \r \r ( i l : d
0023760 e c l a r e \ : i l : e v a l
0024000 @ c o m p i l e \r \r ( i l : p
0024020 u t p r o p s i l : f m . g r
0024040 o u p p r o p i l : m a c r o
0024060 \r ( i l : a r g s
0024100 ( i l : * i l : | a c c e s
0024120 s | i l : | m a c r o | i l
0024140 : | t o | i l : | g r o u p |
0024160 i l : | p r o p s | i l : |
0024200 o f | i l : | w i n d o w . |
0024220 \r
0024240 i l : | a r g s
0024260 | ( i l : w i n d o w i l :
0024300 g r o u p i l : p r o p i l
0024320 : { v a l u e } ) ) \r
0024340 ( c o n d (
0024360 ( n u l l ( c d d r i l : a
0024400 r g s ) ) \r
0024420 ( i l : e
0024440 r r o r " T o o f e w a r
0024460 g u m e n t s t o F M . G R
0024500 O U P P R O P : " ( c o n s
0024520 ' i l : f m . g r o u p p r o p
0024540 i l : a r g s ) ) ) \r
0024560
0024600 ( ( c d d d r i l : a r g s )
0024620 \r
0024640 ` ( l e t ( ( i l
0024660 : g r o u p ( c d r ( i l :
0024700 f a s s o c i l : \ , ( c a
0024720 d r i l : a r g s ) \r
0024740
*
0025000 ( i
0025020 l : w i n d o w p r o p ( i l
0025040 : \ \ f m . i n s u r e w i n d
0025060 o w i l : \ , \r
0025100
*
0025200 ( c a r i l : a r g s ) ) \r
0025220
*
0025300 ' i l : f m .
0025320 g r o u p s ) ) ) ) ) \r
0025340
0025360 ( p r o g 1 ( i
0025400 l : l i s t g e t i l : g r o
0025420 u p i l : \ , ( c a d d r
0025440 i l : a r g s ) ) \r
0025460
0025500 ( i l :
0025520 l i s t p u t i l : g r o u p
0025540 i l : \ , ( c a d d r i l
0025560 : a r g s ) \r
0025600
*
0025640 i l : \ , \r
0025660
0025700 (
0025720 c a d d d r i l : a r g s ) )
0025740 ) ) ) \r
0025760 ( t ` ( i l :
0026000 l i s t g e t ( c d r ( i l
0026020 : f a s s o c i l : \ , ( c
0026040 a d r i l : a r g s ) \r
0026060
*
0026120 ( i l
0026140 : w i n d o w p r o p ( i l :
0026160 \ \ f m . i n s u r e w i n d o
0026200 w i l : \ , \r
0026220
*
0026300 ( c
0026320 a r i l : a r g s ) ) \r
0026340
*
0026420 ' i l : f m . g r o u p
0026440 s ) ) ) \r
0026460
0026500 i l : \ , \r
0026520
0026540 ( c a d d r
0026560 i l : a r g s ) ) ) ) ) ) \r ( i
0026600 l : p u t p r o p s i l : f m
0026620 . m e n u p r o p i l : m a c
0026640 r o \r ( i l : a r
0026660 g s ( i l : * i l : | a c c
0026700 e s s | i l : | m a c r o |
0026720 i l : | t o | i l : t o p i
0026740 l : | g r o u p | i l : | p r
0026760 o p s | i l : | o f | \r
0027000
0027020 i l : | w i n d o w . |
0027040 i l : | a r g s | ( i l : w
0027060 i n d o w i l : p r o p i l
0027100 : { v a l u e } ) ) \r
0027120 ( c o n d (
0027140 ( n u l l ( c d r i l : a r
0027160 g s ) ) \r
0027200 ( i l : e r
0027220 r o r " T o o f e w a r g
0027240 u m e n t s t o F M . M E N
0027260 U P R O P : " ( c o n s ' i
0027300 l : f m . m e n u p r o p i l
0027320 : a r g s ) ) ) \r
0027340 ( ( c
0027360 d d r i l : a r g s ) \r
0027400
0027420 ` ( l e t ( ( i l : g r o
0027440 u p ( c d a r ( i l : w i n
0027460 d o w p r o p ( i l : \ \ f m
0027500 . i n s u r e w i n d o w i l
0027520 : \ , ( c a r i l : a r g s
0027540 ) ) \r
0027560
*
0027620 ' i l : f m . g r o
0027640 u p s ) ) ) ) \r
0027660
0027700 ( p r o g 1 ( i l : l i
0027720 s t g e t i l : g r o u p i
0027740 l : \ , ( c a d r i l : a r
0027760 g s ) ) \r
0030000
0030020 ( i l : l i s t p
0030040 u t i l : g r o u p i l : \
0030060 , ( c a d r i l : a r g s )
0030100 \r
0030120
0030140 i l : \ , \r
0030160
*
0030220 ( c a d d r
0030240 i l : a r g s ) ) ) ) ) \r
0030260
0030300 ( t ` ( i l : l i s t g e t
0030320 ( c d a r ( i l : w i n d o
0030340 w p r o p ( i l : \ \ f m . i
0030360 n s u r e w i n d o w i l : \
0030400 , ( c a r i l : a r g s ) )
0030420 \r
0030440
*
0030500 ' i l : f m . g r o u p s )
0030520 ) \r
0030540
0030560 i l : \ , \r
0030600
0030620 ( c a d r i l : a
0030640 r g s ) ) ) ) ) ) \r ( i l : p u
0030660 t p r o p s i l : f m . n w a
0030700 y p r o p i l : m a c r o \r
0030720 ( i l : a r g s (
0030740 i l : * i l : | a c c e s s |
0030760 i l : | m a c r o | i l : |
0031000 t o | i l : | n w a y | i l
0031020 : | p r o p s . | i l : | a r
0031040 g s | \r
0031060 ( i l : w i
0031100 n d o w i l : c o l l e c t i
0031120 o n i l : p r o p i l : { v
0031140 a l u e } ) ) \r
0031160 ( c o n d ( ( n u
0031200 l l ( c d d r i l : a r g s
0031220 ) ) \r
0031240 ( i l : e r r o
0031260 r " T o o f e w a r g u m
0031300 e n t s t o F M . N W A Y P
0031320 R O P : " ( c o n s ' i l :
0031340 f m . n w a y p r o p i l : a
0031360 r g s ) ) ) \r
0031400 ( ( c d d
0031420 d r i l : a r g s ) \r
0031440
0031460 ` ( l e t ( ( i l : n w a y
0031500 ( c d r ( i l : a s s o c
0031520 i l : \ , ( c a d r i l : a
0031540 r g s ) \r
0031560
*
0031620 ( i l : w i n d o w
0031640 p r o p ( i l : \ \ f m . i n
0031660 s u r e w i n d o w i l : \ ,
0031700 \r
0031720
*
0032000 ( c a r i l :
0032020 a r g s ) ) \r
0032040
*
0032100 '
0032120 i l : f m . n w a y s ) ) ) ) )
0032140 \r
0032160 ( p r o
0032200 g 1 ( i l : l i s t g e t i
0032220 l : n w a y i l : \ , ( c a
0032240 d d r i l : a r g s ) ) \r
0032260
*
0032320 ( i l : l i s t p u t i l : n
0032340 w a y i l : \ , ( c a d d r
0032360 i l : a r g s ) \r
0032400
*
0032440 i l : \ , \r
0032460
*
0032520 ( c a d d d r i l : a r g
0032540 s ) ) ) ) ) \r
0032560 ( t ` (
0032600 i l : l i s t g e t ( c d r
0032620 ( i l : a s s o c i l : \ ,
0032640 ( c a d r i l : a r g s ) \r
0032660
*
0032720 (
0032740 i l : w i n d o w p r o p ( i
0032760 l : \ \ f m . i n s u r e w i n
0033000 d o w i l : \ , \r
0033020
*
0033120 ( c a r i l : a r g s ) ) \r
0033140
*
0033220 ' i l : f m . n w a
0033240 y s ) ) ) \r
0033260
0033300 i l : \ , \r
0033320
0033340 ( c a d d r
0033360 i l : a r g s ) ) ) ) ) ) \r )
0033400 \r ( i l : d e f o p t i m i z e
0033420 r 006 002 i l : f m . i t e m p r
0033440 o p 006 001 ( & r e s t i l : a
0033460 r g s )
0033500 006 006 ( i l : * i l : | a c
0033520 c e s s | i l : | m a c r o |
0033540 i l : | t o | \r 006 001
0033560
*
0033640 006 006 i l : f r
0033660 e e m e n u i t e m i l : | d
0033700 a t a t y p e . | \r 006 001
0033720
*
0034000 006 006 i l : | a
0034020 r g s | ( i l : i t e m i l
0034040 : p r o p i l : { v a l u e }
0034060 ) ) 006 001 \r ( c o n d \r
0034100 ( ( n u l l ( c d r
0034120 i l : a r g s ) ) \r
0034140 ( i l : e r r o r " T o o
0034160 f e w a r g u m e n t s t o
0034200 F M . I T E M P R O P : " (
0034220 c o n s ' i l : f m . i t e m
0034240 p r o p i l : a r g s ) ) ) \r
0034260 ( ( i l : n e q (
0034300 c a a d r i l : a r g s ) \r
0034320 ' q u
0034340 o t e ) \r ' i l :
0034360 i g n o r e m a c r o ) \r
0034400 ( ( c d d r i l : a r g
0034420 s ) \r ( i l : \ \
0034440 f m . c p u t i t e m p r o p
0034460 ` ( i l : \ \ f m . i n s u r e
0034500 f m , ( c a r i l : a r g s
0034520 ) ) ( c a d r i l : a r g s
0034540 ) \r
0034560 ( c a d d r i l : a r g s ) )
0034600 ) \r ( t ( i l : \
0034620 \ f m . c g e t i t e m p r o p
0034640 ` ( i l : \ \ f m . i n s u r
0034660 e f m , ( c a r i l : a r g
0034700 s ) ) ( c a d r i l : a r g
0034720 s ) ) ) ) ) \r \r \r ( i l : p u t
0034740 p r o p s 006 002 i l : f m . i t
0034760 e m p r o p i l : a r g n a m
0035000 e s 006 001 ( i l : i t e m i l
0035020 : p r o p i l : { v a l u e }
0035040 ) ) \r \r ( i l : p u t p r o p s
0035060 006 002 i l : f m . g r o u p p r
0035100 o p i l : a r g n a m e s 006 001
0035120 ( i l : w i n d o w i l : g
0035140 r o u p i l : p r o p i l :
0035160 { v a l u e } ) ) \r \r ( i l : p
0035200 u t p r o p s 006 002 i l : f m .
0035220 m e n u p r o p i l : a r g n
0035240 a m e s 006 001 ( i l : w i n d o
0035260 w i l : p r o p i l : { v a
0035300 l u e } ) ) \r \r ( i l : p u t p
0035320 r o p s 006 002 i l : f m . n w a
0035340 y p r o p i l : a r g n a m e
0035360 s 006 001 ( i l : w i n d o w i
0035400 l : c o l l e c t i o n i l :
0035420 p r o p i l : { v a l u e } )
0035440 ) \r ( i l : d e c l a r e \ :
0035460 i l : e v a l @ c o m p i l e
0035500 \r \r ( i l : p u t p r o p s i
0035520 l : \ \ f m . i n s u r e f m
0035540 i l : m a c r o \r
0035560 ( i l : a r g s ( i l : * i
0035600 l : | a r g s | ( i l : i t e
0035620 m i l : w i n d o w ) \r
0035640
0035660 i l : \ . i l : | I n s
0035700 u r e | i l : i t e m i l :
0035720 | i s | i l : | f r e e m e n
0035740 u i t e m . | i l : i \ f i
0035760 l : w i n d o w i l : | i s |
0036000 \r
0036020 i l : | s u p p
0036040 l i e d , | i l : | t h e n |
0036060 i l : | t r y | i l : | t o
0036100 | i l : | c o e r c e | i l
0036120 : | i t e m | i l : | i f |
0036140 \r
0036160 i l : | n e c e s
0036200 s a r y . | ) \r
0036220 ( i l : | i f | (
0036240 c d r i l : a r g s ) \r
0036260
0036300 i l : | t h e n | \r
0036320
0036340 ( i l : * i l : w i n d o w
0036360 i l : a r g u m e n t i l :
0036400 s u p p l i e d ) \r
0036420 `
0036440 ( c o n d ( ( i l : | t y p e
0036460 ? | i l : f r e e m e n u i t
0036500 e m i l : \ , ( c a r i l
0036520 : a r g s ) ) \r
0036540
0036560 i l : \ , \r
0036600
0036620 ( c a r i l :
0036640 a r g s ) ) \r
0036660
0036700 ( t ( i l : i f ( a n
0036720 d ( i l : l i s t p i l : \
0036740 , ( c a r i l : a r g s ) )
0036760 \r
0037000
0037020 ( e q
0037040 i l : \ \ f m . g r o u p s p e
0037060 c ( c a r i l : \ , ( c a
0037100 r i l : a r g s ) ) ) ) \r
0037120
*
0037160 i l : t h e n \r
0037200
*
0037240 ( i l : e r r o r " C a n
0037260 ' t d e s c r i b e a l o
0037300 c a l i t e m f r o m t o
0037320 p l e v e l : " i l : \ , \r
0037340
*
0037400 ( c a
0037420 r i l : a r g s ) ) \r
0037440
*
0037500 i l : e l s e \r
0037520
*
0037560 ( i l : \ \ f m . c o e r c e i
0037600 t e m p t r i l : \ , ( c a
0037620 r i l : a r g s ) \r
0037640
*
0037700 i l : \ , \r
0037720
*
0037760 ( c a d r
0040000 i l : a r g s ) ) ) ) ) i l
0040020 : | e l s e | ( i l : * i l
0040040 : n o i l : w i n d o w \r
0040060
*
0040160 i
0040200 l : s u p p l i e d \ : i l :
0040220 j u s t \r
0040240
*
0040340 t y p e i l : c h
0040360 e c k i l : i t e m \r
0040400
*
0040500 ) \r
0040520
0040540 ` ( c o n d ( ( i l : |
0040560 t y p e ? | i l : f r e e m e
0040600 n u i t e m i l : \ , ( c a
0040620 r i l : a r g s ) ) \r
0040640
0040660 i l : \ , \r
0040700
0040720 ( c a r
0040740 i l : a r g s ) ) \r
0040760
0041000 ( t ( i l : e r
0041020 r o r " A r g m u s t b e
0041040 F r e e M e n u I t e m " i
0041060 l : \ , ( c a r i l : a r g
0041100 s ) ) ) ) ) ) ) \r ( i l : p u t
0041120 p r o p s i l : \ \ f m . i n
0041140 s u r e w i n d o w i l : m a
0041160 c r o ( ( i l : w i n d o w )
0041200 \r
0041220
0041240 ( c o
0041260 n d ( ( a n d ( i l : w i n
0041300 d o w p i l : w i n d o w ) \r
0041320
*
0041400 ( i l : w i n d
0041420 o w p r o p i l : w i n d o w
0041440 ' i l : f m . i t e m s ) ) \r
0041460
*
0041540 i l : w i n d o w ) \r
0041560
*
0041640 ( t ( i l : e r r o r " A r
0041660 g m u s t b e F r e e M e
0041700 n u W i n d o w " \r
0041720
*
0042000 i l : w i n d o
0042020 w ) ) ) ) ) \r ) \r \r \r \r 006 004 ( i
0042040 l : * i l : r u n t i m e
0042060 t y p e i l : c h e c k e r s
0042100 ) 006 001 \r \r ( i l : d e f i n e q
0042120 \r \r ( 006 004 i l : f r e e m e n u
0042140 006 001 \r ( i l : l a m b d a
0042160 ( i l : d e s c r i p t i o n
0042200 i l : t i t l e i l : b a c k
0042220 g r o u n d i l : b o r d e r
0042240 ) 006 006 006 001 \r
0042260
*
0042340 006 006 ( i l : * i l : | j
0042360 o w | " 1 7 - A p r - 8 6 1
0042400 9 : 3 2 " ) 006 001 \r
0042420 \r 006 006
0042440 ( i l : * i l : | C r e a t e
0042460 | i l : \ a i l : | f r e e
0042500 m e n u | i l : | f r o m |
0042520 i l : \ a i l : | d e s c r i
0042540 p t i o n . | \r 006 001
0042560 006 006 i l : \ \ f m . f o
0042600 r m a t i l : | i s | i l :
0042620 | t h e | i l : | r e c u r s
0042640 i v e | i l : | f o r m a t t
0042660 e r . | \r 006 001
0042700 006 006 i l : | T h e | i l : |
0042720 d e f a u l t s | i l : | a r
0042740 e | i l : | p a s s e d | i
0042760 l : | t o | i l : | i t | i
0043000 l : | h e r e . | \r 006 001
0043020 006 006 i l : i \ t i
0043040 l : | r e t u r n s | i l : \
0043060 a i l : | l i s t | i l : |
0043100 o f | i l : | g r o u p s , |
0043120 i l : | t h e | i l : | f i
0043140 r s t | \r 006 001
0043160 006 006 i l : | o f | i l : |
0043200 w h i c h | i l : | i s | i
0043220 l : | t h e | i l : | e n t i
0043240 r e | i l : | m e n u . | \r 006
0043260 001 006 006 i l :
0043300 | E a c h | i l : | g r o u p
0043320 | i l : | i s | i l : \ a
0043340 i l : | p r o p e r t y | i l
0043360 : | l i s t , | i l : | t h e
0043400 | i l : | f i r s t | \r 006 001
0043420 006 006 i l : |
0043440 i t e m | i l : | b e i n g |
0043460 i l : | t h e | i l : i d
0043500 i l : | o f | i l : | t h e |
0043520 i l : | g r o u p , | i l :
0043540 | w i t h | \r 006 001
0043560 006 006 i l : | g r o u p |
0043600 i l : | p r o p e r t i e s |
0043620 i l : | f o l l o w i n g . |
0043640 ) 006 001 \r \r ( i l : s e t
0043660 q i l : d e s c r i p t i o n
0043700 ( i l : c o p y i l : d e s
0043720 c r i p t i o n ) )
0043740 006 006 ( i l : * i l : | l e
0043760 a v e | i l : | u s e r s |
0044000 \r 006 001
0044020
*
0044100 006 006 i l : | d e s c r i p t i o
0044120 n | i l : | u n t o u c h e d
0044140 | ) 006 001 \r ( l e t ( (
0044160 i l : w i n d o w ( 006 002 i l :
0044200 \ \ f m . c r e a t e w 006 001 (
0044220 006 002 i l : \ \ f m . f o r m a t
0044240 006 001 i l : d e s c r i p t i o
0044260 n i l : \ \ f m . d e f a u l
0044300 t f o r m a t \r
0044320
*
0044360 i l : d e f a u l t
0044400 f o n t 0 0 i l : \ \ f m
0044420 . r o w s p a c e i l : \ \ f
0044440 m . c o l u m n s p a c e ) \r
0044460
0044500 i l : t i
0044520 t l e i l : b a c k g r o u n
0044540 d i l : b o r d e r ) ) ) \r
0044560
*
0044640 006 006 ( i
0044660 l : * i l : \ \ f m . s e t a
0044700 t t a c h p o i n t \r 006 001
0044720
*
0045000 006 006 ( i l :
0045020 l i s t g e t ( c d a r i l
0045040 : w i n d o w ) \r 006 001
0045060
*
0045140 006 006 ( q u o t e
0045160 i l : i t e m s ) ) ( i l :
0045200 | f e t c h | \r 006 001
0045220
*
0045300 006 006 ( i l : r e g
0045320 i o n i l : w i d t h ) i l
0045340 : | o f | \r 006 001
0045360
*
0045440 006 006 ( i l : l i s t g
0045460 e t ( c d a r i l : w i n d
0045500 o w ) \r 006 001
0045520
*
0045600 006 006 ( q u o t e i l : r
0045620 e g i o n ) ) ) ( i l : | f e
0045640 t c h | \r 006 001
0045660
*
0045740 006 006 ( i l : r e g i o n
0045760 i l : h e i g h t ) i l : |
0046000 o f | \r 006 001
0046020
*
0046100 006 006 ( i l : l i s t g e t
0046120 ( c d a r i l : w i n d o w
0046140 ) \r 006 001
0046160
*
0046240 006 006 ( q u o t e i l : r e g
0046260 i o n ) ) ) ) 006 001 \r
0046300 ( 006 002 i l : \ \ f m . m a
0046320 k e l i n k s 006 001 i l : w i n
0046340 d o w ) \r ( 006
0046360 002 i l : \ \ f m . c o l l e c t
0046400 n w a y s 006 001 i l : w i n d o
0046420 w ) \r ( 006 002 i
0046440 l : f m . r e s e t m e n u 006 001
0046460 i l : w i n d o w ) \r
0046500 i l : w i n d o w ) )
0046520 ) \r \r ( 006 004 i l : f m . i t e m
0046540 p r o p 006 001 \r ( i l : l a m
0046560 b d a i l : a r g p t r 006 006 006
0046600 001
0046620
0046640 006 006 ( i l : *
0046660 i l : | j o w | " 4 - A p r
0046700 - 8 6 1 4 : 5 7 " ) 006 001 \r
0046720 ( c o n d \r (
0046740 ( i l : i l e s s p i l : a r
0046760 g p t r 2 ) \r
0047000 ( i l : e r r o r " T o o f
0047020 e w a r g u m e n t s t o
0047040 F M . I T E M P R O P " ( l i
0047060 s t ' i l : f m . i t e m p r
0047100 o p ( i l : a r g i l : a r
0047120 g p t r 1 ) ) ) ) \r
0047140 ( ( n o t ( i l : | t y p
0047160 e ? | i l : f r e e m e n u i
0047200 t e m ( i l : a r g i l : a
0047220 r g p t r 1 ) ) ) \r
0047240 ( i l : e r r o r " F M
0047260 . I T E M P R O P a r g m u
0047300 s t b e F r e e M e n u I t
0047320 e m : " ( i l : a r g i l :
0047340 a r g p t r 1 ) ) ) \r
0047360 ( ( e q i l : a r g p t
0047400 r 2 ) \r ( 006 002
0047420 i l : \ \ f m . g e t i t e m p
0047440 r o p 006 001 ( i l : a r g i l
0047460 : a r g p t r 1 ) \r
0047500 ( i l : a r
0047520 g i l : a r g p t r 2 ) ) )
0047540 \r ( t ( 006 002 i l
0047560 : \ \ f m . p u t i t e m p r o
0047600 p 006 001 ( i l : a r g i l : a
0047620 r g p t r 1 ) \r
0047640 ( i l : a r
0047660 g i l : a r g p t r 2 ) \r
0047700
0047720 ( i l : a r g i l : a r g p t
0047740 r 3 ) ) ) ) ) ) \r \r ( 006 004 i l
0047760 : f m . g e t i t e m 006 001 \r
0050000 ( i l : l a m b d a ( i l : i
0050020 d i l : g r o u p i l : w i
0050040 n d o w ) 006 006 006 001
0050060 006
0050100 006 ( i l : * i l : | j o w |
0050120 " 1 9 - A p r - 8 6 2 2 : 4 5
0050140 " ) 006 001 \r \r
0050160 006 006 ( i l :
0050200 * i l : | f i n d | i l : |
0050220 a n | i l : | i t e m | i l
0050240 : | i n | i l : w i n d o w
0050260 i l : | b a s e d | i l : | o
0050300 n | i l : g r o u p \r 006 001
0050320 006 006 i l : | a
0050340 n d | i l : i d i l : | w h
0050360 i c h | i l : | i s | i l :
0050400 | a n | i l : | i t e m | i
0050420 l : | i d | i l : | o r | i
0050440 l : | l a b e l , | \r 006 001
0050460 006 006 i l : i \ f
0050500 i l : g r o u p i l : | i s
0050520 | i l : n i l \ , i l : | s
0050540 e a r c h | i l : | w h o l e
0050560 | i l : | m e n u . | ) 006 001 \r
0050600 \r ( i l : \ \ f m . i n
0050620 s u r e w i n d o w i l : w i
0050640 n d o w ) \r ( l e t (
0050660 ( i l : i t e m s ( i l : | i
0050700 f | i l : g r o u p i l : |
0050720 t h e n | ( i l : \ \ f m . g
0050740 r o u p p r o p i l : w i n d
0050760 o w i l : g r o u p ' i l :
0051000 i t e m s ) \r
0051020
0051040 i l : | e l s e | \r
0051060
0051100 ( i l : w i n d o
0051120 w p r o p i l : w i n d o w
0051140 ' i l : f m . i t e m s ) ) ) )
0051160 \r ( i l : | f
0051200 o r | i l : i t e m i l : |
0051220 i n | i l : i t e m s i l :
0051240 | t h e r e i s | ( o r ( e
0051260 q i l : i d ( i l : \ \ f m
0051300 . i t e m p r o p i l : i t e
0051320 m \r
0051340
*
0051440 ' i l : i d ) ) \r
0051460
*
0051540 ( i l : e q u a l
0051560 i l : i d ( i l : \ \ f m . i
0051600 t e m p r o p \r
0051620
*
0051720 i l : i t e m \r
0051740
*
0052040 ' i l :
0052060 l a b e l ) ) ) ) ) ) ) \r \r ( 006
0052100 004 i l : f m . g e t s t a t e 006
0052120 001 \r ( i l : l a m b d a (
0052140 i l : w i n d o w ) 006 006 006 001
0052160
*
0052220 006 006 ( i l : * i l : | j
0052240 o w | " 1 8 - J u n - 8 6 1
0052260 6 : 2 9 " ) 006 001 \r
0052300 \r 006 006
0052320 ( i l : * i l : | p r o g r a
0052340 m m e r | i l : | i n t e r f
0052360 a c e : | i l : | g o e s |
0052400 i l : | t h r o u g h | i l :
0052420 | a l l | \r 006 001
0052440 006 006 i l : | i t e m s |
0052460 i l : | a n d | i l : | n w a
0052500 y | i l : | c o l l e c t i o
0052520 n s , | i l : | r e t u r n s
0052540 | i l : \ a i l : | p r o p
0052560 | \r 006 001 006
0052600 006 i l : | l i s t | i l : | o
0052620 f | i l : | i d | / i l :
0052640 | c u r r e n t | i l : | s t
0052660 a t e | i l : | f o r | i l
0052700 : | a n y | \r 006 001
0052720 006 006 i l : | s t a t e |
0052740 i l : | i t e m s | i l : |
0052760 i n | i l : | t h e | i l :
0053000 | m e n u . | \r 006 001
0053020 006 006 i l : | T h e | i
0053040 l : | c u r r e n t | i l : |
0053060 s t a t e | i l : | i s | i
0053100 l : | t h e | i l : | v a l u
0053120 e | i l : | o f | i l : | t
0053140 h e | \r 006 001
0053160 006 006 i l : s t a t e i l : |
0053200 f i e l d , | i l : | o r |
0053220 i l : | f o r | i l : | e d i
0053240 t | i l : | i t e m s , | i
0053260 l : | t h e | i l : l a b e l
0053300 . \r 006 001 006 006
0053320 i l : | D o n ' t | i l : | i
0053340 n c l u d e | i l : | i n |
0053360 i l : | s t a t e | i l : | l
0053400 i s t | i l : | i f | i l :
0053420 s t a t e i l : | i s | \r 006
0053440 001 006 006 i l :
0053460 n i l . ) 006 001 \r \r ( i l
0053500 : \ \ f m . i n s u r e w i n d
0053520 o w i l : w i n d o w ) \r
0053540 ( l e t ( ( i l : s t a t
0053560 e l i s t ( l i s t n i l )
0053600 ) ) \r ( i l :
0053620 | f o r | i l : n w a y i l
0053640 : | i n | ( i l : w i n d o w
0053660 p r o p i l : w i n d o w '
0053700 i l : f m . n w a y s ) \r
0053720 i l :
0053740 | d o | \r
0053760 ( i l : | i f | ( i
0054000 l : l i s t g e t ( c d r i
0054020 l : n w a y ) \r
0054040
0054060 ' i l : s t a t
0054100 e ) \r
0054120 i l : | t h
0054140 e n | \r
0054160 ( i l : l
0054200 c o n c i l : s t a t e l i s
0054220 t ( l i s t ( c a r i l :
0054240 n w a y ) \r
0054260
*
0054320 ( i l : l i
0054340 s t g e t ( c d r i l : n w
0054360 a y ) \r
0054400
*
0054440 '
0054460 i l : s t a t e ) ) ) ) ) \r
0054500 ( i l : | f o r |
0054520 i l : i t e m i l : | i n |
0054540 ( i l : w i n d o w p r o p
0054560 i l : w i n d o w ' i l : f m
0054600 . i t e m s ) \r
0054620 i l : | d o | \r
0054640
0054660 ( i l : s e l e c t q ( i l :
0054700 \ \ f m . i t e m p r o p i l
0054720 : i t e m ' t y p e ) \r
0054740
0054760 ( ( i l : t o g g l e i
0055000 l : 3 s t a t e i l : s t a t
0055020 e i l : n w a y i l : n u m
0055040 b e r ) \r
0055060
0055100 ( i l : | i f | ( i l : \
0055120 \ f m . i t e m p r o p i l :
0055140 i t e m ' i l : s t a t e ) \r
0055160
*
0055220 i l : | t h e n | \r
0055240
*
0055300 ( i l : l c o n c i l : s t a
0055320 t e l i s t ( l i s t ( o r
0055340 ( i l : \ \ f m . i t e m p r
0055360 o p i l : i t e m \r
0055400
*
0055500 ' i l : i d ) \r
0055520
*
0055620 ( i l : \ \ f m . i t e m p
0055640 r o p i l : i t e m \r
0055660
*
0055760 ' i l : l a b e l
0056000 ) ) \r
0056020
*
0056100 ( i l : \ \ f m . i t e m
0056120 p r o p i l : i t e m \r
0056140
*
0056240 ' i l : s t a t e ) ) )
0056260 ) ) \r
0056300 ( i l : e d i
0056320 t ( i l : l c o n c i l : s
0056340 t a t e l i s t ( l i s t (
0056360 i l : \ \ f m . i t e m p r o p
0056400 i l : i t e m ' i l : i d )
0056420 \r
0056440
*
0056500 ( i l
0056520 : \ \ f m . i t e m p r o p i
0056540 l : i t e m ' i l : l a b e l
0056560 ) ) ) ) \r
0056600 n i l ) )
0056620 \r ( c a r i
0056640 l : s t a t e l i s t ) ) ) ) \r
0056660 \r ( 006 004 i l : f m . h i g h l i
0056700 g h t i t e m 006 001 \r ( i l :
0056720 l a m b d a ( i l : i t e m
0056740 i l : w i n d o w ) 006 006 006 001
0056760
0057000 006 006 ( i l
0057020 : * i l : | j o w | " 2 6 -
0057040 J u n - 8 6 1 5 : 0 5 " ) 006 001
0057060 \r \r
0057100 006 006 ( i l : * i l
0057120 : | t h i s | i l : | i s |
0057140 i l : | t h e | i l : | u s e
0057160 r | i l : | i n t e r f a c e
0057200 | i l : | f u n c t i o n |
0057220 \r 006 001 006 006 i
0057240 l : | f o r | i l : | h i g h
0057260 l i g h t i n g . | i l : | T
0057300 y p e | i l : | c h e c k |
0057320 i l : | a n d | i l : | c o e
0057340 r c e | \r 006 001
0057360 006 006 i l : | i t e m , | i
0057400 l : | t h e n | i l : | c a l
0057420 l | i l : | t h e | i l : |
0057440 r e a l | i l : | f u n c t i
0057460 o n | ) 006 001 \r \r ( i l :
0057500 \ \ f m . i n s u r e w i n d o
0057520 w i l : w i n d o w ) \r
0057540 ( i l : s e t q i l : i t e
0057560 m ( i l : \ \ f m . i n s u r
0057600 e f m i l : i t e m i l : w
0057620 i n d o w ) ) \r ( 006 002 i
0057640 l : \ \ f m . h i g h l i g h t
0057660 i t e m 006 001 i l : i t e m i
0057700 l : w i n d o w ) ) ) \r \r ( 006 004
0057720 i l : f m . c h a n g e l a b e
0057740 l 006 001 \r ( i l : l a m b d a
0057760 ( i l : i t e m i l : n e w
0060000 l a b e l i l : w i n d o w
0060020 i l : u p d a t e f l g ) 006 006 006
0060040 001 006 006 ( i l : * i l :
0060060 | j o w | " 2 6 - J u n - 8 6
0060100 1 4 : 5 0 " ) 006 001 \r
0060120 \r
0060140 006 006 ( i l : * i l : | u s e r
0060160 | i l : | i n t e r f a c e |
0060200 i l : | t o | i l : | c h a
0060220 n g e | i l : | t h e | i l
0060240 : | l a b e l | i l : | o f |
0060260 \r 006 001 006 006
0060300 i l : | a n | i l : | i t e m
0060320 , | i l : | a n d | i l : |
0060340 r e d i s p l a y | i l : | a
0060360 s | i l : | n e c e s s a r y
0060400 . | ) 006 001 \r \r ( i l : \
0060420 \ f m . i n s u r e w i n d o w
0060440 i l : w i n d o w ) \r
0060460 ( i l : s e t q i l : i t e m
0060500 ( i l : \ \ f m . i n s u r e
0060520 f m i l : i t e m i l : w i
0060540 n d o w ) ) \r ( l e t
0060560 ( ( i l : o l d r e g i o n (
0060600 i l : \ \ f m . i t e m p r o p
0060620 i l : i t e m ' i l : r e g
0060640 i o n ) ) ) \r
0060660 ( 006 002 i l : \ \ f m . c h a n g
0060700 e l a b e l 006 001 i l : i t e m
0060720 i l : n e w l a b e l )
0060740 006 006 ( i l : *
0060760 i l : | f i l l | i l : | i n
0061000 | \r 006 001
0061020
*
0061100 006 006 i l : | b a c k g r o u
0061120 n d | ) 006 001 \r
0061140 \r 006 006 ( i
0061160 l : * i l : | n o w | i l :
0061200 | p u t | i l : | i t e m |
0061220 i l : | b a c k | i l : | i n
0061240 t o | i l : | i t s | i l :
0061260 | c u r r e n t | \r 006 001
0061300 006 006 i l : | s t a
0061320 t e . | i l : | T h i s | i
0061340 l : | o n l y | i l : | a p p
0061360 l i e s | i l : | t o | i l
0061400 : | p a r t i c u l a r | i l
0061420 : | t y p e | \r 006 001
0061440 006 006 i l : | i t e m s
0061460 | ( i l : | n w a y , | i l
0061500 : | t o g g l e , | i l : | 3
0061520 s t a t e | ) i l : \ , i l :
0061540 | s o | i l : | d o | i l :
0061560 | t h e | \r 006 001
0061600 006 006 i l : | c h a n g e s
0061620 t a t e | i l : | d i r e c t
0061640 l y , | i l : | r a t h e r |
0061660 i l : | t h a n | i l : | c
0061700 a l l | \r 006 001
0061720 006 006 i l : | c h a n g e s t
0061740 a t e | ) 006 001 \r \r
0061760 ( i l : s e l e c t q ( i
0062000 l : \ \ f m . i t e m p r o p
0062020 i l : i t e m ' t y p e ) \r
0062040 ( (
0062060 i l : n w a y i l : t o g g l
0062100 e ) \r \r
0062120 006 006 ( i l : *
0062140 i l : | r e m e m b e r | i
0062160 l : | e a c h | i l : | n w a
0062200 y | i l : | i t e m | i l :
0062220 | i s | i l : | h a n d l e d
0062240 | i l : | a s | \r 006 001
0062260 006 006 i l : | a n |
0062300 i l : | i n d i v i d u a l |
0062320 i l : | t o g g l e | ) 006 001 \r
0062340 \r
0062360 ( 006 002 i l : \ \ f m
0062400 . t o g g l e - c h a n g e s t
0062420 a t e 006 001 i l : i t e m ( i
0062440 l : \ \ f m . i t e m p r o p
0062460 i l : i t e m ' i l : s t a t
0062500 e ) ) ) \r
0062520 ( i l : 3 s t a t e (
0062540 006 002 i l : \ \ f m . 3 s t a t e
0062560 - c h a n g e s t a t e 006 001 i
0062600 l : i t e m ( i l : \ \ f m .
0062620 i t e m p r o p i l : i t e m
0062640 ' i l : s t a t e ) ) ) \r
0062660 n i l
0062700 ) \r ( i l : |
0062720 i f | ( o r i l : u p d a t
0062740 e f l g ( i l : \ \ f m . i t
0062760 e m p r o p i l : i t e m '
0063000 i l : c h a n g e l a b e l u p
0063020 d a t e ) ) \r
0063040 i l : | t h e n |
0063060
*
0063120 006 006 ( i l : * i l : |
0063140 u p d a t e | i l : | g r o u
0063160 p s | ) 006 001 \r
0063200 ( 006 002 i l : \ \ f
0063220 m . u p d a t e g r o u p e x t
0063240 e n t 006 001 ( i l : w i n d o w
0063260 p r o p i l : w i n d o w '
0063300 i l : f m . g r o u p s ) ) \r
0063320 (
0063340 i l : w i n d o w p r o p i l
0063360 : w i n d o w ' i l : e x t e
0063400 n t ( 006 002 i l : \ \ f m . w i
0063420 n d o w e x t e n t 006 001 i l :
0063440 w i n d o w ) ) \r
0063460 ( 006 002 i l : \
0063500 \ f m . r e d i s p l a y m e n
0063520 u 006 001 i l : w i n d o w ) \r
0063540 i
0063560 l : | e l s e |
0063600
0063620 006 006 ( i
0063640 l : * i l : | j u s t | i l
0063660 : | r e d i s p l a y | \r 006 001
0063700
*
0063760 006 006 i
0064000 l : | i t e m | ) 006 001 \r
0064020 ( 006 002 i
0064040 l : \ \ f m . c l e a r i t e m
0064060 006 001 i l : i t e m i l : w i
0064100 n d o w i l : o l d r e g i o
0064120 n ) \r
0064140
*
0064220 006 006 ( i l : * i l : | f i l l
0064240 | i l : | i n | \r 006 001
0064260
*
0064340 006 006 i l : |
0064360 b a c k g r o u n d | ) 006 001 \r
0064400 (
0064420 i l : \ \ f m . d i s p l a y b
0064440 i t m a p i l : i t e m ( i
0064460 l : \ \ f m . i t e m p r o p
0064500 i l : i t e m ' i l : b i t m
0064520 a p ) \r
0064540 i l : w i
0064560 n d o w ) ) ) ) ) \r \r ( 006 004 i l
0064600 : f m . c h a n g e s t a t e 006
0064620 001 \r ( i l : l a m b d a (
0064640 i l : x i l : n e w s t a t e
0064660 i l : w i n d o w ) 006 006 006 001
0064700
0064720 006 006 ( i l : * i l : | j
0064740 o w | " 2 6 - J u n - 8 6 1
0064760 4 : 5 1 " ) 006 001 \r
0065000 \r 006 006
0065020 ( i l : * i l : | u s e r |
0065040 i l : | i n t e r f a c e | i
0065060 l : | t o | i l : | c h a n g
0065100 e | i l : | t h e | i l : |
0065120 s t a t e | i l : | o f | \r
0065140 006 001 006 006 i l
0065160 : | a n y | ( i l : | s t a t
0065200 e | ) i l : | i t e m | i l
0065220 : | o r | i l : | n w a y |
0065240 i l : | c o l l e c t i o n . |
0065260 \r 006 001 006 006 i
0065300 l : | R e d i s p l a y | i l
0065320 : | t h e | i l : | i t e m |
0065340 i l : | i f | i l : | t h e
0065360 | i l : | w i n d o w | i l
0065400 : | i s | \r 006 001
0065420 006 006 i l : | o p e n | ) 006
0065440 001 \r \r ( i l : \ \ f m .
0065460 i n s u r e w i n d o w i l :
0065500 w i n d o w ) \r ( i l :
0065520 | i f | ( i l : a s s o c i
0065540 l : x ( i l : w i n d o w p r
0065560 o p i l : w i n d o w ' i l
0065600 : f m . n w a y s ) ) \r
0065620 i l : | t h e n |
0065640
*
0065700 006 006 ( i l : *
0065720 i l : x i l : | s p e c i f
0065740 i e s | i l : | a n | \r 006 001
0065760
*
0066040 006 006 i
0066060 l : n w a y . i l : | C h a n
0066100 g e s t a t e | i l : | a n d
0066120 | \r 006 001
0066140
*
0066220 006 006 i l : | r e d i s p l a
0066240 y . | ) 006 001 \r
0066260 ( l e t ( ( i l : o l d s
0066300 t a t e ( i l : \ \ f m . n w
0066320 a y p r o p i l : w i n d o w
0066340 i l : x ' i l : s t a t e )
0066360 ) ) \r
0066400 ( i l : | i f | i l : n
0066420 e w s t a t e i l : | t h e n
0066440 |
0066460 006 006 ( i l : * n i l i l : |
0066500 w o u l d | i l : | m e a n |
0066520 \r 006 001
0066540
*
0066620 006 006 i l : | d e s e l e c t |
0066640 ) 006 001 \r
0066660 ( i l : s
0066700 e t q i l : n e w s t a t e
0066720 ( i l : \ \ f m . i n s u r e f
0066740 m i l : n e w s t a t e i l
0066760 : w i n d o w ) ) ) \r
0067000 ( 006 002 i l
0067020 : \ \ f m . c h a n g e s t a t
0067040 e 006 001 i l : x i l : n e w s
0067060 t a t e i l : w i n d o w ) \r
0067100
0067120 ( i l : | i f | i l : o l d s
0067140 t a t e i l : | t h e n | (
0067160 i l : \ \ f m . d i s p l a y b
0067200 i t m a p i l : o l d s t a t
0067220 e ( i l : \ \ f m . i t e m p
0067240 r o p \r
0067260
*
0067360 i l : o l d s t a
0067400 t e \r
0067420
*
0067520 ' i l : b i t m a p
0067540 ) \r
0067560
*
0067620 i l : w i n d o
0067640 w ) ) \r
0067660 ( i l : | i f | i l :
0067700 n e w s t a t e i l : | t h e
0067720 n | ( i l : \ \ f m . d i s p
0067740 l a y b i t m a p i l : n e w
0067760 s t a t e ( i l : \ \ f m . i
0070000 t e m p r o p \r
0070020
*
0070120 i l : n e
0070140 w s t a t e \r
0070160
*
0070260 ' i l : b i
0070300 t m a p ) \r
0070320
*
0070360 i l : w
0070400 i n d o w ) ) ) \r
0070420 i l : | e l s e |
0070440
*
0070500 006 006 ( i l : * i l
0070520 : | t r e a t | i l : x i l
0070540 : | a s | i l : | a n | \r 006
0070560 001
0070600
*
0070640 006 006
0070660 i l : | i t e m | ) 006 001 \r
0070700 ( i l : s e t q
0070720 i l : x ( i l : \ \ f m . i
0070740 n s u r e f m i l : x i l :
0070760 w i n d o w ) ) \r
0071000 ( 006 002 i l : \ \ f m . c
0071020 h a n g e s t a t e 006 001 i l :
0071040 x i l : n e w s t a t e i l
0071060 : w i n d o w ) \r
0071100 ( i l : \ \ f m . d i s
0071120 p l a y b i t m a p i l : x
0071140 ( i l : \ \ f m . i t e m p r o
0071160 p i l : x ' i l : b i t m a
0071200 p ) \r
0071220 i l : w i n d o w ) )
0071240 ) ) \r \r ( 006 004 i l : f m . r e s
0071260 e t s t a t e 006 001 \r ( i l :
0071300 l a m b d a ( i l : x i l :
0071320 w i n d o w ) 006 006 006 001
0071340
0071360 006 006 ( i l
0071400 : * i l : | j o w | " 2 4 -
0071420 A p r - 8 6 2 1 : 2 7 " ) 006 001
0071440 \r \r
0071460 006 006 ( i l : * i l
0071500 : | R e s e t | i l : x \ ,
0071520 i l : | a n | i l : | i t e m
0071540 | i l : | o r | i l : | n w
0071560 a y | i l : | c o l l e c t i
0071600 o n , | \r 006 001
0071620 006 006 i l : | t o | i l : |
0071640 i t s | i l : | i n i t i a l
0071660 | i l : | s t a t e | i l :
0071700 | a n d | i l : | r e d i s p
0071720 l a y | ) 006 001 \r \r ( i l
0071740 : \ \ f m . i n s u r e w i n d
0071760 o w i l : w i n d o w ) \r
0072000 ( l e t ( ( i l : i n i t
0072020 s t a t e ( i l : | i f | (
0072040 i l : a s s o c i l : x ( i
0072060 l : w i n d o w p r o p i l :
0072100 w i n d o w ' i l : f m . n w
0072120 a y s ) ) \r
0072140
0072160 i l : | t h e n | \r
0072200
0072220 ( i
0072240 l : \ \ f m . n w a y p r o p
0072260 i l : w i n d o w i l : x '
0072300 i l : i n i t s t a t e ) \r
0072320
0072340 i l :
0072360 | e l s e | \r
0072400
0072420 ( i l : \ \ f m . i
0072440 t e m p r o p ( i l : \ \ f m
0072460 . i n s u r e f m i l : x i
0072500 l : w i n d o w ) \r
0072520
*
0072560 ' i l : i n i t s t a t e ) ) )
0072600 ) \r ( 006 002 i l
0072620 : f m . c h a n g e s t a t e 006
0072640 001 i l : x i l : i n i t s t
0072660 a t e i l : w i n d o w ) ) )
0072700 ) \r \r ( 006 004 i l : f m . r e s e
0072720 t m e n u 006 001 \r ( i l : l a
0072740 m b d a ( i l : w i n d o w )
0072760 006 006 006 001
0073000
0073020 006 006 ( i l : *
0073040 i l : | j o w | " 2 6 - J u
0073060 n - 8 6 1 4 : 4 3 " ) 006 001 \r
0073100
*
0073160 006 006 ( i
0073200 l : * i l : | r e s e t | i
0073220 l : | e a c h | i l : | i t e
0073240 m | \r 006 001
0073260
*
0073340 006 006 i l : | t o | i l :
0073360 | i t s | i l : i n i t s t a
0073400 t e ) 006 001 \r ( i l : \ \
0073420 f m . i n s u r e w i n d o w
0073440 i l : w i n d o w ) \r (
0073460 006 002 i l : \ \ f m . e n d e d i
0073500 t 006 001 i l : w i n d o w t )
0073520 \r ( i l : | f o r | i
0073540 l : i t e m i l : | i n | (
0073560 i l : w i n d o w p r o p i l
0073600 : w i n d o w ' i l : f m . i
0073620 t e m s ) \r
0073640 i l : | d o | \r
0073660 ( 006 002 i l : f m . r e s
0073700 e t s t a t e 006 001 i l : i t e
0073720 m i l : w i n d o w ) ) \r
0073740 ( i l : | f o r | i l : n
0073760 w a y i l : | i n | ( i l :
0074000 w i n d o w p r o p i l : w i
0074020 n d o w ' i l : f m . n w a y
0074040 s ) \r i l
0074060 : | d o | \r
0074100 ( 006 002 i l : f m . r e s e t s
0074120 t a t e 006 001 ( c a r i l : n
0074140 w a y ) \r
0074160 i l : w i n d o w
0074200 ) ) \r ( 006 002 i l : \ \ f
0074220 m . r e d i s p l a y m e n u 006
0074240 001 i l : w i n d o w ) ) ) \r \r
0074260 ( 006 004 i l : f m . r e s e t s h
0074300 a p e 006 001 \r ( i l : l a m b
0074320 d a ( i l : w i n d o w i l
0074340 : a l w a y s f l g ) 006 006 006 001
0074360
0074400 006 006 ( i l : * i
0074420 l : | j o w | " 1 9 - A p r -
0074440 8 6 2 2 : 5 0 " ) 006 001 \r
0074460 \r
0074500 006 006 ( i l : * i l : | p r
0074520 o g r a m m e r | i l : | w a
0074540 y | i l : | o f | i l : | r
0074560 e s h a p i n g | i l : \ a
0074600 i l : | f r e e m e n u | \r 006
0074620 001 006 006 i l :
0074640 | w i n d o w | i l : | t o |
0074660 i l : | i t s | i l : | m i
0074700 n i m a l | i l : | e x t e n
0074720 t . | \r 006 001
0074740 006 006 i l : i \ f i l : | w i n
0074760 d o w | i l : | i s | i l :
0075000 | t o o | i l : | s m a l l ,
0075020 | i l : | i t | i l : | w i
0075040 l l | i l : | b e | \r 006 001
0075060 006 006 i l : | r
0075100 e s h a p e d , | i l : | w i
0075120 t h o u t | i l : | m o v i n
0075140 g | i l : | t h e | i l : |
0075160 l o w e r | i l : | l e f t |
0075200 \r 006 001 006 006
0075220 i l : | c o r n e r . | i l :
0075240 i \ f i l : | w i n d o w |
0075260 i l : | i s | i l : | t o o |
0075300 i l : | b i g , | i l : | i
0075320 t | i l : | w i l l | \r 006 001
0075340 006 006 i l : |
0075360 o n l y | i l : | b e | i l
0075400 : | r e s h a p e d | i l : |
0075420 i f | i l : a l w a y s f l g
0075440 i l : | i s | i l : t . ) 006
0075460 001 \r \r ( i l : \ \ f m .
0075500 i n s u r e w i n d o w i l :
0075520 w i n d o w ) \r ( i l :
0075540 | i f | ( o r ( i l : i l e
0075560 s s p ( i l : w i n d o w p r
0075600 o p i l : w i n d o w ' i l
0075620 : w i d t h ) \r
0075640
0075660 ( i l : w i n d o w p r o p i
0075700 l : w i n d o w ' i l : f m .
0075720 m i n w i d t h ) ) \r
0075740 ( i l :
0075760 i l e s s p ( i l : w i n d o
0076000 w p r o p i l : w i n d o w
0076020 ' i l : h e i g h t ) \r
0076040
0076060 ( i l : w i n d o w p r
0076100 o p i l : w i n d o w ' i l
0076120 : f m . m i n h e i g h t ) ) \r
0076140
0076160 i l : a l w a y s f l g ) \r
0076200 i l : | t h
0076220 e n | \r (
0076240 i l : s h a p e w i l : w i n
0076260 d o w ( i l : c r e a t e r e
0076300 g i o n ( i l : | f e t c h |
0076320 ( i l : r e g i o n i l : l
0076340 e f t ) \r
0076360
*
0076420 i l :
0076440 | o f | \r
0076460
*
0076520 ( i l
0076540 : w i n d o w p r o p i l : w
0076560 i n d o w ' i l : r e g i o n
0076600 ) ) \r
0076620
0076640 ( i l : | f
0076660 e t c h | ( i l : r e g i o n
0076700 i l : b o t t o m ) \r
0076720
*
0076760 i l : | o f
0077000 | \r
0077020
*
0077060 ( i l : w i n d o w p r o p i
0077100 l : w i n d o w ' i l : r e g
0077120 i o n ) ) \r
0077140
0077160 ( i l
0077200 : w i d t h i f w i n d o w (
0077220 i l : w i n d o w p r o p i l
0077240 : w i n d o w ' i l : f m . m
0077260 i n w i d t h ) \r
0077300
*
0077340 ( i l : w i n d o
0077360 w p r o p i l : w i n d o w
0077400 ' i l : b o r d e r ) ) \r
0077420
*
0077460 ( i l : h e i g h t i f
0077500 w i n d o w ( i l : w i n d o
0077520 w p r o p i l : w i n d o w
0077540 ' i l : f m . m i n h e i g h t
0077560 ) \r
0077600
*
0077640 ( i l : w i n d o w p r o p i
0077660 l : w i n d o w ' i l : t i t
0077700 l e ) \r
0077720
*
0077760 ( i l : w i n d o w p r o p
0100000 i l : w i n d o w ' i l : b
0100020 o r d e r ) ) ) ) ) ) ) \r \r ( 006
0100040 004 i l : f m . r e s e t g r o u
0100060 p s 006 001 \r ( i l : l a m b d
0100100 a ( i l : w i n d o w i l :
0100120 g r o u p l i s t i l : r e d
0100140 i s p l a y f l g ) 006 006 006 001
0100160 006 006 ( i l : * i l
0100200 : | j o w | " 2 6 - J u n - 8
0100220 6 1 4 : 4 5 " ) 006 001 \r
0100240
*
0100320 006 006 ( i l : *
0100340 i l : | u s e r | i l : | i
0100360 n t e r f a c e | i l : | t o
0100400 | \r 006 001
0100420
*
0100500 006 006 i l : | r e c a l c u l
0100520 a t i n g | i l : | g r o u p
0100540 | \r 006 001
0100560
*
0100640 006 006 i l : | e x t e n t s .
0100660 | ) 006 001 \r ( i l : \ \ f
0100700 m . i n s u r e w i n d o w i
0100720 l : w i n d o w ) \r ( 006
0100740 002 i l : \ \ f m . u p d a t e g
0100760 r o u p e x t e n t 006 001 ( i l
0101000 : w i n d o w p r o p i l : w
0101020 i n d o w ' i l : f m . g r o
0101040 u p s ) \r
0101060 i l : g r o u p l i s t ) \r
0101100 ( a n d i l : r e d i s p
0101120 l a y f l g ( 006 002 i l : \ \ f
0101140 m . r e d i s p l a y m e n u 006
0101160 001 i l : w i n d o w ) ) ) ) \r
0101200 \r ( 006 004 i l : f m . r e d i s p
0101220 l a y i t e m 006 001 \r ( i l :
0101240 l a m b d a ( i l : i t e m
0101260 i l : w i n d o w ) 006 006 006 001
0101300
0101320 006 006 ( i l
0101340 : * i l : | j o w | " 2 6 -
0101360 J u n - 8 6 1 4 : 5 1 " ) 006 001
0101400 \r
0101420
*
0101460 006 006
0101500 ( i l : * i l : | u s e r |
0101520 i l : | i n t e r f a c e | i
0101540 l : | t o | \r 006 001
0101560
*
0101640 006 006 i l : | d i s
0101660 p l a y i n g | i l : | a n |
0101700 i l : | i t e m . | ) 006 001 \r
0101720 ( i l : \ \ f m . i n s u
0101740 r e w i n d o w i l : w i n d
0101760 o w ) \r ( i l : s e t q
0102000 i l : i t e m ( i l : \ \ f
0102020 m . i n s u r e f m i l : i t
0102040 e m i l : w i n d o w ) ) \r
0102060 ( i l : \ \ f m . d i s p
0102100 l a y b i t m a p i l : i t e
0102120 m ( i l : \ \ f m . i t e m p
0102140 r o p i l : i t e m ' i l :
0102160 b i t m a p ) \r
0102200 i l : w i n d o w ) ) ) \r
0102220 \r ( 006 004 i l : f m . r e d i s p
0102240 l a y m e n u 006 001 \r ( i l :
0102260 l a m b d a ( i l : w i n d o
0102300 w ) 006 006 006 001
0102320
0102340 006 006 ( i l
0102360 : * i l : | j o w | " 2 6 -
0102400 J u n - 8 6 1 4 : 4 5 " ) 006 001
0102420 \r \r
0102440 006 006 ( i l : * i l
0102460 : | u s e | i l : \ \ f m . r
0102500 e d i s p l a y m e n u \ , i
0102520 l : | w h i c h | i l : | h a
0102540 s | i l : | h o o k s | i l
0102560 : | f o r | \r 006 001
0102600 006 006 i l : | u p d a t i
0102620 n g | i l : \ a i l : | p a
0102640 r t i c u l a r | i l : | r e
0102660 g i o n . | ) 006 001 \r \r (
0102700 i l : \ \ f m . i n s u r e w i
0102720 n d o w i l : w i n d o w ) \r
0102740 ( 006 002 i l : \ \ f m . r
0102760 e d i s p l a y m e n u 006 001 i
0103000 l : w i n d o w ) ) ) \r \r ( 006 004
0103020 i l : f m . s h a d e 006 001 \r
0103040 ( i l : l a m b d a ( i l : x
0103060 i l : s h a d e i l : w i n
0103100 d o w ) 006 006 006 001
0103120 006
0103140 006 ( i l : * i l : | j o w |
0103160 " 2 6 - J u n - 8 6 1 4 : 5 9
0103200 " ) 006 001 \r \r
0103220 006 006 ( i l :
0103240 * i l : x i l : | i s | i
0103260 l : \ a i l : | g r o u p |
0103300 i l : | i d | i l : | o r |
0103320 i l : | a n | i l : | i t e m
0103340 . | \r 006 001 006
0103360 006 i l : | P a i n t | i l : |
0103400 s h a d e | i l : | o n | i
0103420 l : | t o p | i l : | o f |
0103440 i l : | g r o u p | i l : | o
0103460 r | i l : | i t e m . | ) 006 001
0103500 \r \r ( i l : \ \ f m . i
0103520 n s u r e w i n d o w i l : w
0103540 i n d o w ) \r ( l e t
0103560 ( ( i l : r e g i o n ( o r
0103600 ( i l : \ \ f m . g r o u p p r
0103620 o p i l : w i n d o w i l :
0103640 x ' i l : r e g i o n ) \r
0103660
0103700 ( i l : \ \ f m .
0103720 i t e m p r o p ( i l : \ \ f
0103740 m . i n s u r e f m i l : x
0103760 i l : w i n d o w ) \r
0104000
0104020 ' i l : r
0104040 e g i o n ) ) ) ) \r
0104060 ( i l : | i f | ( a n d
0104100 i l : r e g i o n ( i l : o
0104120 p e n w p i l : w i n d o w )
0104140 ) \r
0104160 i l : | t h e n | \r
0104200 ( i l :
0104220 b l t s h a d e ( i l : t e x
0104240 t u r e p i l : s h a d e ) \r
0104260
0104300 i l : w i n d o w
0104320 n i l n i l n i l n i l
0104340 ' i l : p a i n t i l : r e
0104360 g i o n ) ) ) ) ) \r \r ( 006 004 i l
0104400 : f m . e d i t p 006 001 \r ( i
0104420 l : l a m b d a ( i l : w i n
0104440 d o w ) 006 006 006 001
0104460
0104500 006 006 (
0104520 i l : * i l : | j o w | " 1
0104540 9 - A p r - 8 6 2 2 : 5 2 " )
0104560 006 001 \r ( i l : w i n d o
0104600 w p r o p ( i l : \ \ f m . i
0104620 n s u r e w i n d o w i l : w
0104640 i n d o w ) \r
0104660 ' i l : f m . e d i t i t e
0104700 m ) ) ) \r \r ( 006 004 i l : f m . e
0104720 d i t i t e m 006 001 \r ( i l :
0104740 l a m b d a ( i l : i t e m
0104760 i l : w i n d o w i l : c l e
0105000 a r f l g ) 006 006 006 001
0105020 006 006 ( i l
0105040 : * i l : | j o w | " 2 0 -
0105060 O c t - 8 6 1 0 : 4 8 " ) 006 001
0105100 006 006 006 001 \r
0105120
*
0105160 006 006 ( i l : * i
0105200 l : | ; ; ; | \r 006 001
0105220
*
0105260 006 006 "
0105300 s t a r t e d i t i n g a t
0105320 b e g i n n i n g o f i t
0105340 e m . " ) 006 001 \r ( i l :
0105360 \ \ f m . i n s u r e w i n d o
0105400 w i l : w i n d o w ) \r
0105420 ( i l : s e t q i l : i t e
0105440 m ( i l : \ \ f m . i n s u r
0105460 e f m i l : i t e m i l : w
0105500 i n d o w ) ) \r ( 006 002 i
0105520 l : \ \ f m . e n d e d i t 006 001
0105540 i l : w i n d o w t ) \r
0105560 ( i l : | i f | i l : c l
0105600 e a r f l g i l : | t h e n |
0105620 006 006 006 001
0105640 006 006 ( i l : * i l : \
0105660 ; \r 006 001
0105700
*
0105740 006 006 " h a c k t
0105760 o g e t E D I T - I T E M
0106000 t o c l e a r i t e m f i
0106020 r s t . " ) 006 001 \r
0106040 ( i l : s e t q i l :
0106060 c l e a r f l g ' ( i l : r i
0106100 g h t ) ) ) \r ( i l : |
0106120 i f | ( i l : o p e n w p i
0106140 l : w i n d o w ) \r
0106160 i l : | t h e n | \r
0106200 ( i l : a d
0106220 d . p r o c e s s ` ( 006 002 i l
0106240 : \ \ f m . s t a r t e d i t 006
0106260 001 ' , i l : i t e m ' , i l
0106300 : w i n d o w ' , i l : c l e
0106320 a r f l g ) ' i l : n a m e \r
0106340
0106360 ' i l : f r e e m e n u \r
0106400
0106420 ' i l : f r e e m e n u . p r
0106440 o c e s s t ) ) ) ) \r \r ( 006 004
0106460 i l : f m . e n d e d i t 006 001 \r
0106500 ( i l : l a m b d a ( i l
0106520 : w i n d o w i l : w a i t f
0106540 l g ) 006 006 006 001
0106560
0106600 006 006 ( i l : * i l : | j o w
0106620 | " 2 4 - A p r - 8 6 2 1 :
0106640 2 3 " ) 006 001 \r ( i l : \
0106660 \ f m . i n s u r e w i n d o w
0106700 i l : w i n d o w ) \r
0106720 ( 006 002 i l : \ \ f m . e n d e d
0106740 i t 006 001 i l : w i n d o w i
0106760 l : w a i t f l g ) ) ) \r \r ( 006
0107000 004 i l : f m . s k i p n e x t 006
0107020 001 \r ( i l : l a m b d a (
0107040 i l : w i n d o w i l : c l e
0107060 a r f l g ) 006 006 006 001
0107100
0107120 006 006 ( i l : * i l : | j
0107140 o w | " 2 0 - O c t - 8 6 1
0107160 0 : 5 7 " ) 006 001 \r ( i l
0107200 : | i f | ( 006 002 i l : f m . e
0107220 d i t p 006 001 i l : w i n d o w
0107240 ) \r i l :
0107260 | t h e n | 006 006 006 001
0107300
0107320 006 006 ( i l : *
0107340 i l : | ; ; | " e v a l t h
0107360 e E D I T I T E M c h a n g
0107400 e i n t h e F R E E M E N
0107420 U p r o c e s s , w h i c h
0107440 m u s t b e t h e t t y
0107460 p r o c e s s i f e d i t
0107500 i n g . T h i s w o r k s
0107520 e v e n i f c a l l e d
0107540 f r o m t h e F R E E M E N
0107560 U p r o c e s s , e g b y
0107600 L I M I T C H A R S " ) 006 001 \r
0107620 ( l e t
0107640 ( ( i l : f m . p r o c e s s
0107660 ( i l : t t y . p r o c e s s )
0107700 ) ) \r
0107720 ( i l : | i f | ( i l :
0107740 p r o c e s s p r o p i l : f
0107760 m . p r o c e s s ' i l : f r
0110000 e e m e n u . p r o c e s s ) \r
0110020
0110040 i l : | t h e n |
0110060 \r
0110100 ( i l : p r o c
0110120 e s s . e v a l i l : f m . p
0110140 r o c e s s \r
0110160
0110200 ` ( p r o g n ( i l
0110220 : s e t q i l : e d i t i t e
0110240 m ( 006 002 i l : \ \ f m . e d i
0110260 t - f i n d n e x t 006 001 ) ) \r
0110300
*
0110340 ( i l : | i f | i l
0110360 : e d i t i t e m i l : | t h
0110400 e n | \r
0110420
*
0110460 ( i l : | i f | ' , i l : c
0110500 l e a r f l g i l : | t h e n
0110520 | ( 006 002 i l : f m . c h a n g
0110540 e l a b e l 006 001 \r
0110560
*
0110660 i l : e d i t i
0110700 t e m " " \r
0110720
*
0111020 i l : w i n d o w
0111040 ) ) \r
0111060
*
0111120 ( 006 002 i l : \ \ f m . e d i t -
0111140 p r e p a r e t o e d i t 006 001
0111160 i l : e d i t i t e m t ) \r
0111200
*
0111240 ( 006 002 i
0111260 l : \ \ f m . i n s u r e v i s
0111300 i b l e 006 001 i l : e d i t i t
0111320 e m i l : w i n d o w ) \r
0111340
*
0111400 i l : | e
0111420 l s e | \r
0111440
*
0111500 ( 006 002 i l : \ \ f m . e n d
0111520 e d i t 006 001 i l : w i n d o w
0111540 ) ) ) ) \r
0111560 i l : |
0111600 e l s e | \r
0111620 ( i l
0111640 : e r r o r " C a n ' t f i
0111660 n d f r e e m e n u p r o c
0111700 e s s t o d o s k i p - n
0111720 e x t " i l : f m . p r o c e
0111740 s s ) ) ) \r
0111760 i l : | e l s e | 006 006 006 001
0112000
0112020 006 006 ( i
0112040 l : * i l : \ ; \r 006 001
0112060
*
0112120 006 006
0112140 " n o t e d i t i n g , s o
0112160 s t a r t w i t h f i r s
0112200 t e d i t i t e m i n m
0112220 e n u " ) 006 001 \r
0112240 ( l e t ( ( i l : e d i
0112260 t i t e m ( 006 002 i l : \ \ f m
0112300 . e d i t - f i n d f i r s t 006
0112320 001 i l : w i n d o w ) ) ) \r
0112340 (
0112360 i l : | i f | i l : e d i t i
0112400 t e m i l : | t h e n | ( 006
0112420 002 i l : f m . e d i t i t e m 006
0112440 001 i l : e d i t i t e m i l
0112460 : w i n d o w i l : c l e a r
0112500 f l g ) ) ) ) ) ) \r \r ( 006 004 i l
0112520 : f m . w h i c h i t e m 006 001 \r
0112540 ( i l : l a m b d a ( i l
0112560 : w i n d o w i l : | P O S o
0112600 r X | i l : y ) 006 006 006 001
0112620
0112640 006 006 ( i l : * i l : | j o w
0112660 | " 1 9 - A p r - 8 6 2 2 :
0112700 5 4 " ) 006 001 \r
0112720 \r 006 006 ( i
0112740 l : * i l : | u s e r | i l
0112760 : | i n t e r f a c e | i l :
0113000 | t o | i l : c h e c k r e g
0113020 i o n . \r 006 001
0113040 006 006 i l : | R e t u r n | i
0113060 l : | t h e | i l : | i t e m
0113100 | i l : | i n | i l : w i n
0113120 d o w i l : | a t | \r 006 001
0113140 006 006 ( i l : | P
0113160 O S o r X , | i l : y ) i l
0113200 : i \ f i l : w i n d o w i
0113220 l : | i s | i l : n i l \ ,
0113240 i l : | u s e | i l : | t h e
0113260 | \r 006 001 006
0113300 006 i l : | w i n d o w | i l :
0113320 | t h e | i l : | c u r s o r
0113340 | i l : | i s | i l : | i n
0113360 , | i l : | a n d | i l : |
0113400 t h e | i l : | c u r s o r |
0113420 \r 006 001 006 006
0113440 i l : | p o s i t i o n | i l
0113460 : | i n | i l : | t h a t |
0113500 i l : | w i n d o w | ) 006 001 \r \r
0113520 ( i l : | i f | ( o r
0113540 ( i l : w i n d o w p i l :
0113560 w i n d o w ) \r
0113600 ( i l : s e t
0113620 q i l : w i n d o w ( i l :
0113640 w h i c h w ) ) ) \r
0113660 i l : | t h e n | \r
0113700 ( c o n d \r
0113720 ( (
0113740 i l : p o s i t i o n p i l :
0113760 | P O S o r X | ) \r
0114000 ( i l : \ \ f
0114020 m . c h e c k r e g i o n i l
0114040 : w i n d o w ( i l : | f e t
0114060 c h | ( i l : p o s i t i o n
0114100 i l : x c o o r d ) \r
0114120
*
0114200 i l : | o f | i l : | P O S
0114220 o r X | ) \r
0114240 ( i l :
0114260 | f e t c h | ( i l : p o s i
0114300 t i o n i l : y c o o r d ) \r
0114320
0114340 i l :
0114360 | o f | i l : | P O S o r X |
0114400 ) ) ) \r
0114420 ( i l : | P O S o r X | (
0114440 i l : \ \ f m . c h e c k r e g
0114460 i o n i l : w i n d o w i l
0114500 : | P O S o r X | i l : y ) )
0114520 \r (
0114540 t ( i l : \ \ f m . c h e c k
0114560 r e g i o n i l : w i n d o w
0114600 ( i l : l a s t m o u s e x
0114620 i l : w i n d o w ) \r
0114640
0114660 ( i l : l a s t m o u s e
0114700 y i l : w i n d o w ) ) ) ) )
0114720 ) ) \r \r ( 006 004 i l : f m . t o p
0114740 g r o u p i d 006 001 \r ( i l :
0114760 l a m b d a ( i l : w i n d o
0115000 w ) 006 006 006 001
0115020
0115040 006 006 ( i l
0115060 : * i l : | j o w | " 1 9 -
0115100 A p r - 8 6 2 2 : 5 4 " ) 006 001
0115120 \r
0115140
*
0115200 006 006
0115220 ( i l : * i l : | g r a b |
0115240 i l : | i d | i l : | o f |
0115260 \r 006 001
0115300
*
0115360 006 006 i l : | t o p | i l : | g
0115400 r o u p | ) 006 001 \r ( i l
0115420 : \ \ f m . d t o p g r o u p i
0115440 d ( i l : w i n d o w p r o p
0115460 ( i l : \ \ f m . i n s u r e
0115500 w i n d o w i l : w i n d o w
0115520 ) \r
0115540
0115560 ' i l : f m . g r o u p s )
0115600 ) ) ) \r ) \r \r \r \r 006 004 ( i l : *
0115620 i l : c r e a t i o n i l :
0115640 o f i l : f r e e m e n u s )
0115660 006 001 \r \r ( i l : d e c l a r e \
0115700 : i l : d o n t c o p y \r (
0115720 i l : d e c l a r e \ : i l :
0115740 e v a l @ c o m p i l e \r \r (
0115760 i l : p u t p r o p s i l : \
0116000 \ f m . i t e m p r o p i l :
0116020 m a c r o ( i l : a r g s (
0116040 i l : * i l : | a c c e s s |
0116060 i l : | m a c r o | i l : |
0116100 t o | i l : f r e e m e n u i
0116120 t e m \r
0116140
*
0116200 i l : | d
0116220 a t a t y p e . | i l : | a r
0116240 g s | ( i l : i t e m i l :
0116260 p r o p \r
0116300
*
0116400 i l : {
0116420 v a l u e } ) \r
0116440
*
0116500 i l
0116520 : | D o e s n t | i l : | f o
0116540 r c e | i l : | a n | i l :
0116560 i n s u r e f m \r
0116600
*
0116660 i l : | o n | i l : | t h e |
0116700 i l : | i t e m , | i l : |
0116720 s o | \r
0116740
*
0117000 i l : | i
0117020 n t e n d e d | i l : | f o r
0117040 | i l : | i n t e r n a l |
0117060 i l : | u s e | \r
0117100
*
0117160 i l : | o n l y . | i l : p r
0117200 o p i l : | m u s t | i l :
0117220 | b e | i l : \ a \r
0117240
*
0117320 i l : | q u o t e d | i l
0117340 : | l i t e r a l . | ) \r
0117360
*
0117420 ( c o n d
0117440 ( ( n u l l ( c d r i l :
0117460 a r g s ) ) \r
0117500
*
0117540 ( i l :
0117560 e r r o r " T o o f e w a
0117600 r g u m e n t s t o \ \ F M
0117620 . I T E M P R O P : " \r
0117640
*
0117720 ( c o n s ' i
0117740 l : f m . i t e m p r o p i l
0117760 : a r g s ) ) ) \r
0120000
*
0120040 ( ( n
0120060 o t ( e q ( c a a d r i l
0120100 : a r g s ) \r
0120120
*
0120200 ' q u o t e ) ) \r
0120220
*
0120300 ( i l : e r r o r \r
0120320
*
0120400 " C A N T U S E \
0120420 \ F M . I T E M P R O P U N L
0120440 E S S P R O P I S Q U O T
0120460 E D " \r
0120500
*
0120560 ) ) \r
0120600
*
0120640 ( ( c d d r i l
0120660 : a r g s ) \r
0120700
*
0120740 ( i l :
0120760 \ \ f m . c p u t i t e m p r o
0121000 p ( c a r i l : a r g s ) \r
0121020
*
0121100 ( c a d
0121120 r i l : a r g s ) \r
0121140
*
0121220 ( c a d d r i l
0121240 : a r g s ) ) ) \r
0121260
*
0121320 ( t
0121340 ( i l : \ \ f m . c g e t i t e
0121360 m p r o p ( c a r i l : a r
0121400 g s ) \r
0121420
*
0121500 ( c a d r i l : a r g s )
0121520 ) ) ) ) ) \r ( i l : p u t p r o
0121540 p s i l : \ \ f m . g r o u p
0121560 p r o p i l : m a c r o \r
0121600 ( i l : a r g s ( i
0121620 l : * i l : | i n t e r n a l
0121640 | i l : | a c c e s s | i l
0121660 : | m a c r o | i l : | t o |
0121700 i l : | g r o u p | i l : |
0121720 p r o p s | i l : | o f | \r
0121740
0121760 i l : | w i n d o w
0122000 . | i l : | d o e s n ' t |
0122020 i l : | c h e c k | i l : | f
0122040 o r | i l : | i l l e g a l |
0122060 i l : | a r g s . | i l : |
0122100 a r g s | \r
0122120 ( i l :
0122140 w i n d o w i l : g r o u p
0122160 i l : p r o p i l : { v a l u
0122200 e } ) ) \r
0122220 ( c o n d ( ( n u l l
0122240 ( c d d r i l : a r g s ) ) \r
0122260
0122300 ( i l : e r r o r "
0122320 T o o f e w a r g u m e n t
0122340 s t o F M . G R O U P P R O
0122360 P : " ( c o n s ' i l : f m
0122400 . g r o u p p r o p i l : a r
0122420 g s ) ) ) \r
0122440 ( ( c d d d
0122460 r i l : a r g s ) \r
0122500
0122520 ` ( l e t ( ( i l : g r o u p
0122540 ( c d r ( i l : f a s s o c
0122560 i l : \ , ( c a d r i l :
0122600 a r g s ) \r
0122620
*
0122660 ( i l : w i n d
0122700 o w p r o p i l : \ , ( c a
0122720 r i l : a r g s ) \r
0122740
*
0123020 ' i l : f m . g r o u p
0123040 s ) ) ) ) ) \r
0123060
0123100 ( p r o g 1 ( i l : l i s
0123120 t g e t i l : g r o u p i l
0123140 : \ , ( c a d d r i l : a r
0123160 g s ) ) \r
0123200
0123220 ( i l : l i s t p
0123240 u t i l : g r o u p i l : \
0123260 , ( c a d d r i l : a r g s
0123300 ) \r
0123320
0123340 i l : \ ,
0123360 \r
0123400
0123420 ( c a d d d
0123440 r i l : a r g s ) ) ) ) ) \r
0123460
0123500 ( t ` ( i l : l i s t g
0123520 e t ( c d r ( i l : f a s s
0123540 o c i l : \ , ( c a d r i
0123560 l : a r g s ) \r
0123600
*
0123640 ( i l : w i n d
0123660 o w p r o p i l : \ , ( c a
0123700 r i l : a r g s ) \r
0123720
*
0124000 ' i l : f m . g r o u p s )
0124020 ) ) \r
0124040
0124060 i l : \ , \r
0124100
0124120 ( c a d d r i l
0124140 : a r g s ) ) ) ) ) ) \r ( i l :
0124160 p u t p r o p s i l : \ \ f m
0124200 . n w a y p r o p i l : m a c
0124220 r o \r ( i l : a r
0124240 g s ( i l : * i l : | i n t
0124260 e r n a l | i l : | a c c e s
0124300 s | i l : | m a c r o | i l
0124320 : | t o | i l : | n w a y |
0124340 i l : | p r o p s . | i l : |
0124360 d o e s n ' t | \r
0124400
0124420 i l : | e r r o r | i l : | c
0124440 h e c k | i l : | a r g s . |
0124460 i l : | a r g s | ( i l : w
0124500 i n d o w i l : c o l l e c t
0124520 i o n i l : p r o p \r
0124540
*
0124640 i l : { v a l u e } )
0124660 ) \r
0124700 ( c o n d ( ( n u l l ( c d
0124720 d r i l : a r g s ) ) \r
0124740
0124760 ( i l : e r r o r " T o o
0125000 f e w a r g u m e n t s t
0125020 o F M . N W A Y P R O P : "
0125040 ( c o n s ' i l : f m . n w a
0125060 y p r o p i l : a r g s ) ) )
0125100 \r
0125120 ( ( c d d d r i l :
0125140 a r g s ) \r
0125160 ` ( l e t
0125200 ( ( i l : n w a y ( c d r
0125220 ( i l : a s s o c i l : \ ,
0125240 ( c a d r i l : a r g s ) \r
0125260
*
0125340 ( i l : w i n d o w p r o p i
0125360 l : \ , ( c a r i l : a r g
0125400 s ) \r
0125420
*
0125460 ' i l : f
0125500 m . n w a y s ) ) ) ) ) \r
0125520
0125540 ( p r o g 1 (
0125560 i l : l i s t g e t i l : n w
0125600 a y i l : \ , ( c a d d r
0125620 i l : a r g s ) ) \r
0125640
0125660 ( i l :
0125700 l i s t p u t i l : n w a y
0125720 i l : \ , ( c a d d r i l :
0125740 a r g s ) \r
0125760
0126000 i
0126020 l : \ , \r
0126040
0126060 ( c
0126100 a d d d r i l : a r g s ) ) )
0126120 ) ) \r
0126140 ( t ` ( i l : l
0126160 i s t g e t ( c d r ( i l :
0126200 a s s o c i l : \ , ( c a d
0126220 r i l : a r g s ) \r
0126240
*
0126300 ( i l : w
0126320 i n d o w p r o p i l : \ ,
0126340 ( c a r i l : a r g s ) \r
0126360
*
0126440 ' i l : f m . n w a y
0126460 s ) ) ) \r
0126500
0126520 i l : \ , \r
0126540
0126560 ( c a d d r
0126600 i l : a r g s ) ) ) ) ) ) \r ( i
0126620 l : p u t p r o p s i l : \ \
0126640 f m . m a k e g r o u p i l :
0126660 m a c r o ( i l : a r g s (
0126700 i l : * i l : | a c c e s s |
0126720 i l : | m a c r o | i l : |
0126740 t h a t | i l : | w i l l |
0126760 \r
0127000
*
0127040 i l : | b u i l
0127060 d | i l : | g r o u p | i l
0127100 : | f r o m | ( i l : i d \r
0127120
*
0127240 i l :
0127260 p r o p s \r
0127300
*
0127420 ) ) \r
0127440
*
0127500 ` ( c o n s i l :
0127520 \ , ( c a r i l : a r g s )
0127540 \r
0127560
*
0127620 i l : \ , \r
0127640
*
0127720 ( c a d r i l : a r g s
0127740 ) ) ) ) \r ( i l : p u t p r o p
0127760 s i l : \ \ f m . t o p g r o
0130000 u p p r o p i l : m a c r o \r
0130020 ( i l : a r g s
0130040 ( i l : * i l : | a c c e s s
0130060 | i l : | m a c r o | i l :
0130100 | t o | i l : | t o p | i l
0130120 : | g r o u p | i l : | o f |
0130140 i l : | w i n d o w . | \r
0130160
0130200 i l : | a r g s | (
0130220 i l : w i n d o w i l : p r o
0130240 p i l : { v a l u e } ) ) \r
0130260 ( c o
0130300 n d ( ( n u l l ( c d r i
0130320 l : a r g s ) ) \r
0130340 ( i
0130360 l : e r r o r " B A D A R G
0130400 S T O \ \ F M . T O P G R O
0130420 U P P R O P : " ( c o n s '
0130440 i l : \ \ f m . t o p g r o u p
0130460 p r o p i l : a r g s ) ) \r
0130500
0130520 ) \r
0130540 ( ( c d d r
0130560 i l : a r g s ) \r
0130600 `
0130620 ( l e t ( ( i l : g r o u p
0130640 ( c d a r ( i l : w i n d o w
0130660 p r o p ( i l : \ \ f m . i n
0130700 s u r e w i n d o w i l : \ ,
0130720 ( c a r i l : a r g s ) ) \r
0130740
*
0131020 ' i l : f m . g r o u p s
0131040 ) ) ) ) \r
0131060
0131100 ( p r o g 1 ( i l : l i s t g
0131120 e t i l : g r o u p i l : \
0131140 , ( c a d r i l : a r g s )
0131160 ) \r
0131200
0131220 ( i l : l i s t p u t
0131240 i l : g r o u p i l : \ , (
0131260 c a d r i l : a r g s ) \r
0131300
*
0131340 i l : \ , \r
0131360
*
0131420 ( c a d d r i l :
0131440 a r g s ) ) ) ) ) \r
0131460 ( t
0131500 ` ( i l : l i s t g e t ( c
0131520 d a r ( i l : w i n d o w p r
0131540 o p ( i l : \ \ f m . i n s u
0131560 r e w i n d o w i l : \ , (
0131600 c a r i l : a r g s ) ) \r
0131620
*
0131660 '
0131700 i l : f m . g r o u p s ) ) \r
0131720
0131740 i l
0131760 : \ , \r
0132000
0132020 ( c a d r i l : a r g s
0132040 ) ) ) ) ) ) \r ( i l : p u t p r
0132060 o p s i l : \ \ f m . d t o p
0132100 g r o u p i d i l : m a c r o
0132120 ( ( i l : g r o u p ) \r
0132140
*
0132200 ( c a a r i l
0132220 : g r o u p ) ) ) \r ( i l : p u
0132240 t p r o p s i l : \ \ f m . d
0132260 g r o u p p r o p i l : m a c
0132300 r o ( i l : a r g s \r
0132320
*
0132360 ( i l : * i l : |
0132400 a c c e s s | i l : | m a c r
0132420 o | i l : | t o | i l : | g
0132440 r o u p s | i l : | p r o p s
0132460 | \r
0132500
*
0132540 i l : | d i r e c t l y .
0132560 | i l : | a r g s | ( i l :
0132600 g r o u p s i l : g r o u p i
0132620 d \r
0132640
*
0132740 i l : p r o p i l : { v
0132760 a l u e } ) ) \r
0133000
*
0133040 ( c o n d ( ( n u l l (
0133060 c d d r i l : a r g s ) ) \r
0133100
*
0133160 ( i l : e r r o r " B A D A
0133200 R G S T O \ \ F M . D G R O
0133220 U P P R O P " \r
0133240
*
0133320 ( c o n s ' i l : \ \ f m . d
0133340 g r o u p p r o p i l : a r g
0133360 s ) ) ) \r
0133400
*
0133440 ( ( c d d d r i l :
0133460 a r g s ) \r
0133500
*
0133540 ` ( l e t ( ( i
0133560 l : g r o u p ( c d r ( i l
0133600 : f a s s o c i l : \ , ( c
0133620 a d r i l : a r g s \r
0133640
*
0133760 ) \r
0134000
*
0134100 i l : \ , \r
0134120
*
0134220 ( c
0134240 a r i l : a r g s ) ) ) ) ) \r
0134260
*
0134340 ( p r o g 1 ( i
0134360 l : l i s t g e t i l : g r o
0134400 u p i l : \ , ( c a d d r \r
0134420
*
0134540 i l : a r g
0134560 s ) ) \r
0134600
*
0134660 ( i l : l i s t p u t i l
0134700 : g r o u p i l : \ , ( c a
0134720 d d r \r
0134740
*
0135040 i l
0135060 : a r g s ) \r
0135100
*
0135160 i l : \
0135200 , \r
0135220
*
0135300 ( c a d d d r i
0135320 l : a r g s ) ) ) ) ) \r
0135340
*
0135400 ( t `
0135420 ( i l : l i s t g e t ( c d r
0135440 ( i l : f a s s o c i l : \
0135460 , ( c a d r i l : a r g s )
0135500 \r
0135520
*
0135600 i l :
0135620 \ , \r
0135640
*
0135720 (
0135740 c a r i l : a r g s ) ) ) \r
0135760
*
0136040 i l : \ , \r
0136060
*
0136140 ( c a d d
0136160 r i l : a r g s ) ) ) ) ) ) \r
0136200 ( i l : p u t p r o p s i l :
0136220 \ \ f m . d t o p g r o u p p r
0136240 o p i l : m a c r o ( i l :
0136260 a r g s ( i l : * i l : | a
0136300 c c e s s | i l : | m a c r o
0136320 | i l : | t o | i l : | d i
0136340 r e c t | \r
0136360
*
0136440 i l : | t o p | i l : | g
0136460 r o u p . | i l : | a r g s |
0136500 \r
0136520
*
0136560 ( i l :
0136600 g r o u p s i l : p r o p i
0136620 l : { v a l u e } ) ) \r
0136640
*
0136700 (
0136720 c o n d ( ( n u l l ( c d r
0136740 i l : a r g s ) ) \r
0136760
*
0137040 ( i l : e r r o r "
0137060 B A D A R G S T O \ \ F M
0137100 . D T O P G R O U P P R O P : "
0137120 \r
0137140
*
0137220 ( c o n s ' i l : \ \ f m
0137240 . d t o p g r o u p p r o p i
0137260 l : a r g s \r
0137300
*
0137360 ) )
0137400 ) \r
0137420
*
0137460 ( ( c d d
0137500 r i l : a r g s ) \r
0137520
*
0137600 ` ( p r o g 1 ( i l
0137620 : l i s t g e t ( c d a r i
0137640 l : \ , \r
0137660
*
0137760 ( c a r i l
0140000 : a r g s ) ) \r
0140020
*
0140120 i l : \ , \r
0140140
*
0140240 ( c a d r i l : a r g s ) ) \r
0140260
*
0140360 ( i l : l i s t p u t ( c
0140400 d a r i l : \ , \r
0140420
*
0140520 ( c
0140540 a r i l : a r g s ) ) \r
0140560
*
0140660 i l : \ , \r
0140700
*
0141000 ( c a d r i l : a r
0141020 g s ) \r
0141040
*
0141120 i l :
0141140 \ , \r
0141160
*
0141240 ( c a d
0141260 d r i l : a r g s ) ) ) ) \r
0141300
*
0141360 ( t ` ( i l :
0141400 l i s t g e t ( c d a r i l
0141420 : \ , ( c a r i l : a r g s
0141440 ) ) \r
0141460
*
0141520