home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / S12780.ZIP / WINDOW.BI < prev   
Text File  |  1990-06-24  |  5KB  |  141 lines
  1. ' ===========================================================================
  2. '
  3. ' WINDOW.BI
  4. '
  5. '  Copyright (C) 1989 Microsoft Corporation, All Rights Reserved
  6. '
  7. ' ===========================================================================
  8.  
  9. ' ===========================================================================
  10. ' windoType stores information about each window
  11. ' ===========================================================================
  12.  
  13. TYPE windowType
  14.     handle      AS INTEGER
  15.     row1        AS INTEGER
  16.     col1        AS INTEGER
  17.     row2        AS INTEGER
  18.     col2        AS INTEGER
  19.     cursorRow   AS INTEGER
  20.     cursorCol   AS INTEGER
  21.     highlight   AS INTEGER
  22.     textFore    AS INTEGER
  23.     textBack    AS INTEGER
  24.     fore        AS INTEGER
  25.     back        AS INTEGER
  26.     windowType  AS INTEGER
  27.     title       AS STRING * 15
  28. END TYPE
  29.  
  30. ' ===========================================================================
  31. ' buttonType stores info about buttons
  32. ' ===========================================================================
  33.  
  34. TYPE buttonType
  35.     handle       AS INTEGER
  36.     windowHandle AS INTEGER
  37.     text         AS STRING * 30
  38.     state        AS INTEGER
  39.     buttonOn     AS INTEGER
  40.     row1         AS INTEGER
  41.     col1         AS INTEGER
  42.     row2         AS INTEGER
  43.     col2         AS INTEGER
  44.     buttonType   AS INTEGER
  45. END TYPE
  46.  
  47. ' ===========================================================================
  48. ' EditField Type stores info about edit fields
  49. ' ===========================================================================
  50.  
  51. TYPE EditFieldType
  52.     handle          AS INTEGER
  53.     windowHandle    AS INTEGER
  54.     text            AS STRING * 255
  55.     fore            AS INTEGER
  56.     back            AS INTEGER
  57.     row             AS INTEGER
  58.     col             AS INTEGER
  59.     visLength       AS INTEGER
  60.     maxLength       AS INTEGER
  61. END TYPE
  62.  
  63. TYPE hotSpotType
  64.     row1            AS INTEGER
  65.     row2            AS INTEGER
  66.     col1            AS INTEGER
  67.     col2            AS INTEGER
  68.     action          AS INTEGER
  69.     misc            AS INTEGER
  70.     misc2           AS INTEGER
  71. END TYPE
  72.  
  73. TYPE WindowStorageType
  74.     currWindow        AS INTEGER
  75.     numWindowsOpen    AS INTEGER
  76.     numButtonsOpen    AS INTEGER
  77.     numEditFieldsOpen AS INTEGER
  78.     DialogEdit        AS INTEGER
  79.     DialogClose       AS INTEGER
  80.     DialogButton      AS INTEGER
  81.     DialogWindow      AS INTEGER
  82.     DialogEvent       AS INTEGER
  83.     DialogScroll      AS INTEGER
  84.     DialogRow         AS INTEGER
  85.     DialogCol         AS INTEGER
  86.     oldDialogEdit     AS INTEGER
  87.     oldDialogClose    AS INTEGER
  88.     oldDialogButton   AS INTEGER
  89.     oldDialogWindow   AS INTEGER
  90.     oldDialogEvent    AS INTEGER
  91.     oldDialogScroll   AS INTEGER
  92.     oldDialogRow      AS INTEGER
  93.     oldDialogCol      AS INTEGER
  94. END TYPE
  95.  
  96. ' ===========================================================================
  97. ' DECLARATIONS
  98. ' ===========================================================================
  99.  
  100. DECLARE SUB ButtonSetState (handle%, state%)
  101. DECLARE SUB WindowDo (startButton%, startEdit%)
  102. DECLARE SUB ButtonOpen (handle%, state%, title$, row%, col%, row2%, col2%, buttonType%)
  103. DECLARE SUB WindowLine (row%)
  104. DECLARE SUB WindowPrint (printMode%, text$)
  105. DECLARE SUB WindowOpen (handle%, row1%, col1%, row2%, col2%, textFore%, textBack%, fore%, back%, highlight%, movewin%, closewin%, sizewin%, modalwin%, borderchar%, title$)
  106. DECLARE SUB ButtonClose (handle%)
  107. DECLARE SUB WindowClose (handle%)
  108. DECLARE SUB WindowShadowSave ()
  109. DECLARE SUB WindowShadowRefresh ()
  110. DECLARE SUB WindowPrintTitle ()
  111. DECLARE SUB ButtonShow (handle%)
  112. DECLARE SUB WindowSave (handle%)
  113. DECLARE SUB WindowRefresh (handle%)
  114. DECLARE SUB BackgroundSave (handle%)
  115. DECLARE SUB BackgroundRefresh (handle%)
  116. DECLARE FUNCTION ListBox% (text$(), maxRec%)
  117. DECLARE FUNCTION MaxScrollLength% (handle%)
  118. DECLARE FUNCTION WindowCurrent% ()
  119. DECLARE FUNCTION WindowBorder$ (winType%)
  120. DECLARE FUNCTION WindowCols% (handle%)
  121. DECLARE FUNCTION WindowRows% (handle%)
  122. DECLARE FUNCTION Alert% (style%, text$, row1%, col1%, row2%, col2%, b1$, b2$, b3$)
  123. DECLARE FUNCTION Dialog% (op%)
  124. DECLARE FUNCTION ButtonInquire% (handle%)
  125. DECLARE FUNCTION WindowNext% ()
  126. DECLARE FUNCTION FindButton% (handle%)
  127. DECLARE SUB WindowScroll (lines%)
  128. DECLARE FUNCTION EditFieldInquire$ (handle%)
  129. DECLARE FUNCTION FindEditField% (handle%)
  130. DECLARE SUB EditFieldClose (handle%)
  131. DECLARE SUB ButtonToggle (handle%)
  132. DECLARE SUB EditFieldOpen (handle%, text$, row%, col%, fore%, back%, visLength%, maxLength%)
  133. DECLARE SUB WindowBox (boxRow1%, boxCol1%, boxRow2%, boxCol2%)
  134. DECLARE SUB WindowCls ()
  135. DECLARE SUB WindowColor (fore%, back%)
  136. DECLARE SUB WindowInit ()
  137. DECLARE SUB WindowLocate (row%, col%)
  138. DECLARE SUB WindowSetCurrent (handle%)
  139. DECLARE FUNCTION WhichWindow% (row%, col%)
  140.  
  141.