EMBED results from the CPAN

EMBED

Tk-TableMatrix

view release on metacpan or search on metacpan

pTk/mTk/Tktable/Makefile.in view on Meta::CPAN

TK_BUILD_LIB_SPEC	= @TK_BUILD_LIB_SPEC@

TCL_LIB_SPEC	= @TCL_LIB_SPEC@
TK_LIB_SPEC	= @TK_LIB_SPEC@

TCL_LIBS	= @TCL_LIBS@
TK_LIBS		= @TK_LIBS@

TBL_CFLAGS	= -O

## NO_EMBEDDED_RUNTIME means that the tkTable.tcl file will not be embedded
## into the executable, thus the default tkTable.tcl library file will not
## be available when the library is loaded.
## If this is defined, the tkTable.tcl file must be available in a
## predefined set of directories (see docs).
#TBL_CFLAGS	+= -DNO_EMBEDDED_RUNTIME

## USE_EXIT_HANDLER is necessary for 8.1 before b3 and 8.0
## It is a work-around for the improper unloading of DLLs when exiting
#TBL_CFLAGS	+= -DUSE_EXIT_HANDLER

## Experimental, not documented, not complete...
#TBL_CFLAGS	+= -DPROCS

## I use this for helping hunt down the slightest error
#TBL_CFLAGS	+= -DDEBUG -g -Wall -Wno-implicit -Wshadow \

pTk/mTk/Tktable/makefile.vc view on Meta::CPAN

# Set your version of Tcl

TCL_VERSION	= 8.1
TK_VERSION	= 8.1
TCL_LIB_V	= 81
TK_LIB_V	= 81

INST_RUNTIME	= $(DESTDIR)\lib\tkTable$(TBL_VERSION)
INST_RUNTIMEU	= $(DESTDIRU)/lib/tkTable$(TBL_VERSION)

# NO_EMBEDDED_RUNTIME means that the tkTable.tcl file will not be embedded
# into the executable, thus the default tkTable.tcl library file will not
# be available when the library is loaded.
# If this is defined, the tkTable.tcl file must be available in a
# predefined set of directories (see docs).
#TBL_CFLAGS	+= -DNO_EMBEDDED_RUNTIME

# comment the following line to compile with symbols
NODEBUG=1

# Necessary for some partially-installed VC++ setups:
#INCLUDE="$(TOOLS32)\include"
#LIB="$(TOOLS32)\lib"

#
# Visual C++ tools

pTk/mTk/Tktable/tkTable.h view on Meta::CPAN


#ifdef PROCS
    Tcl_HashTable *inProc;	/* cells where proc is being evaled */
    int showProcs;		/* whether to show embedded proc (1) or
				 * its calculated value (0) */
    int hasProcs;		/* whether table has embedded procs or not */
#endif
} Table;

/*
 * HEADERS FOR EMBEDDED WINDOWS
 */

/*
 * A structure of the following type holds information for each window
 * embedded in a table widget.
 */

