home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / slfinsta.zip / scripts / page3.cmd < prev    next >
OS/2 REXX Batch file  |  2000-03-26  |  5KB  |  173 lines
  1. /* $Id: page3.cmd,v 1.1 2000/03/27 04:53:13 ktk Exp $ */
  2.  
  3. /* REXX script to create third installer dialog page. */
  4.  
  5. /* Some System Defines */
  6. BOXHORZ = 0
  7. BOXVERT = 1
  8. HWND_DESKTOP = 1
  9. HWND_OBJECT = 2
  10. FCF_TITLEBAR =     x2d("1")
  11. FCF_SYSMENU = x2d("2")
  12. FCF_MENU = x2d("4")
  13. FCF_SIZEBORDER = x2d("8")
  14. FCF_MINBUTTON = x2d("10")
  15. FCF_MAXBUTTON = x2d("20")
  16. /*FCF_MINMAX = FCF_MINBUTTON | FCF_MAXBUTTON*/
  17. FCF_VERTSCROLL = x2d("40")
  18. FCF_HORZSCROLL = x2d("80")
  19. FCF_DLGBORDER = x2d("100")
  20. FCF_BORDER = x2d("200")
  21. FCF_SHELLPOSITION = x2d("400")
  22. FCF_TASKLIST = x2d("800")
  23. FCF_NOBYTEALIGN = x2d("1000")
  24. FCF_NOMOVEWITHOWNER = x2d("2000")
  25. FCF_ICON = x2d("4000")
  26. FCF_ACCELTABLE = x2d("8000")
  27. FCF_SYSMODAL = x2d("10000")
  28. FCF_SCREENALIGN = x2d("20000")
  29. FCF_MOUSEALIGN = x2d("40000")
  30. FCF_PALETTE_NORMAL = x2d("80000")
  31. FCF_PALETTE_HELP = x2d("100000")
  32. FCF_PALETTE_POPUPODD = x2d("200000")
  33. FCF_PALETTE_POPUPEVEN = x2d("400000")
  34. FCF_HIDEBUTTON = x2d("1000000")
  35. FCF_HIDEMAX = x2d("1000020")
  36. /*FCF_AUTOICON = x2d("40000000")*/
  37. FCF_STANDARD = x2d("cc3f")
  38. DT_LEFT = x2d("0")
  39. DT_QUERYEXTENT = x2d("2")
  40. DT_UNDERSCORE = x2d("10")
  41. DT_STRIKEOUT = x2d("20")
  42. DT_TEXTATTRS = x2d("40")
  43. DT_EXTERNALLEADING = x2d("80")
  44. DT_CENTER = x2d("100")
  45. DT_RIGHT = x2d("200")
  46. DT_TOP = x2d("0")
  47. DT_VCENTER = x2d("400")
  48. DT_BOTTOM = x2d("800")
  49. DT_HALFTONE = x2d("1000")
  50. DT_MNEMONIC = x2d("2000")
  51. DT_WORDBREAK = x2d("4000")
  52. DT_ERASERECT = x2d("8000")
  53. CLR_ERROR = -255
  54. CLR_NOINDEX = -254
  55. CLR_FALSE = -5
  56. CLR_TRUE = -4
  57. CLR_DEFAULT = -3
  58. CLR_WHITE = -2
  59. CLR_BLACK = -1
  60. CLR_BACKGROUND = 0
  61. CLR_BLUE = 1
  62. CLR_RED    = 2
  63. CLR_PINK = 3
  64. CLR_GREEN =4
  65. CLR_CYAN = 5
  66. CLR_YELLOW = 6
  67. CLR_NEUTRAL = 7
  68. CLR_DARKGRAY = 8
  69. CLR_DARKBLUE = 9
  70. CLR_DARKRED = 10
  71. CLR_DARKPINK = 11
  72. CLR_DARKGREEN = 12
  73. CLR_DARKCYAN = 13
  74. CLR_BROWN = 14
  75. CLR_PALEGRAY = 15
  76. TRUE = 1
  77. FALSE = 0
  78.  
  79. /*flStyle = FCF_SYSMENU | FCF_TITLEBAR | FCF_SHELLPOSITION | FCF_TASKLIST | FCF_DLGBORDER*/
  80.         
  81. call inst_updateentry
  82.  
  83. if arg(1) > 0 then
  84.         call dw_window_destroy arg(1)
  85.  
  86. mainwindow = dw_window_new(HWND_DESKTOP, "Installing PMBitchX 1.0c16", 3331)
  87.  
  88. /* This number must corespond to a resource ID in the bound resources */
  89. call dw_window_set_icon mainwindow, 2000
  90.  
  91. bigbox = dw_box_new(BOXVERT, 10)
  92.  
  93. call dw_box_pack_start mainwindow, bigbox, 0, 0, TRUE, 0
  94.  
  95. mainbox = dw_box_new(BOXHORZ, 10)
  96.  
  97. call dw_box_pack_start bigbox, mainbox, 0, 0, TRUE, 0
  98.  
  99. logo = dw_bitmap_new(1001)
  100.  
  101. /* This number must corespond to a resource ID in the bound resources */
  102. call dw_window_set_bitmap logo, 2001
  103.  
  104. call dw_box_pack_start mainbox, logo, 100, 275, FALSE, 5
  105.  
  106. custombox = dw_box_new(BOXVERT, 10)
  107.  
  108. call dw_box_pack_start mainbox, custombox, 0, 0, TRUE, 5
  109.  
  110. stext = dw_text_new("Ready to begin installation.", 0)
  111.  
  112. call dw_window_set_style stext, DT_VCENTER, DT_VCENTER
  113.  
  114. call dw_box_pack_start custombox, stext, 300, 15, TRUE, 10
  115.  
  116. desctext = dw_text_new("Thanks for trying PMBitchX.  Feel free to contact me at dbsoft@technologist.com with comments, questions or bug reports.",0)
  117.  
  118. call dw_window_set_style desctext, DT_WORDBREAK, DT_WORDBREAK
  119.  
  120. call dw_box_pack_start custombox, desctext, 300, 200, TRUE, 10
  121.  
  122. buttonbox = dw_box_new(BOXHORZ, 5)
  123.  
  124. call dw_box_pack_start bigbox, buttonbox, 0, 0, TRUE, 0
  125.  
  126. exitbutton = dw_button_new("Exit Installer", 1003)
  127.  
  128. call inst_setbutton 1003, "exit"
  129.  
  130. call dw_box_pack_start buttonbox, exitbutton, 100, 30, TRUE, 0
  131.  
  132. blanktext = dw_text_new("", 0)
  133.  
  134. call dw_box_pack_start buttonbox, blanktext, 150, 30, TRUE, 0
  135.  
  136. backbutton = dw_button_new("<< Back", 1002)
  137.  
  138. call dw_box_pack_start buttonbox, backbutton, 60, 30, TRUE, 0
  139.  
  140. call inst_setbutton 1002, "page2.cmd"
  141.  
  142. nextbutton = dw_button_new("Start", 1001)
  143.  
  144. call inst_setbutton 1001, "page4.cmd"
  145.  
  146. call dw_box_pack_start buttonbox, nextbutton, 60, 30, TRUE, 0
  147.  
  148. /* Set some nice fonts and colors */
  149. call dw_window_set_color bigbox, CLR_PALEGRAY, CLR_PALEGRAY
  150. call dw_window_set_color mainbox, CLR_PALEGRAY, CLR_PALEGRAY
  151. call dw_window_set_color custombox, CLR_PALEGRAY, CLR_PALEGRAY
  152. call dw_window_set_color lbbox, CLR_PALEGRAY, CLR_PALEGRAY
  153. call dw_window_set_color buttonbox, CLR_PALEGRAY, CLR_PALEGRAY
  154. call dw_window_set_color directionbox, CLR_PALEGRAY, CLR_PALEGRAY
  155. call dw_window_set_font stext, "9.WarpSans"
  156. call dw_window_set_font desctext, "9.WarpSans"
  157. call dw_window_set_color stext, CLR_BLACK, CLR_PALEGRAY
  158. call dw_window_set_color desctext, CLR_BLACK, CLR_PALEGRAY
  159. call dw_window_set_color blanktext, CLR_BLACK, CLR_PALEGRAY
  160. call dw_window_set_font listbox, "9.WarpSans"
  161. call dw_window_set_font nextbutton, "9.WarpSans"
  162. call dw_window_set_font backbutton, "9.WarpSans"
  163. call dw_window_set_font exitbutton, "9.WarpSans"
  164.  
  165. newx = (dw_screen_width()-500)/2
  166. newy = (dw_screen_height()-400)/2
  167.  
  168. call dw_window_set_pos_size mainwindow, newx, newy, 500, 400
  169.  
  170. call dw_window_show mainwindow
  171.  
  172. call inst_setwindow mainwindow
  173.