home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / geos / programming / DialogBox-Editor.cvt (.txt) < prev    next >
Encoding:
GEOS ConVerT  |  1998-01-13  |  8.6 KB  |  142 lines
  1. db_eDITOR
  2. prg FORMATTED geos FILE v1.0
  3. bOXeDITOR   v1.0
  4. sTEPHEN vAN eGMOND
  5. tHIS PROGRAM ALLOWS YOU TO CREATE DIALOG BOXES FOR YOUR PROGRAMS.
  6. dIALOG bOX eDITOR
  7. bOX eDITOR iNFO
  8. cHANGE sHADOW
  9. aDD iCON
  10. aDD tEXT
  11.   gET sTRING
  12.   gETfILES bOX
  13.   qUIT ON CLICK
  14.   rOUTINE ON CLICK
  15.   rOUTINE ON DRAW
  16. rE-INITIALIZE
  17. cHANGE sIZE
  18. 0 uSER iCON
  19. sYSTEM iCON
  20.   cANCEL
  21.   yES
  22.   open
  23.   disk
  24. iN pLAIN tEXT
  25. uNDERLINE
  26. oUTLINE
  27. iTALICS
  28. sAVE tEXT sCRAP
  29. qUIT TO dESKTOP
  30. dIALOG:.BYTE$80 {$7c} $01
  31. pLEASE SELECT WHERE THE TEXT PROMPT WILL BE.
  32. pLEASE SELECT WHERE THE gETfILES BOX WILL BE.
  33. sELECT THE TOP-LEFT CORNER FOR THE NEW POSITION.
  34. pLEASE SELECT THE POSITION OF THE BOTTOM-RIGHT CORNER.
  35. pLEASE SELECT THE LOCATION OF THE USER iCON.
  36.  =# =#
  37.  +"{$60} 
  38. sELECT THE POSITION FOR YOUR TEXT.
  39.  =# =#
  40. pLEASE SELECT THE POSITION FOR YOUR ICON.
  41.  +"{$60}.BYTE14;qUIT ON cLICK
  42. .BYTE13;gETsTRING
  43. .BYTE
  44. ;xoFFSET
  45. .BYTE
  46. ;yoFFSET
  47. .BYTER_;GIVES R# TO CONTAIN PNTR TO TEXT BUFFER. 5-10
  48. .BYTE_;MAXIMUM # OF CHARS TO ACCEPT.
  49. .BYTE16;GETfILES
  50. .BYTE
  51. ;xoFFSET
  52. .BYTE
  53. ;yoFFSET
  54. ;NOTE: R7l NEEDS THE SEARCH FILE TYPE
  55. ;R5 SHOULD CONTAIN A POINTER TO WHERE FILENAME GOES.
  56. ;R10 IS AN OPTIONAL POINTER TO A PERMANENT NAME.
  57. .BYTE17;rOUTINE ON cLICK
  58. .WORD_;ROUTINE TO EXECUTE ON OTHERpRESS
  59. .BYTE19;rOUTINE ON DRAW
  60. .WORD_;ROUTINE TO EXECUTE WHEN db IS DRAWN
  61. dIALOG:.BYTE$00 {$7c} 01;USER POSITION
  62. .BYTE
  63. ;TOP
  64. .BYTE
  65. ;BOTTOM
  66. .WORD
  67. ;LEFT
  68. .WORD
  69. ;RIGHT
  70. .BYTE0;END OF DEFINTION
  71. .BYTE
  72. ;ok ICON
  73. ;cANCEL ICON
  74. ;yES ICON
  75. ;nO ICON
  76. ;open ICON
  77. ;disk ICON
  78. .BYTE18;USER ICON
  79. .BYTE
  80. .WORDuiCONt
  81. uiCONt
  82. .WORDuiCONg
  83. ;GRAPHIC LOCATION
  84. .WORD0;LEAVE THIS AT 0
  85. .BYTEuiCONw
  86. ;WIDTH, SET BELOW
  87. .BYTEuiCONh
  88. ;HEIGHT, SET BELOW
  89. .WORD_;LOCATION OF ACTION ROUTINE
  90. uiCONg
  91. place user icon image here.
  92. uiCONw
  93. =PICw
  94. uiCONh
  95. =PICh
  96. .BYTE11;ADD TEXT
  97. .BYTE
  98. .WORDdbtEXT
  99. dbtEXT
  100. :.BYTE
  101. ,27,0
  102. dIALOG bOX eDITOR v1.0
  103.  sTEPHEN vAN eGMOND
  104. iF SATISFIED, SEND $2 TO:
  105.  360 fRONT rOAD
  106.  lAsALLE, oNTARIO, cANADA
  107.  n9j 1z5
  108. pLEASE SELECT THE NEW PATTERN:
  109.  warning: tHIS COMMAND IS
  110. ALREADY ACTIVE.
  111.  tHAT POSITION WOULD PUT THE
  112. gETfILES BOX OUTSIDE THE
  113. dIALOG bOX.
  114. cOMMAND CANCELLED.
  115.  oNLY ONE OF 'rOUTINE ON cLICK'
  116. AND 'qUIT ON CLICK' MAY BE
  117. ACTIVE AT A TIME.
  118. pLEASE SELECT DIALOG BOX POSITION:
  119. DEFINED POSITION
  120. POSITION
  121.  wARNING: tHIS COMMAND ERASES
  122. THE DIALOG BOX DEFINITION:
  123. aRE YOU SURE?
  124. tHAT SYSTEM ICON IS ALREADY
  125. ACTIVE IN THIS dIALOG bOX.
  126. hOW WOULD YOU LIKE TO PROCEED?
  127. A NEW DIALOG BOX
  128. ON EDITING THIS ONE
  129. TO THE DESKTOP
  130.  wARNING: a MAXIMUM OF EIGHT
  131. uSER iCONS MAY BE ACTIVE IN A
  132. dIALOG bOX.
  133.  pLEASE ENTER YOUR TEXT STRING.
  134.  warning: yOUR TEXT STRING IS
  135.  TOO LONG FOR THIS dIALOG bOX.
  136.  a MAXIMUM OF 26 TEXT
  137. STRINGS CAN BE IN A dIALOG bOX
  138. tEXT  sCRAP
  139. tEXT  sCRAP v1.1
  140. $ =#Hhjjjj M#H)
  141. I&I0 =#{$60}
  142.