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 >
Wrap
GEOS ConVerT
|
2019-04-13
|
9KB
|
146 lines
DB_Editor
PRG formatted GEOS file V1.0
Star NX-10
PrintDrvrPatcher
BLASTER'S CONVERTER V2.5 Y
CONVERT
BoxEditor V1.0
Stephen Van Egmond
This program allows you to create dialog boxes for your programs.
Dialog Box Editor
Box Editor Info
Change Shadow
Add Icon
Add Text
Get String
GetFiles Box
Quit on click
Routine on click
Routine on draw
Re-initialize
Change Size
0 User Icon
System Icon
Cancel
Yes
OPEN
DISK
In Plain Text
Underline
Outline
Italics
Save Text Scrap
Quit to Desktop
Dialog: .byte $80 | $01
Please select where the text prompt will be.
Please select where the GetFiles box will be.
Select the top-left corner for the new position.
Please select the position of the bottom-right corner.
Please select the location of the user Icon.
=# =#
+"`
Select the position for your text.
=# =#
Please select the position for your icon.
+"` .byte 14 ;Quit on Click
.byte 13 ;GetString
.byte
;XOffset
.byte
;YOffset
.byte r_ ;gives r# to contain pntr to text buffer. 5-10
.byte _ ;maximum # of chars to accept.
.byte 16 ;getFiles
.byte
;XOffset
.byte
;YOffset
;note: r7L needs the search file type
;r5 should contain a pointer to where filename goes.
;r10 is an optional pointer to a permanent name.
.byte 17 ;Routine on Click
.word _ ;routine to execute on otherPress
.byte 19 ;Routine on draw
.word _ ;routine to execute when DB is drawn
Dialog: .byte $00 | 01 ;user position
.byte
;top
.byte
;bottom
.word
;left
.word
;right
.byte 0 ;end of defintion
.byte
;OK icon
;Cancel icon
;Yes icon
;No icon
;OPEN icon
;DISK icon
.byte 18 ;user icon
.byte
.word UIconT
UIconT
.word UIconG
;graphic location
.word 0 ;leave this at 0
.byte UIconW
;width, set below
.byte UIconH
;height, set below
.word _ ;location of action routine
UIconG
PLACE USER ICON IMAGE HERE.
UIconW
=picW
UIconH
=picH
.byte 11 ;add text
.byte
.word DBText
DBText
: .byte
,27,0
Dialog Box Editor V1.0
Stephen Van Egmond
If satisfied, send $2 to:
360 Front Road
LaSalle, Ontario, Canada
N9J 1Z5
Please select the new pattern:
WARNING: This command is
already active.
That position would put the
GetFiles box outside the
Dialog Box.
Command cancelled.
Only one of 'Routine on Click'
and 'Quit on click' may be
active at a time.
Please select dialog box position:
defined position
position
Warning: This command erases
the dialog box definition:
Are you sure?
That system icon is already
active in this Dialog Box.
How would you like to proceed?
a new dialog box
on editing this one
to the desktop
Warning: A maximum of eight
User Icons may be active in a
Dialog Box.
Please enter your text string.
WARNING: Your text string is
too long for this Dialog Box.
A maximum of 26 text
strings can be in a Dialog Box
Text Scrap
Text Scrap V1.1
$ =#hHJJJJ m#h)
i&i0 =#`