You are looking at historical revision 19343 of this page. It may differ significantly from its current revision.

japi

Description

A set of bindings for the JAPI GUI toolkit.

Author

felix winkelmann

Requirements

None

Download

japi.egg

Documentation

The following constants and procedures are available:

[constant] j/left
[constant] j/center
[constant] j/right
[constant] j/top
[constant] j/bottom
[constant] j/topleft
[constant] j/topright
[constant] j/bottomleft
[constant] j/bottomright
[constant] j/default-cursor
[constant] j/crosshair-cursor
[constant] j/text-cursor
[constant] j/wait-cursor
[constant] j/sw-resize-cursor
[constant] j/se-resize-cursor
[constant] j/nw-resize-cursor
[constant] j/ne-resize-cursor
[constant] j/n-resize-cursor
[constant] j/s-resize-cursor
[constant] j/w-resize-cursor
[constant] j/e-resize-cursor
[constant] j/hand-cursor
[constant] j/move-cursor
[constant] j/horizontal
[constant] j/vertical
[constant] j/plain
[constant] j/bold
[constant] j/italic
[constant] j/courier
[constant] j/helvetia
[constant] j/times
[constant] j/dialogin
[constant] j/dialogout
[constant] j/black
[constant] j/white
[constant] j/red
[constant] j/green
[constant] j/blue
[constant] j/cyan
[constant] j/magenta
[constant] j/yellow
[constant] j/orange
[constant] j/green-yellow
[constant] j/green-cyan
[constant] j/blue-cyan
[constant] j/blue-magenta
[constant] j/red-magenta
[constant] j/dark-gray
[constant] j/light-gray
[constant] j/gray
[constant] j/none
[constant] j/linedown
[constant] j/lineup
[constant] j/areadown
[constant] j/areaup
[constant] j/moved
[constant] j/dragged
[constant] j/pressed
[constant] j/released
[constant] j/entered
[constant] j/exited
[constant] j/doubleclick
[constant] j/resized
[constant] j/hidden
[constant] j/shown
[constant] j/activated
[constant] j/deactivated
[constant] j/opened
[constant] j/closed
[constant] j/iconified
[constant] j/deiconified
[constant] j/closing
[constant] j/gif
[constant] j/jpg
[constant] j/ppm
[constant] j/bmp
[constant] j/round
[constant] j/rect
[constant] j/randmax

Variables containing JAPI constants.

