C_C++
Cerbian
Tcl
dynamic
button_help.c
button_help.tcl
colorPicker.tcl
exit.tcl
optvar.tcl
overdefinition.tcl
return.c
return.tcl
width_vs_bg.tcl
anon_-_poller
autoconfig
bison
compile_times
cpp_zh
emil_header_guards
flex
linking
sds
1st_day_of_month.cpp
JJbY.cpp
Tp6G.cpp
access.c
alternatice_bracket.c
arrows.cpp
auto_variad.c
c.php
c_old_argument_notation.c
clear_bindings.c
cnn.c
comment_as_space.c
comp.c
compare_to.py
conditional_const.c
const.c
correct_c_equivalent.c
cpp_regex_error.cpp
current_year.cpp
dda2.cpp
does_freeing_a_const_char_pointer_warn_or_is_it_a_footgun_under_gcc.c
dog.jpg
dog2.jpg
eh.cpp
else_while.c
finalize_reprepare.c
for_ctags.cpp
for_nop_true.c
free_null.c
function_pointer_strategy.c
function_pointer_strategy2.c
gcc_include_next.c
gdb_graph.c
getopt_test.c
getter_example.cpp
gnu_decimals.c
gnu_history.c
gnu_regex.c
gnu_regex2.c
header.h
highlight.c
hw.c
index_in_initializer_list_compiler_extension.c
int.ino
is_embed_finally_here.c
is_extern_c_retarded.c
is_this_what_you_are_asking_emil.c
knr.c
levenshtein_dist_-_usage.cpp
macro_paren.c
magic.c
main.ino
manual_unrolling.c
map_initialization.cpp
ncurses_labels.c
ncurses_mv_win.cpp
ncurses_out_of_bounds.c
ncurses_plus_readline.cpp
ncurses_resize2.cpp
ncurses_resize_hello_world.cpp
ncurses_resize_test.c
ncurses_scroll.c
ncurses_text_subwin_overflow.c
nf.c
no_way.cpp
null_printf.c
null_printf.cpp
pointer_array.c
portable_namespace.c
portable_namespace.h
printf_star.c
process_renaming.c
pta.c
raylib_hw.cpp
re2c_test.c
re2c_test2.c
readline_rl_redisplay_function_NULL.c
scoping_showcase.c
screen_size_(without_curses).c
sdl_render_to_texture.cpp
self_pointer.c
sentinel_pack.c
servo1.ino
setjmp_test.cpp
shebang.c
signals.c
strategiless.c
strcmp_vs_tricks.c
strdup.c
string_repetition
tcc_int.c
test.c
typedef.c
unctrl.c
undefined_reference.c
usb.c
vasprintf.c
void_main.c
x.cpp
xtermio.c
xtp.cpp
Haskell
Java
LaTeX
Misc.
Python
Vim
Webdev
git
.gitignore
Makefile
13 lines
279 B
Tcl
13 lines
279 B
Tcl
#package require Tk
|
|
#
|
|
#canvas .board -width 50 -height 50
|
|
#.board create line 0 0 0 50 -fill black -width 10
|
|
|
|
package require Tk
|
|
|
|
set a "-width 10"
|
|
|
|
canvas .board -width 50 -height 50
|
|
#.board create line 0 0 0 50 -fill black $a
|
|
.board create line 0 0 0 50 -fill black {*}[set a]
|