EMA-XPS Online


MAKE-BABYLON-GRAPHIC-BUTTON

MAKE-BABYLON-GRAPHIC-BUTTON
===========================

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)
             (add-window-elements
             interface
             (list (make-babylon-graphic-button 
             interface
             "PSHB1" 400 300 100 50
             "/bitmaps/horse" nil
             '(start 'demo-task interface)))))


EMA-XPS Online