From 7253d5267ef3f7ea1f4adc008337acbca94cea2d Mon Sep 17 00:00:00 2001
From: hobbs <hobbs@noemail.net>
Date: Thu, 8 Aug 2002 01:43:30 +0000
Subject: * generic/tkPanedWindow.c (Tk_PanedWindowObjCmd): *
library/panedwindow.tcl: changed class from PanedWindow to Panedwindow to
not conflict with existing bwidgets, but also to be more regular with
other names used in the core.
FossilOrigin-Name: c5e500e1fd18750bd7263ac67fb4c5c7410021bd
---
generic/tkPanedWindow.c | 4 ++--
library/panedwindow.tcl | 20 ++++++++++----------
2 files changed, 12 insertions(+), 12 deletions(-)
diff --git a/generic/tkPanedWindow.c b/generic/tkPanedWindow.c
index 253a626..1f5f83c 100644
--- a/generic/tkPanedWindow.c
+++ b/generic/tkPanedWindow.c
@@ -12,7 +12,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkPanedWindow.c,v 1.7 2002/08/06 14:38:13 dkf Exp $
+ * RCS: @(#) $Id: tkPanedWindow.c,v 1.8 2002/08/08 01:43:31 hobbs Exp $
*/
#include "tkPort.h"
@@ -368,7 +368,7 @@ Tk_PanedWindowObjCmd(clientData, interp, objc, objv)
pwOpts->slaveOpts = Tk_CreateOptionTable(interp, slaveOptionSpecs);
}
- Tk_SetClass(tkwin, "PanedWindow");
+ Tk_SetClass(tkwin, "Panedwindow");
/*
* Allocate and initialize the widget record.
diff --git a/library/panedwindow.tcl b/library/panedwindow.tcl
index 073c47f..fd454be 100644
--- a/library/panedwindow.tcl
+++ b/library/panedwindow.tcl
@@ -3,21 +3,21 @@
# This file defines the default bindings for Tk panedwindow widgets and
# provides procedures that help in implementing those bindings.
#
-# RCS: @(#) $Id: panedwindow.tcl,v 1.5 2002/02/26 01:06:55 hobbs Exp $
+# RCS: @(#) $Id: panedwindow.tcl,v 1.6 2002/08/08 01:43:31 hobbs Exp $
#
-bind PanedWindow <Button-1> { ::tk::panedwindow::MarkSash %W %x %y 1 }
-bind PanedWindow <Button-2> { ::tk::panedwindow::MarkSash %W %x %y 0 }
+bind Panedwindow <Button-1> { ::tk::panedwindow::MarkSash %W %x %y 1 }
+bind Panedwindow <Button-2> { ::tk::panedwindow::MarkSash %W %x %y 0 }
-bind PanedWindow <B1-Motion> { ::tk::panedwindow::DragSash %W %x %y 1 }
-bind PanedWindow <B2-Motion> { ::tk::panedwindow::DragSash %W %x %y 0 }
+bind Panedwindow <B1-Motion> { ::tk::panedwindow::DragSash %W %x %y 1 }
+bind Panedwindow <B2-Motion> { ::tk::panedwindow::DragSash %W %x %y 0 }
-bind PanedWindow <ButtonRelease-1> {::tk::panedwindow::ReleaseSash %W 1}
-bind PanedWindow <ButtonRelease-2> {::tk::panedwindow::ReleaseSash %W 0}
+bind Panedwindow <ButtonRelease-1> {::tk::panedwindow::ReleaseSash %W 1}
+bind Panedwindow <ButtonRelease-2> {::tk::panedwindow::ReleaseSash %W 0}
-bind PanedWindow <Motion> { ::tk::panedwindow::Motion %W %x %y }
+bind Panedwindow <Motion> { ::tk::panedwindow::Motion %W %x %y }
-bind PanedWindow <Leave> { ::tk::panedwindow::Leave %W }
+bind Panedwindow <Leave> { ::tk::panedwindow::Leave %W }
# Initialize namespace
namespace eval ::tk::panedwindow {}
@@ -139,7 +139,7 @@ proc ::tk::panedwindow::Motion {w x y} {
# ::tk::panedwindow::Cursor --
#
# Handles returning the normal cursor when we are no longer over the
-# sash area. This needs to be done this way, because the PanedWindow
+# sash area. This needs to be done this way, because the panedwindow
# won't see Leave events when the mouse moves from the sash to a
# paned child, although the child does receive an Enter event.
#
--
cgit v0.12