From f141eeb7b94171ddf608f642e10e5ab4407265d0 Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Wed, 22 Apr 2009 04:16:12 +0000 Subject: quick object to make it really easy to show/hide the Tk console using a toggle svn path=/trunk/externals/hcs/; revision=11090 --- tkconsole-help.pd | 9 +++++++++ tkconsole.pd | 19 +++++++++++++++++++ 2 files changed, 28 insertions(+) create mode 100644 tkconsole-help.pd create mode 100644 tkconsole.pd diff --git a/tkconsole-help.pd b/tkconsole-help.pd new file mode 100644 index 0000000..8bed715 --- /dev/null +++ b/tkconsole-help.pd @@ -0,0 +1,9 @@ +#N canvas 625 186 450 300 10; +#X obj 183 165 tkconsole; +#X obj 183 142 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +1; +#X text 24 18 The Tcl/Tk Wish Shell \, which Pd's GUI is built on top +of \, provides an interactive console. In this console you can run +Tcl code on the live GUI. This object makes it easy to show and hide +the Tk console.; +#X connect 1 0 0 0; diff --git a/tkconsole.pd b/tkconsole.pd new file mode 100644 index 0000000..7cc4d28 --- /dev/null +++ b/tkconsole.pd @@ -0,0 +1,19 @@ +#N canvas 641 54 450 300 10; +#X obj 184 52 route float; +#X obj 184 76 select 0; +#X obj 184 23 inlet; +#X msg 185 166 console \$1; +#X obj 229 97 bang; +#X obj 185 209 hcs/sys_gui; +#X msg 229 120 show; +#X msg 185 120 hide; +#X obj 185 143 symbol; +#X connect 0 0 1 0; +#X connect 1 0 7 0; +#X connect 1 1 4 0; +#X connect 2 0 0 0; +#X connect 3 0 5 0; +#X connect 4 0 6 0; +#X connect 6 0 8 0; +#X connect 7 0 8 0; +#X connect 8 0 3 0; -- cgit v1.2.1