diff options
| author | lecoanet | 2003-03-31 15:56:01 +0000 |
|---|---|---|
| committer | lecoanet | 2003-03-31 15:56:01 +0000 |
| commit | 5cc459c9d6af72783f9d9febee9d3a8129bcfd35 (patch) | |
| tree | c0d659a94e6bc66da81b452bc809560ad1e003d0 /demos/tkZincLogo.tcl | |
| parent | 90834467e88065c377170df0ba7514489d1f15b6 (diff) | |
| download | tkzinc-5cc459c9d6af72783f9d9febee9d3a8129bcfd35.zip tkzinc-5cc459c9d6af72783f9d9febee9d3a8129bcfd35.tar.gz tkzinc-5cc459c9d6af72783f9d9febee9d3a8129bcfd35.tar.bz2 tkzinc-5cc459c9d6af72783f9d9febee9d3a8129bcfd35.tar.xz | |
Ajourt de script et petites corrections
Diffstat (limited to 'demos/tkZincLogo.tcl')
| -rw-r--r-- | demos/tkZincLogo.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/demos/tkZincLogo.tcl b/demos/tkZincLogo.tcl index 2e72f36..96891f3 100644 --- a/demos/tkZincLogo.tcl +++ b/demos/tkZincLogo.tcl @@ -13,11 +13,11 @@ if {![info exists zincDemo]} { package require zincLogo -set w .zincLogo +set w .tkZincLogo catch {destroy $w} toplevel $w wm title $w "Zinc logo Demonstration" -wm iconname $w zincLogo +wm iconname $w tkZincLogo set defaultfont "-adobe-helvetica-bold-r-normal-*-120-*-*-*-*-*-*" |