home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / GEOSApps / GEOUTILS.ARC / DB_EDITOR (.txt) < prev    next >
GEOS ConVerT  |  2019-04-13  |  9KB  |  146 lines
  1. DB_Editor
  2. PRG formatted GEOS file V1.0
  3. Star NX-10
  4. PrintDrvrPatcher
  5. BLASTER'S CONVERTER V2.5    Y
  6. CONVERT
  7. BoxEditor   V1.0
  8. Stephen Van Egmond
  9. This program allows you to create dialog boxes for your programs.
  10. Dialog Box Editor
  11. Box Editor Info
  12. Change Shadow
  13. Add Icon
  14. Add Text
  15.   Get String
  16.   GetFiles Box
  17.   Quit on click
  18.   Routine on click
  19.   Routine on draw
  20. Re-initialize
  21. Change Size
  22. 0 User Icon
  23. System Icon
  24.   Cancel
  25.   Yes
  26.   OPEN
  27.   DISK
  28. In Plain Text
  29. Underline
  30. Outline
  31. Italics
  32. Save Text Scrap
  33. Quit to Desktop
  34. Dialog:    .byte    $80 | $01
  35. Please select where the text prompt will be.
  36. Please select where the GetFiles box will be.
  37. Select the top-left corner for the new position.
  38. Please select the position of the bottom-right corner.
  39. Please select the location of the user Icon.
  40.  =# =#
  41.  +"` 
  42. Select the position for your text.
  43.  =# =#
  44. Please select the position for your icon.
  45.  +"`    .byte    14    ;Quit on Click
  46.     .byte    13    ;GetString
  47.     .byte    
  48.     ;XOffset
  49.     .byte    
  50.     ;YOffset
  51.     .byte    r_    ;gives r# to contain pntr to text buffer. 5-10
  52.     .byte    _    ;maximum # of chars to accept.
  53.     .byte    16    ;getFiles
  54.     .byte    
  55.     ;XOffset
  56.     .byte    
  57.     ;YOffset
  58. ;note: r7L needs the search file type
  59. ;r5 should contain a pointer to where filename goes.
  60. ;r10 is an optional pointer to a permanent name.
  61.     .byte    17    ;Routine on Click
  62.     .word    _    ;routine to execute on otherPress
  63.     .byte    19    ;Routine on draw
  64.     .word    _    ;routine to execute when DB is drawn
  65. Dialog:    .byte    $00 | 01    ;user position
  66.     .byte    
  67.     ;top
  68.     .byte    
  69.     ;bottom
  70.     .word    
  71.     ;left
  72.     .word    
  73.     ;right
  74.     .byte    0    ;end of defintion
  75.     .byte    
  76.     ;OK icon
  77.     ;Cancel icon
  78.     ;Yes icon
  79.     ;No icon
  80.     ;OPEN icon
  81.     ;DISK icon
  82.     .byte    18    ;user icon
  83.     .byte    
  84.     .word    UIconT
  85. UIconT
  86.     .word    UIconG
  87.     ;graphic location
  88.     .word    0    ;leave this at 0
  89.     .byte    UIconW
  90.     ;width, set below
  91.     .byte    UIconH
  92.     ;height, set below
  93.     .word    _    ;location of action routine
  94. UIconG
  95. PLACE USER ICON IMAGE HERE.
  96.     UIconW
  97.     =picW
  98.     UIconH
  99.     =picH
  100.     .byte    11    ;add text
  101.     .byte    
  102.     .word    DBText
  103. DBText
  104. :    .byte    
  105. ,27,0
  106. Dialog Box Editor V1.0
  107.  Stephen Van Egmond
  108. If satisfied, send $2 to:
  109.  360 Front Road
  110.  LaSalle, Ontario, Canada
  111.  N9J 1Z5
  112. Please select the new pattern:
  113.  WARNING: This command is
  114. already active.
  115.  That position would put the
  116. GetFiles box outside the
  117. Dialog Box.
  118. Command cancelled.
  119.  Only one of 'Routine on Click'
  120. and 'Quit on click' may be
  121. active at a time.
  122. Please select dialog box position:
  123. defined position
  124. position
  125.  Warning: This command erases
  126. the dialog box definition:
  127. Are you sure?
  128. That system icon is already
  129. active in this Dialog Box.
  130. How would you like to proceed?
  131. a new dialog box
  132. on editing this one
  133. to the desktop
  134.  Warning: A maximum of eight
  135. User Icons may be active in a
  136. Dialog Box.
  137.  Please enter your text string.
  138.  WARNING: Your text string is
  139.  too long for this Dialog Box.
  140.  A maximum of 26 text
  141. strings can be in a Dialog Box
  142. Text  Scrap
  143. Text  Scrap V1.1
  144. $ =#hHJJJJ m#h)
  145. i&i0 =#`
  146.