Posted to tcl by zipguy at Thu Nov 21 17:47:10 GMT 2013view pretty
set _TT(pgm) "TT" set _TT(pgmName) "$_TT(pgm) - Tkcon test" set _TT(verMajor) "0" set _TT(verMinor) "01" set _TT(minutae) "a" # -- update checker variables set _TT(thisVerNumeric) $_TT(verMajor)$_TT(verMinor) # -- Display Version variables set _TT(ver) "v$_TT(verMajor).$_TT(verMinor)$_TT(minutae)" set _TT(pgmNameFull) "$_TT(pgmName) $_TT(ver)" set _TT(asofdate) "2013/11/21" namespace eval ::tkcon {} # we want to have only the main interpreter set ::tkcon::OPT(exec) "" source tkcon.tcl package require tkcon # set ::tkcon::PRIV(root) .con.tkcon ;# optional---defaults to .tkcon wm title . $_TT(pgmNameFull) set f .a frame $f pack $f # set ::tkcon::PRIV(root) .con ;# optional---defaults to .tkcon label $f.a -width 80 pack $f.a button $f.b -text Console -command { tkcon show } pack $f.b set f .con frame $f -bg seashell2 pack $f -side bottom label $f.a -text "this is above where I'd like the console to go" -bg seashell2 pack $f.a -fill both # set ::tkcon::PRIV(root) .tkcon ;# optional---defaults to .tkcon set ::tkcon::PRIV(root) .con.tkcon ;# optional---defaults to .tkcon # tkcon show # tkcon gets