Tk Library Source Code

Artifact dc05ed40e690872bb80a7827299a2bd6e89b3cf3:

Attachment "tkchat.tilev3.diff" to ticket [1196564fff] added by wildcard_25 2005-05-09 14:02:18.

---

Index: tkchat.tcl
===================================================================
RCS file: /cvsroot/tcllib/tclapps/apps/tkchat/tkchat.tcl,v
retrieving revision 1.287
diff -u -d -r1.287 tkchat.tcl
--- tkchat.tcl	7 May 2005 20:19:06 -0000	1.287
+++ tkchat.tcl	9 May 2005 06:19:47 -0000
@@ -61,11 +61,7 @@
         rename ::$cmd ::tk::$cmd
     }
     if {![catch {package require tile 0.5}]} {
-        if {[namespace exists ::ttk]} {
-            namespace import -force ttk::*
-        } else {
-            namespace import -force tile::*
-        }
+	namespace import -force ttk::*
     }
     foreach cmd {label radiobutton entry} {
         if {[llength [info command ::$cmd]] < 1} {
@@ -2310,20 +2306,11 @@
 
 proc ::tkchat::MakeScrolledWidget {w args} {
     global Options
-    if {[package provide tile] != {}} {
-        if {[info commands ttk::scrollbar] eq {}} {
-            set sbcmd ttk::scrollbar
-        } else {
-            set sbcmd tscrollbar
-        }
-    } else {
-	set sbcmd scrollbar
-    }
 
     set parent [winfo parent $w]
     for {set n 0} {[winfo exists $parent.f$n]} {incr n} {}
     set f [frame $parent.f$n]
-    set vs [$sbcmd $f.vs -orient vertical -command [list $w yview]]
+    set vs [scrollbar $f.vs -orient vertical -command [list $w yview]]
     $w configure -yscrollcommand [list $vs set]
     raise $w $f