EMA-XPS Online



syntax: (make-babylon-graphic-button <interface>
           <wname> <xpos> <ypos> <width> <height> 
           <graphic-file> <color> 
           &optional <action> &rest <args>)

This function defines a graphic-push-button for the 
window. <wname> is the name of the push-button.
<xpos> and <ypos> are the positions from the upper
left corner. <width> and <height> define the width
and height of the button. <graphic-file> is the name
of the graphic-file that will be used. <color> is not
supported by Babylon v3. <action> describes the task,
that will be started when the button is pressed. The
defined button will appear in the interface.

example: >(defun make-kb-interface (interface)
             (list (make-babylon-graphic-button 
             "PSHB1" 400 300 100 50
             "/bitmaps/horse" nil
             '(start 'demo-task interface)))))

EMA-XPS Online