Changeset 14791 in project


Ignore:
Timestamp:
05/26/09 07:33:06 (10 years ago)
Author:
Ivan Raikov
Message:

exporting ezxdisp constants

Location:
release/4/ezxdisp
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/ezxdisp/ezxdisp.scm

    r14789 r14791  
    1515
    1616(define-record ezx ptr)
    17 (define-record ezx-button-event ptr)
    1817
    1918#>?
    2019___declare(type, "ezxp;(pointer \"ezx_t\");ezx-ptr;make-ezx")
    21 ___declare(type, "ezxevbp;(pointer \"ezx_button_event_t\");ezx-button-event-ptr;make-ezx-button-event")
     20___declare(type, "ezxp;(pointer \"ezx_t\");ezx-ptr;make-ezx")
     21___declare(export_constants, yes)
    2222___declare(substitute, "_;-")
    23 ___declare(substitute, "EZX;ezx")
     23___declare(substitute, "EZX-;ezx:")
    2424
    2525enum event_type {
  • release/4/ezxdisp/ezxdisp0.c

    r14789 r14791  
    10261026
    10271027  if (window_name != NULL)
    1028     XStoreName(e->display, e->top, window_name);
     1028  {
     1029       XStoreName(e->display, e->top, window_name);
     1030  }
    10291031
    10301032  e->pixmap = XCreatePixmap(e->display, e->top, e->size_x, e->size_y,
  • release/4/ezxdisp/hello.scm

    r14789 r14791  
    22
    33(define ezx (ezx-init 100 100 "Hello, ezxdisp"))
     4
    45(ezx-set-background ezx (make-ezx-color 1 1 1))
    56(ezx-fillcircle-2d ezx 50 50 25 (make-ezx-color 1 0 0))
Note: See TracChangeset for help on using the changeset viewer.