OpenEuphoria

1. NeilGUI update

• Posted by Lewis Townsend <keroltarr at HOTMAIL.COM> Jul 28, 1999
• 598 views

Hello all,
NeilGUI is now usable if anyone cares.
Let me know of any bugs or missing features
Here is the readme.txt file (I hope I've not
made any horrible mistakes this time):

====================================================================
NeilGui.e
by: Lewis Townsend
Keroltarr at hotmail.com
www.geocities.com/TimesSquare/Labyrinth/9472
=====================================================================
Best viewed with word-wrap on

This is a simple gui library for use with Euphoria and the Neil library by
Pete Eberlien. Special thanks to Rapid Deployment Software for Euphoria.
This library makes use of Neil.e so you will only be able to use it in a
Neil graphics mode.

Here is a basic overview of the global routines:

=====================================================================
global procedure BackColor (integer c)
---------------------------------------------------------------------
Sets the back ground color of future windows

=====================================================================
global procedure HighlightColor (integer c)
---------------------------------------------------------------------
Sets the highlight color of future windows

=====================================================================
global procedure ShadowColor (integer c)
---------------------------------------------------------------------
Sets the shadow color of future windows

=====================================================================
global procedure TextColor (integer c)
---------------------------------------------------------------------
Sets the color of future text

=====================================================================
global procedure allcolor (sequence c)
---------------------------------------------------------------------
Sets the all colors of future GUI graphics

=====================================================================
global procedure auto3d (atom contrast)
---------------------------------------------------------------------
You can just set the background color and then call this procedure to
automaticall set the highlight and shadow colors to nice-looking values.
The contrast variable is just that, the contrast between the background
color and the highlight and shadow colors.  This value needs to be between 0
and #FF, #44 is recomended.

=====================================================================
global procedure LoadPointer (string fn)
---------------------------------------------------------------------
This procedure loads a bitmap "*.bmp" file as the mouse pointer

=====================================================================
global procedure draw_rectangle (coord ul, coord dems, atom scr)
---------------------------------------------------------------------
This draws a rectangle of the color BACKGROUND_COLOR on the screen. ul is
position the upper left corner of the rectangle, dems is the deminsions of
the rectangle, and scr is the virtual screen to draw on; use "screen" for
the real screen.

=====================================================================
procedure drawpanel (coord ul, coord dems, integer border)
---------------------------------------------------------------------
This procedure draws a panel (or 3d looking box) on the screen at position
ul and with deminsions dems.  Set the border variable to 1 for a 3d box that
sticks out, -1 for a recessed panel, and 0 for no 3d effects.

=====================================================================
global procedure DrawObject (integer obj) --sequence atts)
---------------------------------------------------------------------
Use this routine if your graphics have become corrupted. The integer obj
should be the handle of an object passed to you by New ().

=====================================================================
global procedure GetMouse ()
---------------------------------------------------------------------
Call this procedure in a loop if you want mouse input.

=====================================================================
global function ButtonClicked ()
---------------------------------------------------------------------
This function returns the handle of a button that is clicked.

=====================================================================
global function New (integer kind, sequence atts)
---------------------------------------------------------------------
This function is used to create an object (panel or button).  The kind
variable denotes what kind of object you are creating.  Here are the
possible kinds:
  PANEL         -- basically a window
  BUTTON        -- a command button that you can click on
The sequence atts is a list of attributes that you want the new object to
have. Here are the possible attributes and their possible values:

  HOME  -- the handle of the object this object sits on, use NONE if none.
  TEXT  -- The name, caption, or text value of an object.
  POSITION      -- the position of upper left corner of object on its home
  DEMINSIONS    -- the {x,y} deminsions of the object
  BORDER        -- Is the object 3d?
    OUT                 -- sticks out
    NONE                -- flat
    IN                  -- sinks in
  BUTTONSTATUS  -- Is button pushed?
    PUSHED              -- pushed in
    UNPUSHED            -- not pushed in
  ENABLED       -- Is this object currently able to get focus?
    TRUE
    FALSE

You don't have to fill in all theese attributes, or any of them for that
matter. Any you leave out will be assigned a default value. Also, these
attributes don't even have to be in order and you don't group them in pairs;
this saves typing. Here is a typical call to this function:

integer pan1
pan1 = New (PANEL, {
        TEXT, "Test Panel",
        POSITION, {100,100},
        DEMINSIONS, {200,100}
        })

=====================================================================

please give me feedback,
Lewis Townsend

PS Rob, please provide a separate entry for this on the website because it
is very different from LAGui.


_______________________________________________________________
Get Free Email and Do More On The Web. Visit http://www.msn.com