lib_tcl/widget/console.tcl

200     widget add Console option {-prompt prompt Prompt {[history nextid] % }}
202     widget add Console option {-prompt prompt Prompt \
206 widget add Console option [list -abouttitle aboutTitle AboutTitle \
470 	    EvalSlave history add $cmd
508 	$w tag add stdin limit end-1c
626     $w.pop add cascade -label $l -underline 0 -menu $w.pop.$n
629 	$m add command -label "Console $W" -state disabled
630 	$m add command -label "Clear Console " -underline 1 \
633 	$m add command -label "Load File" -underline 0 \
635 	$m add cascade -label "Save ..." -underline 0 -menu $m.save
636 	$m add separator
637 	$m add cascade -label "Attach Console" -underline 7 -menu $m.apps \
639 	$m add cascade -label "Attach Namespace" -underline 7 -menu $m.name \
641 	$m add separator
642 	$m add command -label "Exit" -underline 1 \
650 	$s add command -label "All"	-underline 0 \
652 	$s add command -label "History"	-underline 0 \
654 	$s add command -label "Stdin"	-underline 3 \
656 	$s add command -label "Stdout"	-underline 3 \
658 	$s add command -label "Stderr"	-underline 3 \
682     $w.pop add cascade -label $l -underline 0 -menu $w.pop.$n
684 	$m add command -label "Cut"   -underline 1 \
687 	$m add command -label "Copy"  -underline 1 \
690 	$m add command -label "Paste" -underline 0 \
693 	$m add separator
694 	$m add command -label "Find"  -underline 0 \
697 	$m add separator
698 	$m add command -label "Last Error" -underline 0 \
707     $w.pop add cascade -label $l -underline 0 -menu $w.pop.$n
709 	$m add checkbutton -label "Brace Highlighting" \
711 	$m add checkbutton -label "Command Highlighting" \
713 	$m add checkbutton -label "Grab Puts Output" \
717 	$m add checkbutton -label "History Substitution" \
719 	$m add checkbutton -label "Show Multiple Matches" \
721 	$m add checkbutton -label "Show Menubar" \
732     $w.pop add cascade -label $l -underline 0 -menu $w.pop.$n
743     $w.pop add cascade -label $l -underline 0 -menu $w.pop.$n
746 	$m add command -label "About " -underline 0 \
795 	$w add command -label "$id: $lbl" -command [namespace code "
1378     event add $ev $key
1583 	$w tag add proc $i "insert-1c wordend"
1588 	$w tag add var $i "insert-1c wordend"
1677     eval $w tag add blink $args