[Tkabber-dev] r1161 - trunk/tkabber

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sat Jul 21 01:14:04 MSD 2007


Author: sergei
Date: 2007-07-21 01:14:03 +0400 (Sat, 21 Jul 2007)
New Revision: 1161

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/datagathering.tcl
Log:
	* datagathering.tcl: Show descriptions in a balloon over the form
	  fields (closes: http://www.jabber.ru/bugzilla/show_bug.cgi?id=359).


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2007-07-17 11:00:57 UTC (rev 1160)
+++ trunk/tkabber/ChangeLog	2007-07-20 21:14:03 UTC (rev 1161)
@@ -1,3 +1,8 @@
+2007-07-21  Sergei Golovan  <sgolovan at nes.ru>
+
+	* datagathering.tcl: Show descriptions in a balloon over the form
+	  fields (closes: http://www.jabber.ru/bugzilla/show_bug.cgi?id=359).
+
 2007-07-17  Sergei Golovan  <sgolovan at nes.ru>
 
 	* plugins/richtext/urls.tcl: Added upcoming asia TLD and changed URL

Modified: trunk/tkabber/datagathering.tcl
===================================================================
--- trunk/tkabber/datagathering.tcl	2007-07-17 11:00:57 UTC (rev 1160)
+++ trunk/tkabber/datagathering.tcl	2007-07-20 21:14:03 UTC (rev 1161)
@@ -381,6 +381,9 @@
 	    }
 	    grid $g.entry$row  -row $row -column 1 -sticky we
 	    set widget $g.entry$row
+	    if {$desc != ""} {
+		balloon::setup $g.entry$row -text $desc
+	    }
 	}
 	jid-multi -
 	text-multi {
@@ -395,6 +398,9 @@
 	    grid $sw -row $row -column 1 -sticky we
 	    set data(text,$var,$g) $g.text$row
 	    set widget $g.text$row
+	    if {$desc != ""} {
+		balloon::setup $g.text$row -text $desc
+	    }
 	}
 	boolean {
 	    switch -- $data(var,$var,$g) {
@@ -420,13 +426,18 @@
 		-onvalue $onvalue -offvalue $offvalue
 	    grid $g.cb$row  -row $row -column 1 -sticky w
 	    set widget $g.cb$row
+	    if {$desc != ""} {
+		balloon::setup $g.cb$row -text $desc
+	    }
 	}
 	fixed {
 	    add_label $g $row $label $required
 	    catch { message $g.m$row -text [join $vals \n] -width 10c }
-	    grid $g.m$row -row $row -column 1 \
-		-sticky w
+	    grid $g.m$row -row $row -column 1 -sticky w
 	    set dont_report 1
+	    if {$desc != ""} {
+		balloon::setup $g.m$row -text $desc
+	    }
 	}
 	list-single {
 	    add_label $g $row $label $required
@@ -453,6 +464,9 @@
 		[list data::trace_combo $options \
 		     [namespace current]::data(var,$var,$g)]
 	    set widget $g.combo$row
+	    if {$desc != ""} {
+		balloon::setup $g.combo$row -text $desc
+	    }
 	}
 	list-multi {
 	    add_label $g $row $label $required
@@ -474,6 +488,9 @@
 		[list data::trace_listmulti %W $options \
 		     [namespace current]::data(var,$var,$g)]
 	    set widget $sw
+	    if {$desc != ""} {
+		balloon::setup $g.lb$row -text $desc
+	    }
 	}
 	hidden {}
 



More information about the Tkabber-dev mailing list