anon/tests
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added 'C_C++/Tcl/width_vs_bg.tcl'

Browse Source
This commit is contained in:
anon 2024-07-22 19:39:19 +02:00
parent 0ed4acc7be
commit 3b3b6d0da9
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
C_C++/Tcl/width_vs_bg.tcl Normal file
View File

@ -0,0 +1,13 @@
package require Tk
set tileWidth 50
set wallWidth 10
canvas .c11 -width $::tileWidth -height $::tileWidth
.c11 create line 0 0 0 $::tileWidth -fill black -width $::wallWidth
#canvas .c12 -width $::wallWidth -height $::tileWidth -bg black
canvas .c12 -width $::tileWidth -height $::tileWidth
.c12 create line 0 0 0 $::tileWidth -fill black -width $::wallWidth
grid .c11 -row 1 -column 1
grid .c12 -row 1 -column 2