PtWidget

Syntax

widget.SetPos(x,y)
widget.SetDim(w,h)
widget.SetArea(x,y,w,h)
		

Arguments

Return

t on success, or nil on failure.

Description

All widget measurements are made in pixels, with respect to the upper-left corner of the widget. The position of a widget is the distance of its upper-left corner from the upper-left corner of its immediate container, on the x and y axes. The dimensions of a widget are always relative to its own upper-left corner. Remember to load the PhotonWidgets.lsp library with a call to require_lisp("PhotonWidgets.lsp") to use these methods.

Example

This example, ex_PtWidgetdotSetArea.g, is included in the product distribution.

#!/usr/cogent/bin/phgamma

/*
This example puts up a window with a pane and a button, with the
relevant positions and dimensions specified.
*/

function print_area (widget)
{
  princ("\nThe area of the ", class_name(widget),
		" widget is: \n", widget.area, "\n");
}

PtInit(nil);
require_lisp("PhotonWidgets.lsp");

win = new(PtWindow);
win.SetDim(300,200);
win.title = "PtWidget.SetArea Example";

pane = new(PtPane);
pane.SetArea(25,25,250,150);
pane.fill_color = PgRGB(240,220,100);

but = new(PtButton);
but.SetPos(90,25);
but.text_string = "Press Here";

PtAttachCallback(but, Pt_CB_ACTIVATE, `print_area(@pane));
PtAttachCallback(but, Pt_CB_ACTIVATE, `print_area(@but));


PtRealizeWidget(win);
PtMainLoop();

Syntax

widget.SetBit(ivar,flag)
widget.ClearBit(ivar,flag)
widget.TestBit(ivar,flag)
		

Arguments

Return

t on success, or nil on failure.

Description

These methods set, clear and test individual flags of instance variables for any PtWidget. Don't forget to load the PhotonWidgets.lsp library with a call to require_lisp("PhotonWidgets.lsp") in order to use them.

Example

An example of these methods can be found at the end of the tutorial Set, Test, and Clear Widget Flags in the Programmer's Manual.

Syntax

widget.Copy()

Arguments

Returns

A copy of the widget, or an error message.

Description

This method copies any PtWidget, giving it the same parentage and variable values as the original, and putting it the same position. The values of the following variables are not copied:

Further, _callbacks and handles selected (neither of which are actually variables) are also not copied.

Remember to load the PhotonWidgets.lsp library with a call to require_lisp("PhotonWidgets.lsp") before using this method.

Example

This example, ex_PtWidgetdotCopy.g, is included in the product distribution.

#!/usr/cogent/bin/phgamma

/*
 * This example puts up a window with two buttons: an
 * original and copy, and prints their definitions.
 */

PtInit(nil);
require_lisp("PhotonWidgets");

win = new(PtWindow);
win.SetDim(200,130);
win.fill_color = PgRGB(200,220,230);

but = new(PtButton);
but.SetArea(50,25,90,30);
but.fill_color = PgRGB(240,220,180);
but.text_string = "Original";

/*
 * Make the copy and print both widget definitions.
 */
but2 = but.Copy();
but2.SetPos(50,70);
but2.text_string = "Copy";

pretty_princ("Original Button: ",but,"\n");
pretty_princ("Copied Button: ",but2,"\n");

PtRealizeWidget(win);
PtMainLoop();