typedef struct TableEmbWindow {
    Table *tablePtr;		/* Information about the overall table
				 * widget. */

pTk/mTk/Tktable/tkTableInitScript.h view on Meta::CPAN

	set try [file join $i $env(TK_TABLE_LIBRARY_FILE)]\n\
	if {[file exists $try]} {\n\
	    if {![catch {uplevel #0 [list source $try]} msg]} {\n\
		set env(TK_TABLE_LIBRARY) $i\n\
		return\n\
	    } else {\n\
		append errors \"$try: $msg\n$errorInfo\n\"\n\
	    }\n\
	}\n\
    }\n"
#ifdef NO_EMBEDDED_RUNTIME
"    set msg \"Can't find a $env(TK_TABLE_LIBRARY_FILE) in the following directories: \n\"\n\
    append msg \"    $dirs\n\n$errors\n\n\"\n\
    append msg \"This probably means that TkTable wasn't installed properly.\"\n\
    return -code error $msg\n"
#else
"    set env(TK_TABLE_LIBRARY) EMBEDDED_RUNTIME\n"
#   ifdef MAC_TCL
"    source -rsrc tkTable"
#   else
"    uplevel #0 {"
#	include "tkTable.tcl.h"
"    }"
#   endif
#endif
"  }\n\
}\n\
tkTableInit";

/*
 * The init script can't make certain calls in a safe interpreter,
 * so we always have to use the embedded runtime for it
 */
static char tkTableSafeInitScript[] = "if {[info proc tkTableInit]==\"\"} {\n\
  proc tkTableInit {} {\n\
    set env(TK_TABLE_LIBRARY) EMBEDDED_RUNTIME\n"
#ifdef NO_EMBEDDED_RUNTIME
"    append msg \"tkTable requires embedded runtime to be compiled for\"\n\
    append msg \" use in safe interpreters\"\n\
    return -code error $msg\n"
#endif
#   ifdef MAC_TCL
"    source -rsrc tkTable"
#   else
"    uplevel #0 {"
#	include "tkTable.tcl.h"
"    }"

pTk/mTk/Tktable800/Makefile.in view on Meta::CPAN

TK_BUILD_LIB_SPEC	= @TK_BUILD_LIB_SPEC@

TCL_LIB_SPEC	= @TCL_LIB_SPEC@
TK_LIB_SPEC	= @TK_LIB_SPEC@

TCL_LIBS	= @TCL_LIBS@
TK_LIBS		= @TK_LIBS@

TBL_CFLAGS	= -O

## NO_EMBEDDED_RUNTIME means that the tkTable.tcl file will not be embedded
## into the executable, thus the default tkTable.tcl library file will not
## be available when the library is loaded.
## If this is defined, the tkTable.tcl file must be available in a
## predefined set of directories (see docs).
#TBL_CFLAGS	+= -DNO_EMBEDDED_RUNTIME

## USE_EXIT_HANDLER is necessary for 8.1 before b3 and 8.0
## It is a work-around for the improper unloading of DLLs when exiting
#TBL_CFLAGS	+= -DUSE_EXIT_HANDLER

## Experimental, not documented, not complete...
#TBL_CFLAGS	+= -DPROCS

## I use this for helping hunt down the slightest error
#TBL_CFLAGS	+= -DDEBUG -g -Wall -Wno-implicit -Wshadow \

pTk/mTk/Tktable800/makefile.vc view on Meta::CPAN

# Set your version of Tcl

TCL_VERSION	= 8.1
TK_VERSION	= 8.1
TCL_LIB_V	= 81
TK_LIB_V	= 81

INST_RUNTIME	= $(DESTDIR)\lib\tkTable$(TBL_VERSION)
INST_RUNTIMEU	= $(DESTDIRU)/lib/tkTable$(TBL_VERSION)

# NO_EMBEDDED_RUNTIME means that the tkTable.tcl file will not be embedded
# into the executable, thus the default tkTable.tcl library file will not
# be available when the library is loaded.
# If this is defined, the tkTable.tcl file must be available in a
# predefined set of directories (see docs).
#TBL_CFLAGS	+= -DNO_EMBEDDED_RUNTIME

# comment the following line to compile with symbols
NODEBUG=1

# Necessary for some partially-installed VC++ setups:
#INCLUDE="$(TOOLS32)\include"
#LIB="$(TOOLS32)\lib"

#
# Visual C++ tools

pTk/mTk/Tktable800/tkTable.h view on Meta::CPAN


#ifdef PROCS
    Tcl_HashTable *inProc;	/* cells where proc is being evaled */
    int showProcs;		/* whether to show embedded proc (1) or
				 * its calculated value (0) */
    int hasProcs;		/* whether table has embedded procs or not */
#endif
} Table;

/*
 * HEADERS FOR EMBEDDED WINDOWS
 */

/*
 * A structure of the following type holds information for each window
 * embedded in a table widget.
 */

typedef struct TableEmbWindow {
    Table *tablePtr;		/* Information about the overall table
				 * widget. */

pTk/mTk/Tktable800/tkTableInitScript.h view on Meta::CPAN

	set try [file join $i $env(TK_TABLE_LIBRARY_FILE)]\n\
	if {[file exists $try]} {\n\
	    if {![catch {uplevel #0 [list source $try]} msg]} {\n\
		set env(TK_TABLE_LIBRARY) $i\n\
		return\n\
	    } else {\n\
		append errors \"$try: $msg\n$errorInfo\n\"\n\
	    }\n\
	}\n\
    }\n"
#ifdef NO_EMBEDDED_RUNTIME
"    set msg \"Can't find a $env(TK_TABLE_LIBRARY_FILE) in the following directories: \n\"\n\
    append msg \"    $dirs\n\n$errors\n\n\"\n\
    append msg \"This probably means that TkTable wasn't installed properly.\"\n\
    return -code error $msg\n"
#else
"    set env(TK_TABLE_LIBRARY) EMBEDDED_RUNTIME\n"
#   ifdef MAC_TCL
"    source -rsrc tkTable"
#   else
"    uplevel #0 {"
#	include "tkTable.tcl.h"
"    }"
#   endif
#endif
"  }\n\
}\n\
tkTableInit";

/*
 * The init script can't make certain calls in a safe interpreter,
 * so we always have to use the embedded runtime for it
 */
static char tkTableSafeInitScript[] = "if {[info proc tkTableInit]==\"\"} {\n\
  proc tkTableInit {} {\n\
    set env(TK_TABLE_LIBRARY) EMBEDDED_RUNTIME\n"
#ifdef NO_EMBEDDED_RUNTIME
"    append msg \"tkTable requires embedded runtime to be compiled for\"\n\
    append msg \" use in safe interpreters\"\n\
    return -code error $msg\n"
#endif
#   ifdef MAC_TCL
"    source -rsrc tkTable"
#   else
"    uplevel #0 {"
#	include "tkTable.tcl.h"
"    }"

pTk/tkTable.h view on Meta::CPAN


#ifdef PROCS
    Tcl_HashTable *inProc;	/* cells where proc is being evaled */
    int showProcs;		/* whether to show embedded proc (1) or
				 * its calculated value (0) */
    int hasProcs;		/* whether table has embedded procs or not */
#endif
} Table;

/*
 * HEADERS FOR EMBEDDED WINDOWS
 */

/*
 * A structure of the following type holds information for each window
 * embedded in a table widget.
 */

typedef struct TableEmbWindow {
    Table *tablePtr;		/* Information about the overall table
				 * widget. */

pod/TableMatrix.pod view on Meta::CPAN

similar to the B<configure> widget command except that it modifies options 
associated with the embedded window given by I<index> instead of modifying 
options for the overall table widget.  If no I<option> is specified, the 
command returns a list describing all of the available options for I<index 
> (see B<Tk_ConfigureInfo> for information on the format of this list).  If 
I<option> is specified with no I<value>, then the command returns a list describing 
the one named option (this list will be identical to the corresponding 
sublist of the value returned if no I<option> is specified).  If one or more 
I<option-value> pairs are specified, then the command modifies the given 
option(s) to have the given value(s) in I<index>; in this case the command 
returns an empty string. See EMBEDDED WINDOWS above for details on the 
options available for windows. 

=item I<$table>-E<gt>B<windowDelete>(I<index>, ?I<index, ...>?)

Deletes an embedded window from the table.  The associated window will 
also be deleted. 

=item I<$table>-E<gt>B<windowMove>(I<indexFrom, indexTo>)

Moves an embedded

( run in 2.885 seconds using v1.01-cache-2.11-cpan-71847e10f99 )