home *** CD-ROM | disk | FTP | other *** search
- .key DEV
- .bra {
- .ket }
-
- CD {DEV}:
-
- Failat 25
-
- :C/WaitingReq ON MP_SHOWCONFIG_{$$} "*nYour actual configuration is:*n=============================*n" CON:0/15/640/180/Configuration/WAIT/CLOSE
-
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "*nLeft column: "
- IF EXISTS ENV:MPEXLeft
- IF $MPEXLeft EQ :Index/Scripts/show_prg_choose
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "Selection Window*n"
- ELSE
- IF $MPEXLeft EQ :Index/Scripts/show_prg_info
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "Show information*n"
- ELSE
- IF $MPEXLeft EQ :Index/Scripts/show_prg_doc
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "Show documentation*n"
- ELSE
- IF $MPEXLeft EQ :Index/Scripts/show_prg_start
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "Start program*n"
- ELSE
- IF $MPEXLeft EQ :Index/Scripts/show_prg_opus
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "DirOpus 5 Window*n"
- ELSE
- IF $MPEXLeft EQ :Index/Scripts/show_prg_filer
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "Filer Window*n"
- ELSE
- IF $MPEXLeft EQ :Index/Scripts/show_prg_copy
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "Copy drawer (1)*n"
- ELSE
- IF $MPEXLeft EQ :Index/Scripts/show_prg_cpreq
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "Copy drawer (2)*n"
- ELSE
- IF $MPEXLeft EQ :Index/Scripts/show_prg_hotlist
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "Insert in hotlist*n"
- ELSE
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "Unknown configuration*n"
- ENDIF
- ENDIF
- ENDIF
- ENDIF
- ENDIF
- ENDIF
- ENDIF
- ENDIF
- ENDIF
- ELSE
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "Selection Window (default)*n"
- ENDIF
-
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "Middle column: "
- IF EXISTS ENV:MPEXMid
- IF $MPEXMid EQ :Index/Scripts/show_prg_choose
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "Selection Window*n"
- ELSE
- IF $MPEXMid EQ :Index/Scripts/show_prg_info
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "Show information*n"
- ELSE
- IF $MPEXMid EQ :Index/Scripts/show_prg_doc
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "Show documentation*n"
- ELSE
- IF $MPEXMid EQ :Index/Scripts/show_prg_start
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "Start program*n"
- ELSE
- IF $MPEXMid EQ :Index/Scripts/show_prg_opus
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "DirOpus 5 Window*n"
- ELSE
- IF $MPEXMid EQ :Index/Scripts/show_prg_filer
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "Filer Window*n"
- ELSE
- IF $MPEXMid EQ :Index/Scripts/show_prg_copy
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "Copy drawer (1)*n"
- ELSE
- IF $MPEXMid EQ :Index/Scripts/show_prg_cpreq
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "Copy drawer (2)*n"
- ELSE
- IF $MPEXMid EQ :Index/Scripts/show_prg_hotlist
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "Insert in hotlist*n"
- ELSE
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "Unknown configuration*n"
- ENDIF
- ENDIF
- ENDIF
- ENDIF
- ENDIF
- ENDIF
- ENDIF
- ENDIF
- ENDIF
- ELSE
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "Start program (default)*n"
- ENDIF
-
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "Right column: "
- IF EXISTS ENV:MPEXRight
- IF $MPEXRight EQ :Index/Scripts/show_prg_choose
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "Selection Window*n"
- ELSE
- IF $MPEXRight EQ :Index/Scripts/show_prg_info
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "Show information*n"
- ELSE
- IF $MPEXRight EQ :Index/Scripts/show_prg_doc
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "Show documentation*n"
- ELSE
- IF $MPEXRight EQ :Index/Scripts/show_prg_start
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "Start program*n"
- ELSE
- IF $MPEXRight EQ :Index/Scripts/show_prg_opus
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "DirOpus 5 Window*n"
- ELSE
- IF $MPEXRight EQ :Index/Scripts/show_prg_filer
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "Filer Window*n"
- ELSE
- IF $MPEXRight EQ :Index/Scripts/show_prg_copy
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "Copy drawer (1)*n"
- ELSE
- IF $MPEXRight EQ :Index/Scripts/show_prg_cpreq
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "Copy drawer (2)*n"
- ELSE
- IF $MPEXRight EQ :Index/Scripts/show_prg_hotlist
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "Insert in hotlist*n"
- ELSE
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "Unknown configuration*n"
- ENDIF
- ENDIF
- ENDIF
- ENDIF
- ENDIF
- ENDIF
- ENDIF
- ENDIF
- ENDIF
- ELSE
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "Show documentation (default)*n"
- ENDIF
-
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "*n"
-
- IF $MPQUIET EQ "TRUE"
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "- show configuration only on request*n"
- ELSE
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "- show configuration after every change*n"
- ENDIF
-
- IF $MPUSEMETATOOL EQ "MPUSEMETATOOL"
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "- drawers copied require MetaTool*n"
- ELSE
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "- drawers copied don't require MetaTool*n"
- ENDIF
-
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "*nDefault destination directory: "
-
- IF EXISTS ENV:MPDEFAULTDEST
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} $MPDEFAULTDEST
- ELSE
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "<unset>"
- ENDIF
-
- :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "*n*n*nI'm ready, please press CTRL+\ or use the closegadget*n"
- :C/WaitingReq OFF MP_SHOWCONFIG_{$$}
-