OpenEuphoria

Re: DOS GUI

• Posted by bonn ortloff <kc7yrh at HOTMAIL.COM> Aug 20, 1998
• 438 views

>Date:         Wed, 19 Aug 1998 16:24:30 -0400
>Reply-To:     Euphoria Programming for MS-DOS
<EUPHORIA at LISTSERV.MUOHIO.EDU>
>From:         Irv <irv at ELLIJAY.COM>
>Subject:      Re: DOS GUI
>To:           EUPHORIA at LISTSERV.MUOHIO.EDU
>
>bonn ortloff wrote:
>>
>> ><snip>///
>>
>> Hmm... Fairly easy, albeit. the Desktop, to what it seems, is nothing
>> more than an undraggable window (i'll check later if I am right) All
you
>> have to do is have buttons on the desktop that hides/unhides windows.
>> Kewl Idea. I'll try that. (BTW, I am now really able to code it now,
as
>> I have written some notes on procedures, colors, justification, etc.
>> after printing out 3,500+ lines of code! =)
>>
>> BTW, anyone want those notes? (I still have to figure out what
Listbox
>> and GlyphBtn do...)
>>
>Assuming you are talking about my Windoz pkg:
>Yer right, the Desktop is just a "bitmap object" that can be placed on
>the screen,
>but is declared at such a low level that it can't do much else. Like
>move,
>get focus, etc.
>
>GlyphBtn is just a button with a user-written grzphic (one declared as
a
>Euphoria sequence like you would use in polygon()...
>   color, fill, {{x1,y1},{x2,y2},{x3,y3}}
>Handy for things like check marks in checkboxes, other simple graphics.
>
>You already figured out what ListBox does: nothing. Sadly, that is one
>control I haven't gotten around to writing. Maybe this week.
>
>I'd love to have a copy of those notes!
>
>Irv
>

I noticed my notes are still quite BETA. I have to find out the Set()
for the stuff (I know so far only Text() Everythings got a set to it,
right? I just have to find out)

Here ya go, Irv. :)

-- "LEVIATHAN"

-- Begin notes

adds:
-------
Text("name","data",x1,y1,x2,y2,group#) -- What'z it say, 'cluck?
BitBtn("name",{file1.bmp, file2.bmp},x1,y1) -- Bitmap Button
Bitmap(filename,"caption",x1,y1) -- Bitmap proc
Button("name","caption",x1,y1,x2,y2) -- Text button
Checkbox ("name","caption",x1,y1,group#) -- what it says.
Label("name","caption",x1,y1,x2,y2) -- for use inside a panel only.
ListBox("name",x1,y1,x2,y2,group#) -- ?
RadioBtn("name","caption",x1,y1,group#) -- Radio Button
Scroller("name",x1,y1,x2,y2) -- Scroll bar, vert, methinx.
Edit("name","data",x1,y1,x2,y2,group#) -- field
Slider("name",x1,y1,x2,y2) -- Record scroll bar
Titlebar("name","caption",x1,y1,x2,y2) -- what it says.
GlyphBtn("name",glyph,x1,y1,x2,y2) -- ?
----------------------------------------
-- styles:           -- state:               -- status:
   PLAIN     = 0,       NORMAL = 0,             UNCHECKED =  0,
   RAISED    = 1,       MAX    = 1,             CHECKED   =  1,
   RECESSED = -1,       MIN   = -1,             DISABLED  = -1,
   DEFAULT  =  2,       ANI   = 99,
   BORDER   =  3,

  -- actions:          -- other:
     EXIT = -1,           MODAL = 1,
                          NONMODAL = 0,
                          LOCKED = -1 -- window can't be focused
----------------------------------------
Colorz:
--------
Black   = 256, Blue    = 257, Green   = 258, Cyan    = 259, Red     =
260,
Magenta = 261, dkRed   = 262, ltGray  = 263, dkGray  = 264, ltBlue  =
265,
ltGreen = 266, ltCyan  = 267, ltRed   = 268, mdGray  = 269, Yellow  =
270,
White   = 271
--------------------------------------------
justification, prints, wraps:
------------------------------
    'additive', e.g.  fa=FBO+FIT  gives you bold italics
NUL=0,  -- none: surprise !
FBO=1,  -- bold
FSH=2,  -- shadows
FIT=4,  -- italics
FUN=8,  -- underline

FNN=0,  -- (or NUL) no justification in either direction,  '\n'
        -- (new line) returns to original fx with line feed
FLN=1,  -- left justified, no vertical justification
FCN=2,  -- horizontally centred, no vertical justification
FRN=3,  -- right justified, no vertical justification
FLC=4,  -- left justified, vertically centred
FCC=5,  -- centred in both directions
FRC=6,  -- right justified, vertically centred

FNW=0,  -- (or NUL) no wrap
FCW=1,  -- char based wrap
FWW=FCW, -- word based wrap (still defaults to char wrap (again,
         -- sorry, not yet implemented, perhaps next time!)

-- End. STILL BETA

______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com