[Tkabber-dev] r148 - trunk/plugins/customstatus

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Wed Oct 15 19:27:34 MSD 2008


Author: kostix
Date: 2008-10-15 19:27:34 +0400 (Wed, 15 Oct 2008)
New Revision: 148

Modified:
   trunk/plugins/customstatus/customstatus.tcl
Log:
customstatus/customstatus.tcl: Removed dead geometry-handling code.


Modified: trunk/plugins/customstatus/customstatus.tcl
===================================================================
--- trunk/plugins/customstatus/customstatus.tcl	2008-10-15 13:54:33 UTC (rev 147)
+++ trunk/plugins/customstatus/customstatus.tcl	2008-10-15 15:27:34 UTC (rev 148)
@@ -4,8 +4,6 @@
 # See licence.terms for the terms of distribution.
 # See README for details.
 
-option add *presencePresetsEditorGeometry    "600x380"    widgetDefault
-
 namespace eval customstatus {
 	# TODO change to "no" when releasing:
 	package require control
@@ -256,18 +254,6 @@
 	destroy $w
 }
 
-proc customstatus::bwidget_dialog_geo_hack w {
-	set x [winfo x $w]
-	set y [winfo y $w]
-
-	set geo [option get . presencePresetsEditorGeometry ""]
-	if {![regexp {^(\d+x\d+).*$} $geo -> sizes]} {
-		return -code error "bad geometry spec: $geo"
-	}
-
-	return $geo+$x+$y
-}
-
 proc customstatus::add_preset {w desc msg} {
 	variable presets
 	variable editor



More information about the Tkabber-dev mailing list