[procedure] (j:connect STRING) -> INT
[procedure] (j:setport INT)
[procedure] (j:setdebug INT)
[procedure] (j:frame STRING) -> INT
[procedure] (j:button INT STRING) -> INT
[procedure] (j:graphicbutton INT STRING) -> INT
[procedure] (j:checkbox INT STRING) -> INT
[procedure] (j:label INT STRING) -> INT
[procedure] (j:graphiclabel INT STRING) -> INT
[procedure] (j:canvas INT INT INT) -> INT
[procedure] (j:panel INT) -> INT
[procedure] (j:borderpanel INT INT) -> INT
[procedure] (j:radiogroup INT) -> INT
[procedure] (j:radiobutton INT STRING) -> INT
[procedure] (j:list INT INT) -> INT
[procedure] (j:choice INT) -> INT
[procedure] (j:dialog INT STRING) -> INT
[procedure] (j:window INT) -> INT
[procedure] (j:popupmenu INT STRING) -> INT
[procedure] (j:scrollpane INT) -> INT
[procedure] (j:hscrollbar INT) -> INT
[procedure] (j:vscrollbar INT) -> INT
[procedure] (j:line INT INT INT INT) -> INT
[procedure] (j:printer INT) -> INT
[procedure] (j:image INT INT) -> INT
[procedure] (j:filedialog INT STRING STRING STRING) -> STRING
[procedure] (j:fileselect INT STRING STRING STRING) -> STRING
[procedure] (j:messagebox INT STRING STRING) -> INT
[procedure] (j:alertbox INT STRING STRING STRING) -> INT
[procedure] (j:progressbar INT INT) -> INT
[procedure] (j:led INT INT INT) -> INT
[procedure] (j:sevensegment INT INT) -> INT
[procedure] (j:meter INT STRING) -> INT
[procedure] (j:additem INT STRING)
[procedure] (j:textfield INT INT) -> INT
[procedure] (j:textarea INT INT INT) -> INT
[procedure] (j:menubar INT) -> INT
[procedure] (j:menu INT STRING) -> INT
[procedure] (j:helpmenu INT STRING) -> INT
[procedure] (j:menuitem INT STRING) -> INT
[procedure] (j:checkmenuitem INT STRING) -> INT
[procedure] (j:pack INT)
[procedure] (j:print INT)
[procedure] (j:playsoundfile STRING)
[procedure] (j:play INT)
[procedure] (j:sound STRING) -> INT
[procedure] (j:setfont INT INT INT INT)
[procedure] (j:setfontname INT INT)
[procedure] (j:setfontsize INT INT)
[procedure] (j:setfontstyle INT INT)
[procedure] (j:seperator INT)
[procedure] (j:disable INT)
[procedure] (j:enable INT)
[procedure] (j:getstate INT) -> bool
[procedure] (j:getrows INT) -> INT
[procedure] (j:getcolumns INT) -> INT
[procedure] (j:getselect INT) -> INT
[procedure] (j:isselect INT INT) -> bool
[procedure] (j:isvisible INT) -> bool
[procedure] (j:isparent INT INT) -> bool
[procedure] (j:isresizable INT) -> bool
[procedure] (j:select INT INT)
[procedure] (j:deselect INT INT)
[procedure] (j:multiplemode INT bool)
[procedure] (j:insert INT INT STRING)
[procedure] (j:remove INT INT)
[procedure] (j:removeitem INT STRING)
[procedure] (j:removeall INT)
[procedure] (j:setstate INT bool)
[procedure] (j:setrows INT INT)
[procedure] (j:setcolumns INT INT)
[procedure] (j:seticon INT INT)
[procedure] (j:setimage INT INT)
[procedure] (j:setvalue INT INT)
[procedure] (j:setradiogroup INT INT)
[procedure] (j:setunitinc INT INT)
[procedure] (j:setblockinc INT INT)
[procedure] (j:setmin INT INT)
[procedure] (j:setmax INT INT)
[procedure] (j:setdanger INT INT)
[procedure] (j:setslidesize INT INT)
[procedure] (j:setcursor INT INT)
[procedure] (j:setresizable INT bool)
[procedure] (j:getlength INT) -> INT
[procedure] (j:getvalue INT) -> INT
[procedure] (j:getdanger INT) -> INT
[procedure] (j:getheight INT) -> INT
[procedure] (j:getwidth INT) -> INT
[procedure] (j:getinsets INT INT) -> INT
[procedure] (j:getlayoutid INT) -> INT
[procedure] (j:getinheight INT) -> INT
[procedure] (j:getinwidth INT) -> INT
[procedure] (j:gettext INT STRING) -> STRING
[procedure] (j:getitem INT INT) -> STRING
[procedure] (j:getitemcount INT) -> INT
[procedure] (j:delete INT INT INT)
[procedure] (j:replacetext INT STRING INT INT)
[procedure] (j:appendtext INT STRING)
[procedure] (j:inserttext INT STRING INT)
[procedure] (j:settext INT STRING)
[procedure] (j:selectall INT)
[procedure] (j:selecttext INT INT INT)
[procedure] (j:getselstart INT) -> INT
[procedure] (j:getselend INT) -> INT
[procedure] (j:getseltext INT) -> STRING
[procedure] (j:getcurpos INT) -> INT
[procedure] (j:setcurpos INT INT)
[procedure] (j:setechochar INT char)
[procedure] (j:seteditable INT bool)
[procedure] (j:setshortcut INT char)
[procedure] (j:setsize INT INT INT)
[procedure] (j:show INT)
[procedure] (j:showpopup INT INT INT)
[procedure] (j:add INT INT)
[procedure] (j:release INT)
[procedure] (j:releaseall INT)
[procedure] (j:hide INT)
[procedure] (j:dispose INT)
[procedure] (j:setpos INT INT INT)
[procedure] (j:getviewportheight INT) -> INT
[procedure] (j:getviewportwidth INT) -> INT
[procedure] (j:getxpos INT) -> INT
[procedure] (j:getypos INT) -> INT
[procedure] (j:getparentid INT) -> INT
[procedure] (j:setfocus INT)
[procedure] (j:hasfocus INT) -> bool
[procedure] (j:getstringwidth INT STRING) -> INT
[procedure] (j:getfontheight INT) -> INT
[procedure] (j:getfontascent INT) -> INT
[procedure] (j:keylistener INT) -> INT
[procedure] (j:getkeycode INT) -> INT
[procedure] (j:getkeychar INT) -> INT
[procedure] (j:mouselistener INT INT) -> INT
[procedure] (j:getmousex INT) -> INT
[procedure] (j:getmousey INT) -> INT
[procedure] (j:getmousebutton INT) -> INT
[procedure] (j:focuslistener INT) -> INT
[procedure] (j:componentlistener INT INT) -> INT
[procedure] (j:windowlistener INT INT) -> INT
[procedure] (j:setflowlayout INT INT)
[procedure] (j:setborderlayout INT)
[procedure] (j:setgridlayout INT INT INT)
[procedure] (j:setfixlayout INT)
[procedure] (j:setnolayout INT)
[procedure] (j:setborderpos INT INT)
[procedure] (j:sethgap INT INT)
[procedure] (j:setvgap INT INT)
[procedure] (j:setinsets INT INT INT INT INT)
[procedure] (j:setalign INT INT)
[procedure] (j:setflowfill INT bool)
[procedure] (j:translate INT INT INT)
[procedure] (j:cliprect INT INT INT INT INT)
[procedure] (j:drawrect INT INT INT INT INT)
[procedure] (j:fillrect INT INT INT INT INT)
[procedure] (j:drawroundrect INT INT INT INT INT INT INT)
[procedure] (j:fillroundrect INT INT INT INT INT INT INT)
[procedure] (j:drawoval INT INT INT INT INT)
[procedure] (j:filloval INT INT INT INT INT)
[procedure] (j:drawcircle INT INT INT INT)
[procedure] (j:fillcircle INT INT INT INT)
[procedure] (j:drawarc INT INT INT INT INT INT INT)
[procedure] (j:fillarc INT INT INT INT INT INT INT)
[procedure] (j:drawline INT INT INT INT INT)
[procedure] (j:drawpolyline INT INT VECTOR VECTOR)
[procedure] (j:drawpolygon INT INT VECTOR VECTOR)
[procedure] (j:fillpolygon INT INT VECTOR VECTOR)
[procedure] (j:drawpixel INT INT INT)
[procedure] (j:drawstring INT INT INT STRING)
[procedure] (j:setxor INT bool)
[procedure] (j:getimage INT) -> INT
[procedure] (j:getimagesource INT INT INT INT INT VECTOR VECTOR VECTOR)
[procedure] (j:drawimagesource INT INT INT INT INT VECTOR VECTOR VECTOR)
[procedure] (j:getscaledimage INT INT INT INT INT INT INT) -> INT
[procedure] (j:drawimage INT INT INT INT)
[procedure] (j:drawscaledimage INT INT INT INT INT INT INT INT INT INT)
[procedure] (j:setcolor INT INT INT INT)
[procedure] (j:setcolorbg INT INT INT INT)
[procedure] (j:setnamedcolor INT INT)
[procedure] (j:setnamedcolorbg INT INT)
[procedure] (j:loadimage STRING) -> INT
[procedure] (j:saveimage INT STRING INT) -> INT
[procedure] (j:sync)
[procedure] (j:beep)
[procedure] (j:random) -> INTEGER
[procedure] (j:sleep INT)

Calls the associated JAPI function. Integer-arrays are passed as vectors of exact numbers.

Examples

 
(require 'japi)

; The canonical example
(j:start)
(define f (j:frame "Hello, world!"))
(j:show f)
(read-line)
(j:quit)
(require 'japi)

; The "vumeter" example in Scheme
(require 'japi)

(j:setdebug 2)
(define value 50)

(unless (j:start)
  (error "can't connect to server") )

(define frame (j:frame "Meter"))
(j:setborderlayout frame)
(j:setinsets frame (+ (j:getinsets frame j/top) 10) 10 10 10)
(j:setvgap frame 10)
(define progress (j:progressbar frame j/horizontal))
(j:setborderpos progress j/bottom)
(define meter (j:meter frame "Volt"))
(j:setsize frame 150 170)
(j:show frame)
(j:setmin meter -100)
(j:setmax meter 200)
(j:setdanger meter 100)

(do ()
    ((eq? frame (j:getaction)))
  (set! value (sub1 value))
  (when (< (j:random) (/ j/randmax 2))
    (set! value (+ value 2)) )
  (j:setvalue meter value)
  (j:setvalue progress value)
  (j:sync)
  (j:sleep 50) )

(j:quit)

Changelog