home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Index / Scripts / showconfig_english < prev    next >
Encoding:
AmigaDOS Script File  |  1995-10-13  |  5.4 KB  |  164 lines
  1. .key DEV
  2. .bra {
  3. .ket }
  4.  
  5. CD {DEV}:
  6.  
  7. Failat 25
  8.  
  9. :C/WaitingReq ON MP_SHOWCONFIG_{$$}  "*nYour actual configuration is:*n=============================*n" CON:0/15/640/180/Configuration/WAIT/CLOSE
  10.  
  11. :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "*nLeft column:   "
  12. IF EXISTS ENV:MPEXLeft
  13.     IF $MPEXLeft EQ :Index/Scripts/show_prg_choose
  14.         :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "Selection Window*n"
  15.     ELSE
  16.         IF $MPEXLeft EQ :Index/Scripts/show_prg_info
  17.             :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "Show information*n"
  18.         ELSE
  19.             IF $MPEXLeft EQ :Index/Scripts/show_prg_doc
  20.                 :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "Show documentation*n"
  21.             ELSE
  22.                 IF $MPEXLeft EQ :Index/Scripts/show_prg_start
  23.                     :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "Start program*n"
  24.                 ELSE
  25.                     IF $MPEXLeft EQ :Index/Scripts/show_prg_opus
  26.                         :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "DirOpus 5 Window*n"
  27.                     ELSE
  28.                         IF $MPEXLeft EQ :Index/Scripts/show_prg_filer
  29.                             :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "Filer Window*n"
  30.                         ELSE
  31.                             IF $MPEXLeft EQ :Index/Scripts/show_prg_copy
  32.                                 :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "Copy drawer (1)*n"
  33.                             ELSE
  34.                                 IF $MPEXLeft EQ :Index/Scripts/show_prg_cpreq
  35.                                     :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "Copy drawer (2)*n"
  36.                                 ELSE
  37.                                     IF $MPEXLeft EQ :Index/Scripts/show_prg_hotlist
  38.                                         :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "Insert in hotlist*n"
  39.                                     ELSE
  40.                                         :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "Unknown configuration*n"
  41.                                     ENDIF
  42.                                 ENDIF
  43.                             ENDIF
  44.                         ENDIF
  45.                     ENDIF
  46.                 ENDIF
  47.             ENDIF
  48.         ENDIF
  49.     ENDIF
  50. ELSE
  51.     :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "Selection Window        (default)*n"
  52. ENDIF
  53.  
  54. :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "Middle column: "
  55. IF EXISTS ENV:MPEXMid
  56.     IF $MPEXMid EQ :Index/Scripts/show_prg_choose
  57.         :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "Selection Window*n"
  58.     ELSE
  59.         IF $MPEXMid EQ :Index/Scripts/show_prg_info
  60.             :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "Show information*n"
  61.         ELSE
  62.             IF $MPEXMid EQ :Index/Scripts/show_prg_doc
  63.                 :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "Show documentation*n"
  64.             ELSE
  65.                 IF $MPEXMid EQ :Index/Scripts/show_prg_start
  66.                     :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "Start program*n"
  67.                 ELSE
  68.                     IF $MPEXMid EQ :Index/Scripts/show_prg_opus
  69.                         :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "DirOpus 5 Window*n"
  70.                     ELSE
  71.                         IF $MPEXMid EQ :Index/Scripts/show_prg_filer
  72.                             :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "Filer Window*n"
  73.                         ELSE
  74.                             IF $MPEXMid EQ :Index/Scripts/show_prg_copy
  75.                                 :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "Copy drawer (1)*n"
  76.                             ELSE
  77.                                 IF $MPEXMid EQ :Index/Scripts/show_prg_cpreq
  78.                                     :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "Copy drawer (2)*n"
  79.                                 ELSE
  80.                                     IF $MPEXMid EQ :Index/Scripts/show_prg_hotlist
  81.                                         :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "Insert in hotlist*n"
  82.                                     ELSE
  83.                                         :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "Unknown configuration*n"
  84.                                     ENDIF
  85.                                 ENDIF
  86.                             ENDIF
  87.                         ENDIF
  88.                     ENDIF
  89.                 ENDIF
  90.             ENDIF
  91.         ENDIF
  92.     ENDIF
  93. ELSE
  94.     :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "Start program           (default)*n"
  95. ENDIF
  96.  
  97. :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "Right column:  "
  98. IF EXISTS ENV:MPEXRight
  99.     IF $MPEXRight EQ :Index/Scripts/show_prg_choose
  100.         :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "Selection Window*n"
  101.     ELSE
  102.         IF $MPEXRight EQ :Index/Scripts/show_prg_info
  103.             :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "Show information*n"
  104.         ELSE
  105.             IF $MPEXRight EQ :Index/Scripts/show_prg_doc
  106.                 :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "Show documentation*n"
  107.             ELSE
  108.                 IF $MPEXRight EQ :Index/Scripts/show_prg_start
  109.                     :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "Start program*n"
  110.                 ELSE
  111.                     IF $MPEXRight EQ :Index/Scripts/show_prg_opus
  112.                         :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "DirOpus 5 Window*n"
  113.                     ELSE
  114.                         IF $MPEXRight EQ :Index/Scripts/show_prg_filer
  115.                             :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "Filer Window*n"
  116.                         ELSE
  117.                             IF $MPEXRight EQ :Index/Scripts/show_prg_copy
  118.                                 :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "Copy drawer (1)*n"
  119.                             ELSE
  120.                                 IF $MPEXRight EQ :Index/Scripts/show_prg_cpreq
  121.                                     :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "Copy drawer (2)*n"
  122.                                 ELSE
  123.                                     IF $MPEXRight EQ :Index/Scripts/show_prg_hotlist
  124.                                         :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "Insert in hotlist*n"
  125.                                     ELSE
  126.                                         :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "Unknown configuration*n"
  127.                                     ENDIF
  128.                                 ENDIF
  129.                             ENDIF
  130.                         ENDIF
  131.                     ENDIF
  132.                 ENDIF
  133.             ENDIF
  134.         ENDIF
  135.     ENDIF
  136. ELSE
  137.     :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "Show documentation      (default)*n"
  138. ENDIF
  139.  
  140. :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "*n"
  141.  
  142. IF $MPQUIET EQ "TRUE"
  143.     :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "- show configuration only on request*n"
  144. ELSE
  145.     :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "- show configuration after every change*n"
  146. ENDIF
  147.  
  148. IF $MPUSEMETATOOL EQ "MPUSEMETATOOL"
  149.     :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "- drawers copied require MetaTool*n"
  150. ELSE
  151.     :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "- drawers copied don't require MetaTool*n"
  152. ENDIF
  153.  
  154. :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "*nDefault destination directory: "
  155.  
  156. IF EXISTS ENV:MPDEFAULTDEST
  157.     :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  $MPDEFAULTDEST
  158. ELSE
  159.     :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$}  "<unset>"
  160. ENDIF
  161.  
  162. :C/WaitingReq UPDATE MP_SHOWCONFIG_{$$} "*n*n*nI'm ready, please press CTRL+\ or use the closegadget*n"
  163. :C/WaitingReq OFF MP_SHOWCONFIG_{$$}
  164.