GroovX: src/tk/tclpkg-widget.cc Source File

00001 
00003 
00004 //
00005 // Copyright (c) 2003-2004 California Institute of Technology
00006 // Copyright (c) 2004-2007 University of Southern California
00007 // Rob Peters <rjpeters at usc dot edu>
00008 //
00009 // created: Wed May 28 14:45:26 2003
00010 // commit: $Id: tclpkg-widget.cc 10065 2007-04-12 05:54:56Z rjpeters $
00011 // $HeadURL: file:///lab/rjpeters/svnrepo/code/trunk/groovx/src/tk/tclpkg-widget.cc $
00012 //
00013 // --------------------------------------------------------------------
00014 //
00015 // This file is part of GroovX.
00016 //   [http://ilab.usc.edu/rjpeters/groovx/]
00017 //
00018 // GroovX is free software; you can redistribute it and/or modify it
00019 // under the terms of the GNU General Public License as published by
00020 // the Free Software Foundation; either version 2 of the License, or
00021 // (at your option) any later version.
00022 //
00023 // GroovX is distributed in the hope that it will be useful, but
00024 // WITHOUT ANY WARRANTY; without even the implied warranty of
00025 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
00026 // General Public License for more details.
00027 //
00028 // You should have received a copy of the GNU General Public License
00029 // along with GroovX; if not, write to the Free Software Foundation,
00030 // Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
00031 //
00033 
00034 #ifndef GROOVX_TK_TCLPKG_WIDGET_CC_UTC20050628165845_DEFINED
00035 #define GROOVX_TK_TCLPKG_WIDGET_CC_UTC20050628165845_DEFINED
00036 
00037 #include "tk/tclpkg-widget.h"
00038 
00039 #include "tcl/objpkg.h"
00040 #include "tcl/pkg.h"
00041 #include "tk/widget.h"
00042 
00043 #include "rutz/fstring.h"
00044 
00045 #include "rutz/trace.h"
00046 
00047 extern "C"
00048 int Tkwidget_Init(Tcl_Interp* interp)
00049 {
00050 GVX_TRACE("Tkwidget_Init");
00051 
00052   GVX_PKG_CREATE(pkg, interp, "TkWidget", "4.$Revision: 10065 $");
00053 
00054   pkg->inherit_pkg("Obj");
00055   tcl::def_basic_type_cmds<tcl::TkWidget>(pkg, SRC_POS);
00056 
00057   pkg->def( "bind", "event_sequence binding_script", &tcl::TkWidget::bind, SRC_POS );
00058 
00059   pkg->def_get_set("cursor", &tcl::TkWidget::getCursor, &tcl::TkWidget::setCursor, SRC_POS);
00060   pkg->def_action("destroy", &tcl::TkWidget::destroyWidget, SRC_POS);
00061   pkg->def_action("grabKeyboard", &tcl::TkWidget::grabKeyboard, SRC_POS);
00062   pkg->def_get_set("height", &tcl::TkWidget::height, &tcl::TkWidget::setHeight, SRC_POS);
00063   pkg->def_action("loseFocus", &tcl::TkWidget::loseFocus, SRC_POS);
00064   pkg->def_action("maximize", &tcl::TkWidget::maximize, SRC_POS);
00065   pkg->def_action("minimize", &tcl::TkWidget::minimize, SRC_POS);
00066   pkg->def_getter("pathname", &tcl::TkWidget::pathname, SRC_POS);
00067   pkg->def_getter("pixelsPerInch", &tcl::TkWidget::pixelsPerInch, SRC_POS);
00068   pkg->def_action("unpack", &tcl::TkWidget::unpack, SRC_POS);
00069   pkg->def("repack", "pack_args", &tcl::TkWidget::repack, SRC_POS);
00070   pkg->def_action("takeFocus", &tcl::TkWidget::takeFocus, SRC_POS);
00071   pkg->def("warpPointer", "objref x y", &tcl::TkWidget::warpPointer, SRC_POS);
00072   pkg->def_get_set("width", &tcl::TkWidget::width, &tcl::TkWidget::setWidth, SRC_POS);
00073   pkg->def_action("winInfo", &tcl::TkWidget::winInfo, SRC_POS);
00074 
00075   pkg->def_action("hook", &tcl::TkWidget::hook, SRC_POS);
00076 
00077   GVX_PKG_RETURN(pkg);
00078 }
00079 
00080 static const char __attribute__((used)) vcid_groovx_tk_tclpkg_widget_cc_utc20050628165845[] = "$Id: tclpkg-widget.cc 10065 2007-04-12 05:54:56Z rjpeters $ $HeadURL: file:
00081 #endif // !GROOVX_TK_TCLPKG_WIDGET_CC_UTC20050628165845_DEFINED