Lines Matching defs:framePtr
324 static void ComputeFrameGeometry _ANSI_ARGS_((Frame *framePtr));
326 Frame *framePtr, int objc, Tcl_Obj *CONST objv[]));
331 static void DestroyFramePartly _ANSI_ARGS_((Frame *framePtr));
486 Frame *framePtr;
645 framePtr = (Frame *) ckalloc(sizeof(Labelframe));
646 memset((void *) framePtr, 0, (sizeof(Labelframe)));
648 framePtr = (Frame *) ckalloc(sizeof(Frame));
649 memset((void *) framePtr, 0, (sizeof(Frame)));
651 framePtr->tkwin = new;
652 framePtr->display = Tk_Display(new);
653 framePtr->interp = interp;
654 framePtr->widgetCmd = Tcl_CreateObjCommand(interp,
656 (ClientData) framePtr, FrameCmdDeletedProc);
657 framePtr->optionTable = optionTable;
658 framePtr->type = type;
659 framePtr->colormap = colormap;
660 framePtr->relief = TK_RELIEF_FLAT;
661 framePtr->cursor = None;
663 if (framePtr->type == TYPE_LABELFRAME) {
664 Labelframe *labelframePtr = (Labelframe *) framePtr;
672 Tk_SetClassProcs(new, &frameClass, (ClientData) framePtr);
678 Tk_CreateEventHandler(new, mask, FrameEventProc, (ClientData) framePtr);
679 if ((Tk_InitOptions(interp, (char *) framePtr, optionTable, new)
681 (ConfigureFrame(interp, framePtr, objc-2, objv+2) != TCL_OK)) {
684 if ((framePtr->isContainer)) {
685 if (framePtr->useThis == NULL) {
686 TkpMakeContainer(framePtr->tkwin);
694 Tcl_DoWhenIdle(MapFrame, (ClientData) framePtr);
738 register Frame *framePtr = (Frame *) clientData;
751 Tcl_Preserve((ClientData) framePtr);
759 objPtr = Tk_GetOptionValue(interp, (char *) framePtr,
760 framePtr->optionTable, objv[2], framePtr->tkwin);
771 objPtr = Tk_GetOptionInfo(interp, (char *) framePtr,
772 framePtr->optionTable,
774 framePtr->tkwin);
802 || ((c == 's') && (framePtr->type == TYPE_TOPLEVEL)
804 || ((c == 'u') && (framePtr->type == TYPE_TOPLEVEL)
814 result = ConfigureFrame(interp, framePtr, objc-2, objv+2);
821 Tcl_Release((ClientData) framePtr);
848 register Frame *framePtr = (Frame *) memPtr;
851 if (framePtr->type == TYPE_LABELFRAME) {
854 Tk_FreeGC(framePtr->display, labelframePtr->textGC);
857 if (framePtr->colormap != None) {
858 Tk_FreeColormap(framePtr->display, framePtr->colormap);
860 ckfree((char *) framePtr);
884 DestroyFramePartly(framePtr)
885 Frame *framePtr; /* Info about frame widget. */
887 register Labelframe *labelframePtr = (Labelframe *) framePtr;
889 if (framePtr->type == TYPE_LABELFRAME && labelframePtr->labelWin != NULL) {
891 FrameStructureProc, (ClientData) framePtr);
894 if (framePtr->tkwin != Tk_Parent(labelframePtr->labelWin)) {
895 Tk_UnmaintainGeometry(labelframePtr->labelWin, framePtr->tkwin);
901 Tk_FreeConfigOptions((char *) framePtr, framePtr->optionTable,
902 framePtr->tkwin);
921 * etc. get set for framePtr; old resources get freed, if there
928 ConfigureFrame(interp, framePtr, objc, objv)
930 register Frame *framePtr; /* Information about widget; may or may
938 Labelframe *labelframePtr = (Labelframe *) framePtr;
944 if (framePtr->menuName == NULL) {
947 oldMenuName = ckalloc(strlen(framePtr->menuName) + 1);
948 strcpy(oldMenuName, framePtr->menuName);
951 if (framePtr->type == TYPE_LABELFRAME) {
954 if (Tk_SetOptions(interp, (char *) framePtr,
955 framePtr->optionTable, objc, objv,
956 framePtr->tkwin, &savedOptions, (int *) NULL) != TCL_OK) {
969 if (((oldMenuName == NULL) && (framePtr->menuName != NULL))
970 || ((oldMenuName != NULL) && (framePtr->menuName == NULL))
971 || ((oldMenuName != NULL) && (framePtr->menuName != NULL)
972 && strcmp(oldMenuName, framePtr->menuName) != 0)) {
973 TkSetWindowMenuBar(interp, framePtr->tkwin, oldMenuName,
974 framePtr->menuName);
981 if (framePtr->border != NULL) {
982 Tk_SetBackgroundFromBorder(framePtr->tkwin, framePtr->border);
984 Tk_SetWindowBackgroundPixmap(framePtr->tkwin, None);
987 if (framePtr->highlightWidth < 0) {
988 framePtr->highlightWidth = 0;
990 if (framePtr->padX < 0) {
991 framePtr->padX = 0;
993 if (framePtr->padY < 0) {
994 framePtr->padY = 0;
1002 if (framePtr->type == TYPE_LABELFRAME) {
1006 FrameStructureProc, (ClientData) framePtr);
1009 Tk_UnmaintainGeometry(oldWindow, framePtr->tkwin);
1023 for (ancestor = framePtr->tkwin; ;
1041 if (labelframePtr->labelWin == framePtr->tkwin) {
1046 (ClientData) framePtr);
1048 (ClientData) framePtr);
1063 FrameWorldChanged((ClientData) framePtr);
1091 Frame *framePtr = (Frame *) instanceData;
1092 Labelframe *labelframePtr = (Labelframe *) framePtr;
1093 Tk_Window tkwin = framePtr->tkwin;
1100 anyTextLabel = (framePtr->type == TYPE_LABELFRAME) &&
1103 anyWindowLabel = (framePtr->type == TYPE_LABELFRAME) &&
1106 if (framePtr->type == TYPE_LABELFRAME) {
1118 Tk_FreeGC(framePtr->display, labelframePtr->textGC);
1149 if (labelframePtr->labelReqHeight < framePtr->borderWidth) {
1150 labelframePtr->labelReqHeight = framePtr->borderWidth;
1153 if (labelframePtr->labelReqWidth < framePtr->borderWidth) {
1154 labelframePtr->labelReqWidth = framePtr->borderWidth;
1164 framePtr->borderWidth + framePtr->highlightWidth;
1166 bWidthLeft += framePtr->padX;
1167 bWidthRight += framePtr->padX;
1168 bWidthTop += framePtr->padY;
1169 bWidthBottom += framePtr->padY;
1177 framePtr->borderWidth;
1182 bWidthTop += labelframePtr->labelReqHeight - framePtr->borderWidth;
1188 framePtr->borderWidth;
1191 bWidthLeft += labelframePtr->labelReqWidth - framePtr->borderWidth;
1199 ComputeFrameGeometry(framePtr);
1205 if (framePtr->type == TYPE_LABELFRAME) {
1208 int padding = framePtr->highlightWidth;
1209 if (framePtr->borderWidth > 0) {
1210 padding += framePtr->borderWidth + LABELMARGIN;
1216 minheight += framePtr->borderWidth + framePtr->highlightWidth;
1219 minwidth += framePtr->borderWidth + framePtr->highlightWidth;
1224 if ((framePtr->width > 0) || (framePtr->height > 0)) {
1225 Tk_GeometryRequest(tkwin, framePtr->width, framePtr->height);
1229 if (!(framePtr->flags & REDRAW_PENDING)) {
1230 Tcl_DoWhenIdle(DisplayFrame, (ClientData) framePtr);
1232 framePtr->flags |= REDRAW_PENDING;
1250 * Display-related numbers get changed in *framePtr.
1256 ComputeFrameGeometry(framePtr)
1257 register Frame *framePtr; /* Information about widget. */
1262 Labelframe *labelframePtr = (Labelframe *) framePtr;
1268 if (framePtr->type != TYPE_LABELFRAME) return;
1272 tkwin = framePtr->tkwin;
1281 padding = framePtr->highlightWidth;
1282 if (framePtr->borderWidth > 0) {
1283 padding += framePtr->borderWidth + LABELMARGIN;
1315 padding = framePtr->highlightWidth;
1342 if (framePtr->borderWidth > 0) {
1343 padding += framePtr->borderWidth + LABELMARGIN;
1401 register Frame *framePtr = (Frame *) clientData;
1402 register Tk_Window tkwin = framePtr->tkwin;
1407 framePtr->flags &= ~REDRAW_PENDING;
1408 if ((framePtr->tkwin == NULL) || !Tk_IsMapped(tkwin)
1409 || framePtr->isContainer) {
1417 hlWidth = framePtr->highlightWidth;
1422 bgGC = Tk_GCForColor(framePtr->highlightBgColorPtr,
1424 if (framePtr->flags & GOT_FOCUS) {
1425 fgGC = Tk_GCForColor(framePtr->highlightColorPtr,
1439 if (framePtr->border == NULL) return;
1441 if (framePtr->type != TYPE_LABELFRAME) {
1448 TkpDrawFrame(tkwin, framePtr->border, hlWidth,
1449 framePtr->borderWidth, framePtr->relief);
1451 Labelframe *labelframePtr = (Labelframe *) framePtr;
1466 pixmap = Tk_GetPixmap(framePtr->display, Tk_WindowId(tkwin),
1476 Tk_Fill3DRectangle(tkwin, pixmap, framePtr->border, 0, 0,
1491 bdX2 -= (labelframePtr->labelBox.width - framePtr->borderWidth)
1502 bdY1 += (labelframePtr->labelBox.height - framePtr->borderWidth +1)
1508 bdY2 -= (labelframePtr->labelBox.height - framePtr->borderWidth)
1512 bdX1 += (labelframePtr->labelBox.width - framePtr->borderWidth)
1521 Tk_Draw3DRectangle(tkwin, pixmap, framePtr->border, bdX1, bdY1,
1522 bdX2 - bdX1, bdY2 - bdY1, framePtr->borderWidth,
1523 framePtr->relief);
1531 framePtr->border, labelframePtr->labelBox.x,
1547 TkSetRegion(framePtr->display, labelframePtr->textGC,
1551 Tk_DrawTextLayout(framePtr->display, pixmap,
1557 XSetClipMask(framePtr->display, labelframePtr->textGC, None);
1566 if (framePtr->tkwin == Tk_Parent(labelframePtr->labelWin)) {
1581 Tk_MaintainGeometry(labelframePtr->labelWin, framePtr->tkwin,
1595 XCopyArea(framePtr->display, pixmap, Tk_WindowId(tkwin),
1600 Tk_FreePixmap(framePtr->display, pixmap);
1631 register Frame *framePtr = (Frame *) clientData;
1636 ComputeFrameGeometry(framePtr);
1639 if (framePtr->menuName != NULL) {
1640 TkSetWindowMenuBar(framePtr->interp, framePtr->tkwin,
1641 framePtr->menuName, NULL);
1642 ckfree(framePtr->menuName);
1643 framePtr->menuName = NULL;
1645 if (framePtr->tkwin != NULL) {
1662 DestroyFramePartly(framePtr);
1664 Tk_DeleteEventHandler(framePtr->tkwin,
1666 FrameEventProc, (ClientData) framePtr);
1667 framePtr->tkwin = NULL;
1668 Tcl_DeleteCommandFromToken(framePtr->interp, framePtr->widgetCmd);
1670 if (framePtr->flags & REDRAW_PENDING) {
1671 Tcl_CancelIdleCall(DisplayFrame, (ClientData) framePtr);
1673 Tcl_CancelIdleCall(MapFrame, (ClientData) framePtr);
1674 Tcl_EventuallyFree((ClientData) framePtr, DestroyFrame);
1677 framePtr->flags |= GOT_FOCUS;
1678 if (framePtr->highlightWidth > 0) {
1684 framePtr->flags &= ~GOT_FOCUS;
1685 if (framePtr->highlightWidth > 0) {
1690 TkpSetMainMenubar(framePtr->interp, framePtr->tkwin,
1691 framePtr->menuName);
1696 if ((framePtr->tkwin != NULL) && !(framePtr->flags & REDRAW_PENDING)) {
1697 Tcl_DoWhenIdle(DisplayFrame, (ClientData) framePtr);
1698 framePtr->flags |= REDRAW_PENDING;
1725 Frame *framePtr = (Frame *) clientData;
1726 Tk_Window tkwin = framePtr->tkwin;
1728 if (framePtr->menuName != NULL) {
1729 TkSetWindowMenuBar(framePtr->interp, framePtr->tkwin,
1730 framePtr->menuName, NULL);
1731 ckfree(framePtr->menuName);
1732 framePtr->menuName = NULL;
1748 DestroyFramePartly(framePtr);
1750 framePtr->tkwin = NULL;
1777 Frame *framePtr = (Frame *) clientData;
1786 Tcl_Preserve((ClientData) framePtr);
1797 if (framePtr->tkwin == NULL) {
1798 Tcl_Release((ClientData) framePtr);
1802 Tk_MapWindow(framePtr->tkwin);
1803 Tcl_Release((ClientData) framePtr);
1834 Frame *framePtr;
1835 framePtr = (Frame*) winPtr->instanceData;
1836 if (framePtr == NULL) {
1840 framePtr->menuName);
1910 Frame *framePtr = (Frame *) clientData;
1912 FrameWorldChanged((ClientData) framePtr);
1939 Frame *framePtr = (Frame *) clientData;
1950 if (framePtr->tkwin != Tk_Parent(labelframePtr->labelWin)) {
1951 Tk_UnmaintainGeometry(labelframePtr->labelWin, framePtr->tkwin);
1956 FrameWorldChanged((ClientData) framePtr);
1987 Frame *framePtr;
1995 framePtr = (Frame *) cmdInfo.objClientData;
1996 if (framePtr->type != TYPE_TOPLEVEL) {
1999 return framePtr->tkwin;