home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / slfinsta.zip / scripts / page1.cmd < prev    next >
OS/2 REXX Batch file  |  2000-03-26  |  5KB  |  181 lines
  1. /* $Id: page1.cmd,v 1.1 2000/03/27 04:53:12 ktk Exp $ */
  2.  
  3. /* REXX script to create first 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("00000000")
  39. DT_QUERYEXTENT = x2d("00000002")
  40. DT_UNDERSCORE = x2d("00000010")
  41. DT_STRIKEOUT = x2d("00000020")
  42. DT_TEXTATTRS = x2d("00000040")
  43. DT_EXTERNALLEADING = x2d("00000080")
  44. DT_CENTER = x2d("00000100")
  45. DT_RIGHT = x2d("00000200")
  46. DT_TOP = x2d("00000000")
  47. DT_VCENTER = x2d("00000400")
  48. DT_BOTTOM = x2d("00000800")
  49. DT_HALFTONE = x2d("00001000")
  50. DT_MNEMONIC = x2d("00002000")
  51. DT_WORDBREAK = x2d("00004000")
  52. DT_ERASERECT = x2d("00008000")
  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. if arg(1) > 0 then
  82.         call dw_window_destroy arg(1)
  83.  
  84. mainwindow = dw_window_new(HWND_DESKTOP, "Installing PMBitchX 1.0c16", 3331)
  85.  
  86. /* This number must corespond to a resource ID in the bound resources */
  87. call dw_window_set_icon mainwindow, 2000
  88.  
  89. bigbox = dw_box_new(BOXVERT, 10)
  90.  
  91. call dw_box_pack_start mainwindow, bigbox, 0, 0, TRUE, 0
  92.  
  93. mainbox = dw_box_new(BOXHORZ, 10)
  94.  
  95. call dw_box_pack_start bigbox, mainbox, 0, 0, TRUE, 0
  96.  
  97. logo = dw_bitmap_new(1001)
  98.  
  99. /* This number must corespond to a resource ID in the bound resources */
  100. call dw_window_set_bitmap logo, 2001
  101.  
  102. call dw_box_pack_start mainbox, logo, 100, 275, FALSE, 5
  103.  
  104. custombox = dw_box_new(BOXVERT, 10)
  105.  
  106. call dw_box_pack_start mainbox, custombox, 0, 0, TRUE, 5
  107.  
  108. stext = dw_text_new("Welcome to PMBitchX 1.0c16", 0)
  109.  
  110. call dw_window_set_style stext, DT_VCENTER, DT_VCENTER
  111.  
  112. call dw_box_pack_start custombox, stext, 300, 15, TRUE, 5
  113.  
  114. mle = dw_mle_new(100)
  115.  
  116. call inst_mleview "license.txt", mle
  117.  
  118. call dw_box_pack_start custombox, mle, 300, 200, TRUE, 6
  119.  
  120. checkbox = dw_checkbox_new("I accept the terms of this license.", 2020)
  121.  
  122. call dw_box_pack_start custombox, checkbox, 300, 15, TRUE, 6
  123.  
  124. buttonbox = dw_box_new(BOXHORZ, 5)
  125.  
  126. call dw_box_pack_start bigbox, buttonbox, 0, 0, TRUE, 0
  127.  
  128. exitbutton = dw_button_new("Exit Installer", 1003)
  129.  
  130. call inst_setbutton 1003, "exit"
  131.  
  132. call dw_box_pack_start buttonbox, exitbutton, 100, 30, TRUE, 0
  133.  
  134. blanktext = dw_text_new("", 0)
  135.  
  136. call dw_box_pack_start buttonbox, blanktext, 150, 30, TRUE, 0
  137.  
  138. backbutton = dw_button_new("<< Back", 1002)
  139.  
  140. dw_window_disable(backbutton)
  141.  
  142. call dw_box_pack_start buttonbox, backbutton, 60, 30, TRUE, 0
  143.  
  144. nextbutton = dw_button_new("Next >>", 1001)
  145.  
  146. call inst_setbutton 1001, "page2.cmd"
  147.  
  148. call dw_box_pack_start buttonbox, nextbutton, 60, 30, TRUE, 0
  149.  
  150. call inst_savevar "backbutton", backbutton
  151. call inst_savevar "nextbutton", nextbutton
  152. call inst_savevar "exitbutton", exitbutton
  153. call inst_savevar "checkbox", checkbox
  154.  
  155. /* Set some nice fonts and colors */
  156. call dw_window_set_color bigbox, CLR_PALEGRAY, CLR_PALEGRAY
  157. call dw_window_set_color mainbox, CLR_PALEGRAY, CLR_PALEGRAY
  158. call dw_window_set_color custombox, CLR_PALEGRAY, CLR_PALEGRAY
  159. call dw_window_set_color lbbox, CLR_PALEGRAY, CLR_PALEGRAY
  160. call dw_window_set_color buttonbox, CLR_PALEGRAY, CLR_PALEGRAY
  161. call dw_window_set_color directionbox, CLR_PALEGRAY, CLR_PALEGRAY
  162. call dw_window_set_font checkbox, "9.WarpSans"
  163. call dw_window_set_font stext, "9.WarpSans"
  164. call dw_window_set_font mle, "9.WarpSans"
  165. call dw_window_set_color checkbox, CLR_BLACK, CLR_PALEGRAY
  166. call dw_window_set_color stext, CLR_BLACK, CLR_PALEGRAY
  167. call dw_window_set_color blanktext, CLR_BLACK, CLR_PALEGRAY
  168. call dw_window_set_font listbox, "9.WarpSans"
  169. call dw_window_set_font nextbutton, "9.WarpSans"
  170. call dw_window_set_font backbutton, "9.WarpSans"
  171. call dw_window_set_font exitbutton, "9.WarpSans"
  172.  
  173. newx = (dw_screen_width()-500)/2
  174. newy = (dw_screen_height()-400)/2
  175.  
  176. call dw_window_set_pos_size mainwindow, newx, newy, 500, 400
  177.  
  178. call dw_window_show mainwindow
  179.  
  180. call inst_setwindow mainwindow
  181.