home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / w_genapp_about.srw < prev    next >
Encoding:
Text File  |  1997-09-30  |  1.9 KB  |  94 lines
  1. $PBExportHeader$w_genapp_about.srw
  2. $PBExportComments$Generated about window
  3. forward
  4. global type w_genapp_about from window
  5. end type
  6. type st_1 from statictext within w_genapp_about
  7. end type
  8. type cb_ok from commandbutton within w_genapp_about
  9. end type
  10. end forward
  11.  
  12. shared variables
  13. // User defined attributes
  14.  
  15. // Non modeled user defined attributes
  16.  
  17. end variables
  18.  
  19. global type w_genapp_about from window
  20. WindowType WindowType = response!
  21. int X = 874
  22. int Y = 429
  23. int Width = 1166
  24. int Height = 569
  25. boolean TitleBar = true
  26. string Title = "About"
  27. boolean ControlMenu = true
  28. st_1 st_1
  29. cb_ok cb_ok
  30. end type
  31. global w_genapp_about w_genapp_about
  32.  
  33. type variables
  34. // User defined attributes
  35.  
  36. // Association attributes
  37.  
  38. // Non modeled user defined attributes
  39.  
  40. // Control to class mappings
  41. //    w_genapp_about --> w_genapp_about
  42. //    st_1 --> statictext
  43. //    cb_ok --> cb_item
  44. end variables
  45.  
  46. on w_genapp_about.create
  47. this.st_1=create st_1
  48. this.cb_ok=create cb_ok
  49. this.Control[]={ this.st_1,&
  50. this.cb_ok}
  51. end on
  52.  
  53. on w_genapp_about.destroy
  54. destroy(this.st_1)
  55. destroy(this.cb_ok)
  56. end on
  57.  
  58. type st_1 from statictext within w_genapp_about
  59. int X = 183
  60. int Y = 105
  61. int Width = 787
  62. int Height = 97
  63. boolean Enabled = false
  64. string Text = "<Your text here>"
  65. Alignment Alignment = Center!
  66. boolean FocusRectangle = false
  67. long TextColor = 16711680
  68. int TextSize = -10
  69. int Weight = 700
  70. string FaceName = "Arial"
  71. FontFamily FontFamily = Swiss!
  72. FontPitch FontPitch = Variable!
  73. end type
  74.  
  75. type cb_ok from commandbutton within w_genapp_about
  76. int X = 430
  77. int Y = 277
  78. int Width = 279
  79. int Height = 109
  80. int TabOrder = 1
  81. string Text = "OK"
  82. boolean Default = true
  83. int TextSize = -10
  84. int Weight = 700
  85. string FaceName = "MS Sans Serif"
  86. FontFamily FontFamily = Swiss!
  87. FontPitch FontPitch = Variable!
  88. end type
  89.  
  90. event clicked;/* Close "About" window */
  91. Close (Parent)
  92. end event
  93.  
  94.