Tk Library Source Code

Artifact 5a3cdcb15a17bc7113f0ba8732bb2628ce595e57:

Attachment "tkchat.tilev2.diff" to ticket [1196564fff] added by wildcard_25 2005-05-07 23:24:25.

---

Index: tkchat.tcl
===================================================================
RCS file: /cvsroot/tcllib/tclapps/apps/tkchat/tkchat.tcl,v
retrieving revision 1.285
diff -u -d -r1.285 tkchat.tcl
--- tkchat.tcl	4 May 2005 16:58:45 -0000	1.285
+++ tkchat.tcl	7 May 2005 15:50:04 -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} {
@@ -2327,16 +2323,11 @@
 
 proc ::tkchat::MakeScrolledWidget {w args} {
     global Options
-    if {[package provide tile] != {}} {
-	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