view release on metacpan or search on metacpan
PNG/libpng/contrib/gregbook/rpng-win.c view on Meta::CPAN
/*---------------------------------------------------------------------------
Finally, create the window.
---------------------------------------------------------------------------*/
extra_width = 2*(GetSystemMetrics(SM_CXBORDER) +
GetSystemMetrics(SM_CXDLGFRAME));
extra_height = 2*(GetSystemMetrics(SM_CYBORDER) +
GetSystemMetrics(SM_CYDLGFRAME)) +
GetSystemMetrics(SM_CYCAPTION);
global_hwnd = CreateWindow(progname, titlebar, WS_OVERLAPPEDWINDOW,
CW_USEDEFAULT, CW_USEDEFAULT, image_width+extra_width,
image_height+extra_height, NULL, NULL, hInst, NULL);
ShowWindow(global_hwnd, showmode);
UpdateWindow(global_hwnd);
return 0;
} /* end function rpng_win_create_window() */
PNG/libpng/contrib/gregbook/rpng-x.c view on Meta::CPAN
attr.backing_store = Always;
attr.event_mask = ExposureMask | KeyPressMask | ButtonPressMask;
attrmask = CWBackingStore | CWEventMask;
if (have_nondefault_visual) {
attr.colormap = colormap;
attr.background_pixel = 0;
attr.border_pixel = 1;
attrmask |= CWColormap | CWBackPixel | CWBorderPixel;
}
window = XCreateWindow(display, root, 0, 0, image_width, image_height, 0,
depth, InputOutput, visual, attrmask, &attr);
if (window == None) {
fprintf(stderr, "XCreateWindow() failed\n");
return 2;
} else
have_window = TRUE;
if (depth == 8)
XSetWindowColormap(display, window, colormap);
if (!XStringListToTextProperty(&window_name, 1, pWindowName))
pWindowName = NULL;
if (!XStringListToTextProperty(&icon_name, 1, pIconName))
PNG/libpng/contrib/gregbook/rpng2-win.c view on Meta::CPAN
/*---------------------------------------------------------------------------
Finally, create the window.
---------------------------------------------------------------------------*/
extra_width = 2*(GetSystemMetrics(SM_CXBORDER) +
GetSystemMetrics(SM_CXDLGFRAME));
extra_height = 2*(GetSystemMetrics(SM_CYBORDER) +
GetSystemMetrics(SM_CYDLGFRAME)) +
GetSystemMetrics(SM_CYCAPTION);
global_hwnd = CreateWindow(progname, titlebar, WS_OVERLAPPEDWINDOW,
CW_USEDEFAULT, CW_USEDEFAULT, rpng2_info.width+extra_width,
rpng2_info.height+extra_height, NULL, NULL, global_hInst, NULL);
ShowWindow(global_hwnd, global_showmode);
UpdateWindow(global_hwnd);
/*---------------------------------------------------------------------------
Now compute the background image and display it. If it fails (memory
allocation), revert to a plain background color.
---------------------------------------------------------------------------*/
PNG/libpng/contrib/gregbook/rpng2-x.c view on Meta::CPAN
attr.backing_store = Always;
attr.event_mask = ExposureMask | KeyPressMask | ButtonPressMask;
attrmask = CWBackingStore | CWEventMask;
if (have_nondefault_visual) {
attr.colormap = colormap;
attr.background_pixel = 0;
attr.border_pixel = 1;
attrmask |= CWColormap | CWBackPixel | CWBorderPixel;
}
window = XCreateWindow(display, root, 0, 0, rpng2_info.width,
rpng2_info.height, 0, depth, InputOutput, visual, attrmask, &attr);
if (window == None) {
fprintf(stderr, "XCreateWindow() failed\n");
return 2;
} else
have_window = TRUE;
if (depth == 8)
XSetWindowColormap(display, window, colormap);
if (!XStringListToTextProperty(&window_name, 1, pWindowName))
pWindowName = NULL;
if (!XStringListToTextProperty(&icon_name, 1, pIconName))
PNG/libpng/contrib/visupng/VisualPng.c view on Meta::CPAN
// calculate size of window-borders
ixBorders = 2 * (GetSystemMetrics (SM_CXBORDER) +
GetSystemMetrics (SM_CXDLGFRAME));
iyBorders = 2 * (GetSystemMetrics (SM_CYBORDER) +
GetSystemMetrics (SM_CYDLGFRAME)) +
GetSystemMetrics (SM_CYCAPTION) +
GetSystemMetrics (SM_CYMENUSIZE) +
1; /* WvS: don't ask me why? */
hwnd = CreateWindow (szProgName, szAppName,
WS_OVERLAPPEDWINDOW,
CW_USEDEFAULT, CW_USEDEFAULT,
512 + 2 * MARGIN + ixBorders, 384 + 2 * MARGIN + iyBorders,
// CW_USEDEFAULT, CW_USEDEFAULT,
NULL, NULL, hInstance, NULL);
ShowWindow (hwnd, iCmdShow);
UpdateWindow (hwnd);
hAccel = LoadAccelerators (hInstance, szProgName);
demos/demos/widget_lib/items.pl view on Meta::CPAN
-bitmap => '@'.Tk->findINC('demos/images/noletters'),
qw/-tags item/);
$c->createBitmap(qw/17c 21.5c/,
-bitmap => '@'.Tk->findINC('demos/images/letters'),
qw/-tags item/);
$c->createText(qw/25c 16.2c -text Windows -anchor n/);
my $c_button = $c->Button(-text => 'Press Me',
-command => [\&items_button_press, $c, $red],
);
$c->createWindow(qw/21c 18c/, -window => $c_button,
qw/-anchor nw -tags item/);
my $c_entry = $c->Entry(-width => '20', -relief => 'sunken',
-validate => 'all',
-validatecommand => sub {$n++ ? 1 : 0},
-invalidcommand => sub {$TOP->bell});
$c_entry->insert('end' => 'Edit this text');
$c->createWindow(qw/21c 21c/, -window => $c_entry,
qw/-anchor nw -tags item/);
my $c_scale = $c->Scale(qw/-from 0 -to 100 -length 6c -sliderlength .4c
-width .5c -tickinterval 0/);
$c->createWindow(qw/28.5c 17.5c/, -window => $c_scale,
qw/-anchor n -tags item/);
$c->createText(qw/21c 17.9c -text Button: -anchor sw/);
$c->createText(qw/21c 20.9c -text Entry: -anchor sw/);
$c->createText(qw/28.5c 17.4c -text Scale: -anchor s/);
# Set up event bindings for canvas.
$c->bind('item', '<Any-Enter>' => [\&items_enter, \%iinfo]);
$c->bind('item', '<Any-Leave>' => [\&items_leave, \%iinfo]);
demos/ixset view on Meta::CPAN
${$path} = $parent->Frame();
$w = "${path}_label";
${$w} = ${$path}->Label(-text => $text);
${$w}->pack(-side => 'left', -expand => 'y');
$w = "${path}_entry";
${$w} = ${$path}->Entry(-width => $length, -relief => 'sunken');
${$w}->pack(-side => 'right', -expand => 'y');
} # end labelentry
sub createwindows {
# Buttons
$buttons = $MW->Frame();
$buttons_ok = $buttons->Button(-command => \&ok, -text => 'Ok');
$buttons_apply = $buttons->Button(
-command => \&writesettings,
-text => 'Apply',
);
$buttons_cancel = $buttons->Button(
extern char *XGetAtomName _ANSI_ARGS_((Display *, Atom));
extern char *XKeysymToString _ANSI_ARGS_((KeySym));
extern Atom XInternAtom _ANSI_ARGS_((Display *, const char *, int));
extern Colormap XCreateColormap _ANSI_ARGS_((Display *, Window, Visual *, int));
extern Cursor XCreatePixmapCursor _ANSI_ARGS_((Display *, Pixmap, Pixmap, XColor *, XColor *, unsigned int, unsigned int));
extern Cursor XCreateGlyphCursor _ANSI_ARGS_((Display *, Font, Font, unsigned int, unsigned int, XColor const *, XColor const *));
extern Font XLoadFont _ANSI_ARGS_((Display *, const char *));
extern GC XCreateGC _ANSI_ARGS_((Display *, Drawable, long unsigned int, XGCValues *));
extern GContext XGContextFromGC _ANSI_ARGS_((GC));
extern Pixmap XCreateBitmapFromData _ANSI_ARGS_((Display *, Drawable, const char *, unsigned int, unsigned int));
extern Window XCreateWindow _ANSI_ARGS_((Display *, Window, int, int, unsigned int, unsigned int, unsigned int, int, unsigned int, Visual *, long unsigned int, XSetWindowAttributes *));
extern Atom *XListProperties _ANSI_ARGS_((Display *, Window, int *));
extern XHostAddress *XListHosts _ANSI_ARGS_((Display *, int *, int *));
extern KeySym XKeycodeToKeysym _ANSI_ARGS_((Display *, unsigned int, int));
extern KeySym XStringToKeysym _ANSI_ARGS_((const char *));
extern VisualID XVisualIDFromVisual _ANSI_ARGS_((Visual *));
extern Window XRootWindow _ANSI_ARGS_((Display *, int));
extern Visual *XDefaultVisual _ANSI_ARGS_((Display *, int));
extern Colormap XDefaultColormap _ANSI_ARGS_((Display *, int));
extern XErrorHandler XSetErrorHandler _ANSI_ARGS_((XErrorHandler));
extern int XIconifyWindow _ANSI_ARGS_((Display *, Window, int));
pTk/Xlib.h.solaris view on Meta::CPAN
extern char *XKeysymToString _ANSI_ARGS_((KeySym));
extern Atom XInternAtom _ANSI_ARGS_((Display *, const char *, int));
extern Colormap XCreateColormap _ANSI_ARGS_((Display *, Window, Visual *, int));
extern Cursor XCreatePixmapCursor _ANSI_ARGS_((Display *, Pixmap, Pixmap, XColor *, XColor *, unsigned int, unsigned int));
extern Cursor XCreateGlyphCursor _ANSI_ARGS_((Display *, Font, Font, unsigned int, unsigned int, XColor *, XColor *));
extern Font XLoadFont _ANSI_ARGS_((Display *, const char *));
extern GC XCreateGC _ANSI_ARGS_((Display *, Drawable, long unsigned int, XGCValues *));
extern GContext XGContextFromGC _ANSI_ARGS_((GC));
extern Pixmap XCreatePixmap _ANSI_ARGS_((Display *, Drawable, unsigned int, unsigned int, unsigned int));
extern Pixmap XCreateBitmapFromData _ANSI_ARGS_((Display *, Drawable, const char *, unsigned int, unsigned int));
extern Window XCreateWindow _ANSI_ARGS_((Display *, Window, int, int, unsigned int, unsigned int, unsigned int, int, unsigned int, Visual *, long unsigned int, XSetWindowAttributes *));
extern Atom *XListProperties _ANSI_ARGS_((Display *, Window, int *));
extern XHostAddress *XListHosts _ANSI_ARGS_((Display *, int *, int *));
extern KeySym XKeycodeToKeysym _ANSI_ARGS_((Display *, unsigned int, int));
extern KeySym XStringToKeysym _ANSI_ARGS_((const char *));
extern VisualID XVisualIDFromVisual _ANSI_ARGS_((Visual *));
extern Window XRootWindow _ANSI_ARGS_((Display *, int));
extern XErrorHandler XSetErrorHandler _ANSI_ARGS_((XErrorHandler));
extern int XIconifyWindow _ANSI_ARGS_((Display *, Window, int));
extern int XWithdrawWindow _ANSI_ARGS_((Display *, Window, int));
extern int XGetWMColormapWindows _ANSI_ARGS_((Display *, Window, Window **, int *));
# define XCreatePixmapCursor (*XlibVptr->V_XCreatePixmapCursor)
#endif
#ifndef DO_X_EXCLUDE
#ifndef XCreateRegion
# define XCreateRegion (*XlibVptr->V_XCreateRegion)
#endif
#endif /* !DO_X_EXCLUDE */
#ifndef DO_X_EXCLUDE
#ifndef XCreateWindow
# define XCreateWindow (*XlibVptr->V_XCreateWindow)
#endif
#endif /* !DO_X_EXCLUDE */
#ifndef DO_X_EXCLUDE
#ifndef XDefaultColormap
# define XDefaultColormap (*XlibVptr->V_XDefaultColormap)
#endif
#endif /* !DO_X_EXCLUDE */
#ifndef DO_X_EXCLUDE
VFUNC(Cursor,XCreatePixmapCursor,V_XCreatePixmapCursor,_ANSI_ARGS_((Display *, Pixmap, Pixmap, XColor *, XColor *, unsigned int, unsigned int)))
#endif /* #ifndef XCreatePixmapCursor */
#ifndef DO_X_EXCLUDE
#ifndef XCreateRegion
VFUNC(Region,XCreateRegion,V_XCreateRegion,_ANSI_ARGS_((void)))
#endif /* #ifndef XCreateRegion */
#endif /* !DO_X_EXCLUDE */
#ifndef DO_X_EXCLUDE
#ifndef XCreateWindow
VFUNC(Window,XCreateWindow,V_XCreateWindow,_ANSI_ARGS_((Display *, Window, int, int, unsigned int, unsigned int, unsigned int, int, unsigned int, Visual *, long unsigned int, XSetWindowAttributes *)))
#endif /* #ifndef XCreateWindow */
#endif /* !DO_X_EXCLUDE */
#ifndef DO_X_EXCLUDE
#ifndef XDefaultColormap
VFUNC(Colormap,XDefaultColormap,V_XDefaultColormap,_ANSI_ARGS_((Display *, int)))
#endif /* #ifndef XDefaultColormap */
#endif /* !DO_X_EXCLUDE */
#ifndef DO_X_EXCLUDE
#ifndef XDefaultDepth
pTk/mTk/generic/tk.decls view on Meta::CPAN
}
declare 41 generic {
void Tk_CreateSelHandler (Tk_Window tkwin,
Atom selection, Atom target,
Tk_SelectionProc *proc, ClientData clientData,
Atom format)
}
declare 42 generic {
Tk_Window Tk_CreateWindow (Tcl_Interp *interp,
Tk_Window parent, CONST char *name, CONST char *screenName)
}
declare 43 generic {
Tk_Window Tk_CreateWindowFromPath (Tcl_Interp *interp, Tk_Window tkwin,
CONST char *pathName, CONST char *screenName)
}
declare 44 generic {
int Tk_DefineBitmap (Tcl_Interp *interp, CONST char *name,
CONST char *source, int width, int height)
}
declare 45 generic {
void Tk_DefineCursor (Tk_Window window, Tk_Cursor cursor)
pTk/mTk/generic/tkBind.c view on Meta::CPAN
*/
goto nextEvent;
}
}
goto nextSequence;
}
}
goto nextEvent;
}
if (eventPtr->xany.type == CreateNotify
&& eventPtr->xcreatewindow.parent != window) {
goto nextSequence;
} else
if (eventPtr->xany.window != window) {
goto nextSequence;
}
/*
* Note: it's important for the keysym check to go before
* the modifier check, so we can ignore unwanted modifier
* keys before choking on the modifier check.
pTk/mTk/generic/tkButton.c view on Meta::CPAN
if (objc < 2) {
Tcl_WrongNumArgs(interp, 1, objv, "pathName ?options?");
return TCL_ERROR;
}
/*
* Create the new window.
*/
tkwin = Tk_CreateWindowFromPath(interp, Tk_MainWindow(interp),
Tcl_GetString(objv[1]), (char *) NULL);
if (tkwin == NULL) {
return TCL_ERROR;
}
/*
* Create the option table for this widget class. If it has already
* been created, the cached pointer will be returned.
*/
pTk/mTk/generic/tkCanvas.c view on Meta::CPAN
if (typeList == NULL) {
InitCanvas();
}
if (argc < 2) {
Tcl_WrongNumArgs(interp, 1, argv, "pathName ?options?");
return TCL_ERROR;
}
new = Tk_CreateWindowFromPath(interp, tkwin,
Tcl_GetString(objv[1]), (char *) NULL);
if (new == NULL) {
return TCL_ERROR;
}
/*
* Initialize fields that won't be initialized by ConfigureCanvas,
* or which ConfigureCanvas expects to have reasonable values
* (e.g. resource pointers).
*/
pTk/mTk/generic/tkClipboard.c view on Meta::CPAN
dispPtr->clipTargetPtr = NULL;
dispPtr->clipboardActive = 0;
dispPtr->clipboardAppPtr = NULL;
/*
* Create the window used for clipboard ownership and selection retrieval,
* and set up an event handler for it.
*/
dispPtr->clipWindow = Tk_CreateWindow(interp, (Tk_Window) NULL,
"_clip", DisplayString(dispPtr->display));
if (dispPtr->clipWindow == NULL) {
return TCL_ERROR;
}
Tcl_Preserve((ClientData) dispPtr->clipWindow);
atts.override_redirect = True;
Tk_ChangeWindowAttributes(dispPtr->clipWindow, CWOverrideRedirect, &atts);
Tk_MakeWindowExist(dispPtr->clipWindow);
if (dispPtr->multipleAtom == None) {
pTk/mTk/generic/tkDecls.h view on Meta::CPAN
EXTERN void Tk_CreateItemType _ANSI_ARGS_((Tk_ItemType * typePtr));
/* 40 */
EXTERN void Tk_CreatePhotoImageFormat _ANSI_ARGS_((
Tk_PhotoImageFormat * formatPtr));
/* 41 */
EXTERN void Tk_CreateSelHandler _ANSI_ARGS_((Tk_Window tkwin,
Atom selection, Atom target,
Tk_SelectionProc * proc,
ClientData clientData, Atom format));
/* 42 */
EXTERN Tk_Window Tk_CreateWindow _ANSI_ARGS_((Tcl_Interp * interp,
Tk_Window parent, CONST char * name,
CONST char * screenName));
/* 43 */
EXTERN Tk_Window Tk_CreateWindowFromPath _ANSI_ARGS_((
Tcl_Interp * interp, Tk_Window tkwin,
CONST char * pathName,
CONST char * screenName));
/* 44 */
EXTERN int Tk_DefineBitmap _ANSI_ARGS_((Tcl_Interp * interp,
CONST char * name, CONST char * source,
int width, int height));
/* 45 */
EXTERN void Tk_DefineCursor _ANSI_ARGS_((Tk_Window window,
Tk_Cursor cursor));
pTk/mTk/generic/tkEntry.c view on Meta::CPAN
register Entry *entryPtr;
Tk_OptionTable optionTable;
Tk_Window tkwin;
char *tmp;
if (objc < 2) {
Tcl_WrongNumArgs(interp, 1, objv, "pathName ?options?");
return TCL_ERROR;
}
tkwin = Tk_CreateWindowFromPath(interp, Tk_MainWindow(interp),
Tcl_GetString(objv[1]), (char *) NULL);
if (tkwin == NULL) {
return TCL_ERROR;
}
/*
* Create the option table for this widget class. If it has already
* been created, Tk will return the cached value.
*/
pTk/mTk/generic/tkListbox.c view on Meta::CPAN
{
register Listbox *listPtr;
Tk_Window tkwin;
ListboxOptionTables *optionTables;
if (objc < 2) {
Tcl_WrongNumArgs(interp, 1, objv, "pathName ?options?");
return TCL_ERROR;
}
tkwin = Tk_CreateWindowFromPath(interp, Tk_MainWindow(interp),
Tcl_GetString(objv[1]), (char *) NULL);
if (tkwin == NULL) {
return TCL_ERROR;
}
optionTables = (ListboxOptionTables *)
Tcl_GetAssocData(interp, "ListboxOptionTables", NULL);
if (optionTables == NULL) {
/*
* We haven't created the option tables for this widget class yet.
pTk/mTk/generic/tkMenu.c view on Meta::CPAN
!= TCL_ERROR) {
if ((Tcl_GetIndexFromObj(NULL, objv[i + 1], menuTypeStrings, NULL,
0, &index) == TCL_OK) && (index == MENUBAR)) {
toplevel = 0;
}
break;
}
}
windowName = Tcl_GetStringFromObj(objv[1], NULL);
new = Tk_CreateWindowFromPath(interp, tkwin, windowName, toplevel ? ""
: NULL);
if (new == NULL) {
return TCL_ERROR;
}
/*
* Initialize the data structure for the menu. Note that the
* menuPtr is eventually freed in 'TkMenuEventProc' in tkMenuDraw.c,
* when Tcl_EventuallyFree is called.
*/
pTk/mTk/generic/tkMenubutton.c view on Meta::CPAN
if (objc < 2) {
Tcl_WrongNumArgs(interp, 1, objv, "pathName ?options?");
return TCL_ERROR;
}
/*
* Create the new window.
*/
tkwin = Tk_CreateWindowFromPath(interp, Tk_MainWindow(interp),
Tcl_GetString(objv[1]), (char *) NULL);
if (tkwin == NULL) {
return TCL_ERROR;
}
/*
* Create the option table for this widget class. If it has already
* been created, the cached pointer will be returned.
*/
pTk/mTk/generic/tkMessage.c view on Meta::CPAN
{
register Message *msgPtr;
Tk_OptionTable optionTable;
Tk_Window tkwin;
if (objc < 2) {
Tcl_WrongNumArgs(interp, 1, objv, "pathName ?options?");
return TCL_ERROR;
}
tkwin = Tk_CreateWindowFromPath(interp, Tk_MainWindow(interp),
Tcl_GetString(objv[1]), (char *) NULL);
if (tkwin == NULL) {
return TCL_ERROR;
}
/*
* Create the option table for this widget class. If it has already
* been created, the cached pointer will be returned.
*/
pTk/mTk/generic/tkPanedWindow.c view on Meta::CPAN
{
PanedWindow *pwPtr;
Tk_Window tkwin, parent;
OptionTables *pwOpts;
if (objc < 2) {
Tcl_WrongNumArgs(interp, 1, objv, "pathName ?options?");
return TCL_ERROR;
}
tkwin = Tk_CreateWindowFromPath(interp, Tk_MainWindow(interp),
Tcl_GetStringFromObj(objv[1], NULL), (char *) NULL);
if (tkwin == NULL) {
return TCL_ERROR;
}
pwOpts = (OptionTables *)
Tcl_GetAssocData(interp, "PanedWindowOptionTables", NULL);
if (pwOpts == NULL) {
/*
* The first time this procedure is invoked, the option tables will
pTk/mTk/generic/tkScale.c view on Meta::CPAN
{
register TkScale *scalePtr;
Tk_OptionTable optionTable;
Tk_Window tkwin;
if (objc < 2) {
Tcl_WrongNumArgs(interp, 1, objv, "pathName ?options?");
return TCL_ERROR;
}
tkwin = Tk_CreateWindowFromPath(interp, Tk_MainWindow(interp),
Tcl_GetString(objv[1]), (char *) NULL);
if (tkwin == NULL) {
return TCL_ERROR;
}
/*
* Create the option table for this widget class. If it has already
* been created, the cached pointer will be returned.
*/
pTk/mTk/generic/tkScrollbar.c view on Meta::CPAN
Tk_Window tkwin = (Tk_Window) clientData;
register TkScrollbar *scrollPtr;
Tk_Window new;
if (argc < 2) {
Tcl_AppendResult(interp, "wrong # args: should be \"",
argv[0], " pathName ?options?\"", (char *) NULL);
return TCL_ERROR;
}
new = Tk_CreateWindowFromPath(interp, tkwin, argv[1], (char *) NULL);
if (new == NULL) {
return TCL_ERROR;
}
Tk_SetClass(new, "Scrollbar");
scrollPtr = TkpCreateScrollbar(new);
Tk_SetClassProcs(new, &tkpScrollbarProcs, (ClientData) scrollPtr);
/*
pTk/mTk/generic/tkSquare.c view on Meta::CPAN
{
Square *squarePtr;
Tk_Window tkwin;
Tk_OptionTable optionTable;
if (objc < 2) {
Tcl_WrongNumArgs(interp, 1, objv, "pathName ?options?");
return TCL_ERROR;
}
tkwin = Tk_CreateWindowFromPath(interp, Tk_MainWindow(interp),
Tcl_GetStringFromObj(objv[1], NULL), (char *) NULL);
if (tkwin == NULL) {
return TCL_ERROR;
}
Tk_SetClass(tkwin, "Square");
/*
* Create the option table for this widget class. If it has
* already been created, the refcount will get bumped and just
* the pointer will be returned. The refcount getting bumped
pTk/mTk/generic/tkStubInit.c view on Meta::CPAN
Tk_CoordsToWindow, /* 32 */
Tk_CreateBinding, /* 33 */
Tk_CreateBindingTable, /* 34 */
Tk_CreateErrorHandler, /* 35 */
Tk_CreateEventHandler, /* 36 */
Tk_CreateGenericHandler, /* 37 */
Tk_CreateImageType, /* 38 */
Tk_CreateItemType, /* 39 */
Tk_CreatePhotoImageFormat, /* 40 */
Tk_CreateSelHandler, /* 41 */
Tk_CreateWindow, /* 42 */
Tk_CreateWindowFromPath, /* 43 */
Tk_DefineBitmap, /* 44 */
Tk_DefineCursor, /* 45 */
Tk_DeleteAllBindings, /* 46 */
Tk_DeleteBinding, /* 47 */
Tk_DeleteBindingTable, /* 48 */
Tk_DeleteErrorHandler, /* 49 */
Tk_DeleteEventHandler, /* 50 */
Tk_DeleteGenericHandler, /* 51 */
Tk_DeleteImage, /* 52 */
Tk_DeleteSelHandler, /* 53 */
pTk/mTk/generic/tkTest.c view on Meta::CPAN
"-synonym", (char *) NULL, (char *) NULL,
(char *) NULL, 0, -1, 0, (ClientData) "-color",
0x8000},
{TK_OPTION_END}
};
Tk_OptionTable optionTable;
Tk_Window tkwin;
optionTable = Tk_CreateOptionTable(interp,
typesSpecs);
tables[index] = optionTable;
tkwin = Tk_CreateWindowFromPath(interp, (Tk_Window) clientData,
Tcl_GetStringFromObj(objv[2], NULL), (char *) NULL);
if (tkwin == NULL) {
return TCL_ERROR;
}
Tk_SetClass(tkwin, "Test");
recordPtr = (TypesRecord *) ckalloc(sizeof(TypesRecord));
recordPtr->header.interp = interp;
recordPtr->header.optionTable = optionTable;
recordPtr->header.tkwin = tkwin;
view all matches for this distributionview release on metacpan - search on metacpan