home *** CD-ROM | disk | FTP | other *** search
/ IBM CD Showcase / OS2_CD_ROM.iso / smce0001 / stwriter / demo / dialog.in_ / DIALOG.INC
Encoding:
Text File  |  1993-05-25  |  4.3 KB  |  149 lines
  1. REM $LIBRARY: 'SBDIALOG'
  2.  
  3. CONST False = 0, True = NOT FALSE, TriState = 1
  4. CONST IsAuto = -32767
  5.  
  6. CLASS DialogBase
  7.    Internal AS STRING*4
  8. PROTECTED
  9.    SUB Get EXTERN()
  10.    SUB Set EXTERN()
  11. PUBLIC
  12.    X0    AS INTEGER
  13.    Y0    AS INTEGER
  14.    NX    AS INTEGER
  15.    NY    AS INTEGER
  16.    SUB      SetText EXTERN (T$)
  17.    FUNCTION GetText EXTERN () AS STRING
  18. END CLASS
  19.  
  20. CLASS Control PUBLIC DialogBase
  21. PUBLIC
  22.    Value   AS INTEGER
  23.    Visible AS INTEGER
  24.    Enabled AS INTEGER
  25. END CLASS
  26.  
  27. CONST HasBorder = 1
  28.  
  29. CLASS Dialog PUBLIC DialogBase
  30. END CLASS
  31.  
  32. CLASS FixedText PUBLIC Control
  33. END CLASS
  34.  
  35. CONST IsLeft = 2, IsCenter = 4, IsRight = 8
  36.  
  37. CLASS PushButton PUBLIC Control
  38. END CLASS
  39.  
  40. CONST IsDefault = 2, IsCancel = 4
  41.  
  42. CLASS SymbolButton PUBLIC PushButton
  43. END CLASS
  44.  
  45. CONST UpArrow = 1, DownArrow = 2, LeftArrow = 3, RightArrow = 4
  46.  
  47. CLASS CheckBox PUBLIC Control
  48. END CLASS
  49.  
  50. CONST IsTriState = 8
  51.  
  52. CLASS RadioButton PUBLIC Control
  53. END CLASS
  54.  
  55. CLASS EditField PUBLIC Control
  56. END CLASS
  57.  
  58. CONST IsMultiLine = 16, HasVScroll = 32, HasHScroll = 64
  59.  
  60. CLASS GroupBox PUBLIC Control
  61. END CLASS
  62.  
  63. CLASS ListBox PUBLIC Control
  64. PUBLIC
  65.    Count AS INTEGER
  66.    SUB      Add EXTERN (T$, OPTIONAL I%)
  67.    SUB      Remove EXTERN (OPTIONAL I%)
  68.    FUNCTION GetIndex EXTERN (T$) AS INTEGER
  69.    FUNCTION GetItem  EXTERN (OPTIONAL I%) AS STRING
  70. END CLASS
  71.  
  72. CLASS ComboBox PUBLIC EditField
  73. PUBLIC
  74.    Count AS INTEGER
  75.    SUB      Add EXTERN (T$, OPTIONAL I%)
  76.    SUB      Remove EXTERN (OPTIONAL I%)
  77.    FUNCTION GetIndex EXTERN (T$) AS INTEGER
  78.    FUNCTION GetItem  EXTERN (OPTIONAL I%) AS STRING
  79. END CLASS
  80.  
  81. CONST IsSorted   = 2
  82. CONST IsDropDown = 4
  83.  
  84. CLASS ScrollBar PUBLIC Control
  85. PUBLIC
  86.    Minimum  AS INTEGER
  87.    Maximum  AS INTEGER
  88.    SmallInc AS INTEGER
  89.    LargeInc AS INTEGER
  90. END CLASS
  91.  
  92. CONST IsHorizontal = 0, IsVertical = 2, IsSynchronous = 4
  93.  
  94. CLASS Bitmap PUBLIC Control
  95. PUBLIC
  96.    SUB Load EXTERN (FILENAME$)
  97. END CLASS
  98.  
  99. CLASS Icon PUBLIC Control
  100. PUBLIC
  101.    SUB Load EXTERN (FILENAME$)
  102. END CLASS
  103.  
  104. CONST DefaultIcon = "#0001"
  105. CONST InfoIcon    = "#0002"
  106. CONST WarnIcon    = "#0003"
  107. CONST ErrorIcon   = "#0004"
  108. CONST QueryIcon   = "#0005"
  109.  
  110. CLASS PopupMenu PUBLIC Control
  111. PUBLIC
  112.    SUB Check  EXTERN (ID%, MODE%)
  113.    SUB Enable EXTERN (ID%, MODE%)
  114.    FUNCTION IsChecked EXTERN (ID%) AS INTEGER
  115.    FUNCTION IsEnabled EXTERN (ID%) AS INTEGER
  116. END CLASS
  117.  
  118. CONST HasCheck   = 64
  119. CONST IsDisabled = 128
  120.  
  121. DECLARE ONEVENT CLICK  EXTERN (P AS Control, LABEL%)
  122. DECLARE ONEVENT CHANGE EXTERN (P AS Control, LABEL%)
  123. DECLARE ONEVENT KEY    EXTERN (P AS Control, LABEL%)
  124. DECLARE ONEVENT ENTER  EXTERN (P AS Control, LABEL%)
  125. DECLARE ONEVENT LEAVE  EXTERN (P AS Control, LABEL%)
  126.  
  127. DECLARE SUB FIXEDTEXT   EXTERN (V AS FixedText  , X0%, Y0%, NX%, NY%, OPTIONAL TEXT$, FLAGS%)
  128. DECLARE SUB PUSHBUTTON  EXTERN (V AS PushButton , X0%, Y0%, NX%, NY%, OPTIONAL TEXT$, FLAGS%)
  129. DECLARE SUB SYMBOLBUTTON EXTERN(V AS SymbolButton,X0%, Y0%, NX%, NY%, OPTIONAL TEXT$, FLAGS%)
  130. DECLARE SUB CHECKBOX    EXTERN (V AS CheckBox   , X0%, Y0%, NX%, NY%, OPTIONAL TEXT$, FLAGS%)
  131. DECLARE SUB RADIOBUTTON EXTERN (V AS RadioButton, X0%, Y0%, NX%, NY%, OPTIONAL TEXT$, FLAGS%)
  132. DECLARE SUB EDITFIELD   EXTERN (V AS EditField  , X0%, Y0%, NX%, NY%, OPTIONAL TEXT$, FLAGS%)
  133. DECLARE SUB LISTBOX     EXTERN (V AS ListBox    , X0%, Y0%, NX%, NY%, OPTIONAL FLAGS%)
  134. DECLARE SUB COMBOBOX    EXTERN (V AS ComboBox   , X0%, Y0%, NX%, NY%, OPTIONAL FLAGS%)
  135. DECLARE SUB SCROLLBAR   EXTERN (V AS ScrollBar  , X0%, Y0%, NX%, NY%, OPTIONAL FLAGS%)
  136. DECLARE SUB ICON        EXTERN (V AS Icon       , X0%, Y0%, FILE$, OPTIONAL FLAGS%)
  137. DECLARE SUB BITMAP      EXTERN (V AS Bitmap     , X0%, Y0%, FILE$, OPTIONAL FLAGS%)
  138. DECLARE SUB DIALOG      EXTERN (V AS Dialog     , X0%, Y0%, NX%, NY%, OPTIONAL TEXT$)
  139. DECLARE SUB STARTDIALOG EXTERN ()
  140. DECLARE SUB ENDDIALOG   EXTERN ()
  141. DECLARE SUB GROUPBOX    EXTERN (V AS GroupBox   , X0%, Y0%, NX%, NY%, OPTIONAL TEXT$)
  142. DECLARE SUB ENDGROUP    EXTERN ()
  143. DECLARE SUB POPUPMENU   EXTERN (V AS PopupMenu,  X0%, Y0%, NX%, NY%, OPTIONAL TEXT$)
  144. DECLARE SUB SUBMENU     EXTERN (TEXT$, ID%, OPTIONAL FLAGS%)
  145. DECLARE SUB MENUITEM    EXTERN (TEXT$, ID%, OPTIONAL FLAGS%)
  146. DECLARE SUB BITMAPITEM  EXTERN (TEXT$, ID%, OPTIONAL FLAGS%)
  147. DECLARE SUB SEPARATOR   EXTERN ()
  148. DECLARE SUB ENDMENU     EXTERN ()
  149.