From 47bb49fb410bdc4333931805c2c3df2192d604c3 Mon Sep 17 00:00:00 2001
From: jenglish <jenglish@flightlab.com>
Date: Sat, 17 Nov 2007 19:19:15 +0000
Subject: Add mandatory 8.5-isms.

---
 library/ttk/scrollbar.tcl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/library/ttk/scrollbar.tcl b/library/ttk/scrollbar.tcl
index b901325..db07eb9 100644
--- a/library/ttk/scrollbar.tcl
+++ b/library/ttk/scrollbar.tcl
@@ -1,5 +1,5 @@
 #
-# $Id: scrollbar.tcl,v 1.2 2007/11/17 19:17:50 jenglish Exp $
+# $Id: scrollbar.tcl,v 1.3 2007/11/17 19:19:15 jenglish Exp $
 #
 # Bindings for TScrollbar widget
 #
@@ -11,14 +11,14 @@
 if {[tk windowingsystem] eq "aqua"} {
     rename ::ttk::scrollbar ::ttk::_scrollbar
     proc ttk::scrollbar {w args} {
-	set constructor ::scrollbar
+	set constructor ::tk::scrollbar
 	foreach {option _} $args {
 	    if {$option eq "-class" || $option eq "-style"} {
 		set constructor ::ttk::_scrollbar
 		break
 	    }
 	}
-	return [eval [linsert $args 0 $constructor $w]]
+	return [$constructor $w {*}$args]
     }
 }
 
-- 
cgit v0.12