home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rexxio46.zip / DIR.MDE < prev    next >
Text File  |  1999-02-01  |  4KB  |  147 lines
  1. /*Select a Directory*/
  2. Arg Action
  3.     if DlgBox <> "DLGBOX" then signal value Action
  4.     DlgBox=MaidDlgFrame("Select a Directory",6,63,167,145,Action)
  5. if DlgBox = "0" then exit
  6.     COLORDIALOG 192 192 192
  7.     COMBOBOXDROPDOWNLIST 3 15 27 115 "THEDRIVES"
  8.     PUSHBUTTON 98 117 60 12 "NEW" "New Dir"
  9.     PUSHBUTTON 37 117 60 12 "PARENT" "Parent"
  10.     ENTRYLEFT  MARGIN AUTOSCROLL 3 1 155 12 "HOLD"
  11.     LISTBOXHORZSCROLL 4 16 153 98 "THELIST"
  12. exit
  13. MAID_CLOSE:
  14. /* CLOSE DIALOG SECTION */
  15. RESULT=HOLD
  16. exit
  17.  
  18. renew:
  19. CLEARLISTBOX "THELIST"
  20. SEARCHLISTBOX "THEDRIVES" 0 "X" Current
  21. f = dirstemdir(current,"D")
  22. current = D.dir
  23. start=3;
  24. if length(current)=3 then start=1
  25. do i = start to D.dir.0
  26. D.dir.NAME.i=getfullpathname(D.dir.NAME.i)
  27. Addtolistbox "THELIST" "ASCENDING" getfilepart(D.dir.NAME.i)
  28. end
  29. return 0
  30.  
  31. REdrives:
  32. CLEARLISTBOX "THEDRIVES"
  33. f = getdrives("X")
  34. do i = 1 to X.0
  35. Addtolistbox "THEDRIVES" "END" X.i
  36. end
  37. SEARCHLISTBOX "THEDRIVES" 0 "X" Current
  38. SELECTLISTBOXITEM "THEDRIVES" X "SELECT"
  39. return 0
  40. exit
  41. MAID_INIT:
  42. /* INIT DIALOG SECTION */
  43. f=RxFuncAdd('rexxioinit','REXXIO','rexxioinit')
  44. f=rexxioinit()
  45. GLOBALVARIABLE "VER"
  46. VER=getosversion()
  47. VER=left(VER,4)
  48. if VER \= 'OS/2' then do
  49. QUERYDIALOGNAME "DLGNAME"
  50. QUERYTEXT DLGNAME "NEWTEXT"
  51. hwnd=getwindow(NEWTEXT) 
  52. f=setwindowtopmost(hwnd) 
  53. end
  54. /* For OS/2 REXX use 8.Helv, else use Helv.8 */
  55. if VER='OS/2' then MYFONT8="8.Helv"
  56. else MYFONT8="Helv.8"
  57. if VER='OS/2' then MYFONT10="10.Helv"
  58. else MYFONT10="Helv.10"
  59. FONT  "NEW" MYFONT8
  60. FONT  "PARENT" MYFONT8
  61. FONT  "THEDRIVES" MYFONT10
  62. FONT  "HOLD" MYFONT10
  63. FONT  "THELIST" MYFONT10
  64. GLOBALVARIABLE "Mother"
  65. GLOBALVARIABLE "Me"
  66. GLOBALVARIABLE "Father"
  67. GLOBALVARIABLE "Topmostdir"
  68. QUERYDIALOGNAME "Me"
  69. Me=getfilepart(Me) 
  70. PARSE VAR Me Me "." Discard
  71. Father = ""
  72. Mother = getdirpart("Maid.exe") || "Toolbox\"
  73. GLOBALVARIABLE "CURRENT"
  74. f=readallstemlist("KeySrch") 
  75. if KeySrch.DIRECTORYPART1="KEYSRCH.DIRECTORYPART1" then DIRECTORYPART = "C:\"
  76. else DIRECTORYPART = KeySrch.DIRECTORYPART1
  77. current = DIRECTORYPART
  78. hold = current
  79. f = REdrives()
  80. f = renew()
  81. exit
  82. MAID_THEDRIVES:
  83. /*Single Click - COMBOBOX - THEDRIVES*/
  84. READLISTBOXSELECTION "THEDRIVES" "FIRST" "CURRENT"
  85. f = renew()
  86. HOLD = CURRENT
  87. exit
  88. MAID_THEDRIVES_C:
  89. /*Change - COMBOBOX - THEDRIVES*/
  90. exit
  91. MAID_NEW:
  92. /*Single Click - BUTTON - NEW*/
  93. if New = "New Dir" then
  94.     do
  95.     Hold = ""
  96.     ITEMSTYLE "THELIST" "DISABLED"
  97.     ITEMSTYLE "THEDRIVES" "DISABLED"
  98.     ITEMSTYLE "PARENT" "DISABLED"
  99.     NEW = "Make Dir"
  100.     exit
  101.     end
  102.  
  103. if New = "Make Dir" & HOLD = "" then
  104.     do
  105.     ITEMSTYLE "THELIST" "NOTDISABLED"
  106.     ITEMSTYLE "THEDRIVES" "NOTDISABLED"
  107.     ITEMSTYLE "PARENT" "NOTDISABLED"
  108.     NEW = "New Dir"
  109.     HOLD = CURRENT
  110.     exit
  111.     end
  112.  
  113. if New = "Make Dir" then
  114.     do
  115.     ITEMSTYLE "THELIST" "NOTDISABLED"
  116.     ITEMSTYLE "THEDRIVES" "NOTDISABLED"
  117.     ITEMSTYLE "PARENT" "NOTDISABLED"
  118.     NEW = "New Dir"
  119.     f = md(CURRENT || HOLD)
  120.     temp = HOLD
  121.     f = renew()
  122.     SEARCHLISTBOX "THELIST" 0 "X" TEMP
  123.     SELECTLISTBOXITEM "THELIST" X "SELECT"
  124.     HOLD = CURRENT || temp || "\"
  125.     exit
  126.     end
  127. exit
  128. MAID_PARENT:
  129. /*Single Click - BUTTON - BTN1*/
  130. if 3 = length(Current) then exit
  131. CURRENT = CURRENT || ".."
  132. f = renew()
  133. HOLD = CURRENT
  134. exit
  135. MAID_THELIST:
  136. /*Single Click - LISTBOX - THELIST*/
  137. Hold = Current || THELIST.1 || "\"
  138. exit
  139. MAID_THELIST_2:
  140. /*Double Click - LISTBOX - THELIST*/
  141. Current = Current || THELIST.1 || "\"
  142. f = renew()
  143. HOLD = CURRENT
  144. exit
  145. MAID_SHOWVARIABLES: SHOWVARIABLES
  146. exit
  147.