The modifications in:
*chatwindow.tcl : Adjust the bug that blocks to update correctly
${container}.bar. This also occurs when the option allowing to save the
chat-window dimension is disabled.
*loging.tcl : Add the scrollbar-x and the email address right near the
nickname. I just saw that a solution has been integrated in -r 8984 (
http://www.amsn-project.net/forums/viewtopic.php?t=3954 )
*gui.tcl : Add the "find button" in the chronology. (
http://www.amsn-project.net/forums/viewtopic.php?t=3958 )
Thanks, bye
Square87
Index: chatwindow.tcl
===================================================================
--- chatwindow.tcl (revision 8976)
+++ chatwindow.tcl (working copy)
@@ -533,26 +526,17 @@
after 200 [list ::ChatWindow::TopUpdate $chatid]
}
- set geometry [wm geometry $window]
- set pos_start [string first "+" $geometry]
- #Look if the window changed size with the configure
-
- if {[::config::getKey wincontainersize] != "[string range
$geometry 0 [expr {$pos_start-1}]]"} {
- set sizechanged 1
- } else {
- set sizechanged 0
- }
-
#Save size of current container
if { [::config::getKey savechatwinsize] } {
+ set geometry [wm geometry $window]
+ set pos_start [string first "+" $geometry]
::config::setKey wincontainersize [string range
$geometry 0 [expr {$pos_start-1}]]
}
- #If the window changed size use checkfortoomanytabs
- if { [winfo exists ${window}.bar] && $sizechanged} {
- CheckForTooManyTabs $window 0
+ if { [winfo exists ${window}.bar]} {
+ after cancel [list ::ChatWindow::CheckForTooManyTabs
$window 0]
+ after 200 [list ::ChatWindow::CheckForTooManyTabs
$window 0]
}
-
}
#///////////////////////////////////////////////////////////////////////////////
Index: loging.tcl
===================================================================
--- loging.tcl (revision 8976)
+++ loging.tcl (working copy)
@@ -520,6 +520,7 @@
ParseLog $wname $logvar
button $wname.buttons.close -text "[trans close]" -command
"destroy $wname"
+ button $wname.buttons.find -text "[trans find]" -command
"$wname.search show"
button $wname.buttons.stats -text "[trans stats]" -command
"::log::stats"
button $wname.buttons.save -text "[trans savetofile]" -command
"::log::SaveToFile ${wname} ${email} [list ${logvar}]"
button $wname.buttons.clear -text "[trans clearlog]" \
@@ -546,6 +547,7 @@
pack $wname.buttons.stats -padx 0 -side right
pack $wname.buttons.save -padx 0 -side right
pack $wname.buttons.clear -padx 0 -side right
+ pack $wname.buttons.find -padx 0 -side right
pack $wname.buttons -side bottom -fill x -pady 3
bind $wname <<Escape>> "destroy $wname"
bind ${wname}.blueframe.log.txt <<Button3>> "tk_popup
${wname}.copypaste %X %Y"
Index: gui.tcl
===================================================================
--- gui.tcl (revision 8976)
+++ gui.tcl (working copy)
@@ -2329,16 +2329,20 @@
frame $wname.blueframe.list -class Amsn -borderwidth 0
frame $wname.buttons -class Amsn
- listbox $wname.blueframe.list.items -yscrollcommand
"$wname.blueframe.list.ys set" -font splainf \
+ listbox $wname.blueframe.list.items -yscrollcommand
"$wname.blueframe.list.ys set" -xscrollcommand "$wname.blueframe.list.xs set"
-font splainf \
-background white -relief flat -highlightthickness 0
-height 20 -width 60
scrollbar $wname.blueframe.list.ys -command
"$wname.blueframe.list.items yview" -highlightthickness 0 \
-borderwidth 1 -elementborderwidth 1
+ scrollbar $wname.blueframe.list.xs -orient horizontal -command
"$wname.blueframe.list.items xview" -highlightthickness 0 \
+ -borderwidth 1 -elementborderwidth 1
+
button $wname.buttons.ok -text "[trans ok]" -command [list
::amsn::listChooseOk $wname $itemlist $command]
button $wname.buttons.cancel -text "[trans cancel]" -command
[list destroy $wname]
pack $wname.blueframe.list.ys -side right -fill y
+ pack $wname.blueframe.list.xs -side bottom -fill x
pack $wname.blueframe.list.items -side left -expand true -fill
both
pack $wname.blueframe.list -side top -expand true -fill both
-padx 4 -pady 4
pack $wname.blueframe -side top -expand true -fill both
@@ -2356,7 +2360,7 @@
pack $wname.buttons -side bottom -fill x -pady 3
foreach item $itemlist {
- $wname.blueframe.list.items insert end [lindex $item 0]
+ $wname.blueframe.list.items insert end "[lindex $item
0] - ([lindex $item 1])"
}
-------------------------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc.
Still grepping through log files to find problems? Stop.
Now Search log events and configuration files using AJAX and a browser.
Download your FREE copy of Splunk now >> http://get.splunk.com/
_______________________________________________
Amsn-devel mailing list
Amsn-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/amsn-devel
