Up

_gtkEventboxNew

_gtkEventboxNew creates a new Eventbox object.

Prototype : fun [Chn] ObjGtkEventbox

• Chn : the owner channel.


• Return ObjGtkEventbox : the new Eventbox object or nil if an error occurs.

See also

Example

This example uses an Eventbox object to modify the background color of a Label object. Indeed, the background color can not be modified to an object without an owner window (such as a Label).

typeof win = ObjGtkWindow;;
typeof box = ObjGtkBox;;
typeof ebox = ObjGtkEventbox;;
typeof label = ObjGtkLabel;;


fun CBdestroy (obj, u, eventName)=
	_fooS eventName;
	_gtkMainQuit;
	_closemachine;
	0;;
	
	
fun main ()=
	_showconsole;
	
	set ebox = _gtkEventboxNew _channel;
	_gtkEventboxVisibleSet ebox 1;
	_gtkEventboxAboveSet ebox 1;
	
	set label = _gtkLabelNew _channel;
	_gtkContainerAdd ebox label;
	_gtkWidgetBackgroundSet ebox _colorNew _channel 0 65350 0 0 STATE_NORMAL;

	set box = _gtkBoxNew _channel 1 5 VERTICAL;
	_gtkBoxAdd box ebox 1 1 5 1;
	
	set win = _gtkWindowNew _channel nil "test label color" 0;
	_gtkContainerAdd win box;
	_gtkWindowCBdestroyed win @CBdestroy 10 SIGNAL_PROPAGATE;
	_gtkWidgetShowAll win;

	_gtkMain;
	0;;