--- lang/langen (revisión: 8340)
+++ lang/langen (copia de trabajo)
@@ -484,9 +484,9 @@
logsmileys Displays Emoticons and Smileys in aMSN's history windows
logsout has just logged out
logwebcam Save all webcam sessions to aMSN's History for future viewing
-longnick Your nickname is longer than 130 characters. This is not officially supported by the MSN protocol. Are you sure you want to set it?
-longp4c Your Friendly Name is longer than 130 characters. The Friendly Name that will appear on the official MSN client will be $1. Are you sure you want to set it?
-longpsm Your personal message is too long. This is not officially supported by the MSN protocol. Are you sure you want to set it?
+longnick Your nickname is too long. Maximum supported by the MSN protocol is 130 characters and current characters are $1. Are you sure you want to set it?
+longp4c Your Friendly Name is too long. Maximum supported by the MSN protocol is 130 characters and current characters are $1. Are you sure you want to set it?
+longpsm Your personal message is too long. Maximum supported by the MSN protocol is 130 characters and current characters are $1. Are you sure you want to set it?
lowrescam Use a low-resolution webcam
lprivtoconf Private chat turned into Conference with $1
luclosedwin You have closed the window on $1
First, we shouldn't change lang keys since lang translators won't know that change.
Then, we should add a character counter while writing nick/psm ...
--- gui.tcl (revisión: 8340)
+++ gui.tcl (copia de trabajo)
@@ -5219,7 +5219,7 @@
@@ -5219,7 +5219,7 @@
frame $w.fb
button $w.fb.ok -text [trans ok] -command change_name_ok
- button $w.fb.cancel -text [trans cancel] -command "destroy $w"
+ button $w.fb.cancel -text [trans cancel] -command "destroy $w; destroy .smile_selector"
pack $w.fb.cancel -side right -padx [list 5 0 ]
pack $w.fb.ok -side right
@@ -5288,6 +5290,8 @@
::config::setKey p4c_name $friendly
destroy .change_name
+ destroy .smile_selector
+
}
#///////////////////////////////////////////////////////////////////////
Ok, but better if we withdraw it.
--- skins.tcl (revisión: 8340)
+++ skins.tcl (copia de trabajo)
@@ -987,7 +987,7 @@
label $w.getmore -text "[trans getmoreskins]" -fg #0000FF -cursor hand2
- button $w.ok -text "[trans ok]" -command "::skinsGUI::SelectSkinOk $w"
+ button $w.ok -text "[trans ok]" -command "::skinsGUI::SelectSkinOk $w $select"
button $w.cancel -text "[trans cancel]" -command "::skinsGUI::SelectSkinCancel $w"
checkbutton $w.preview -text "[trans preview]" -variable ::skin::preview_skin_change -onvalue 1 -offvalue 0
@@ -1025,7 +1025,8 @@
$w.main.right.box selection set $select
$w.main.right.box itemconfigure $select -background #AAAAAA
}
-
+
+ $w.ok configure -command "::skinsGUI::SelectSkinOk $w $select"
::skinsGUI::DoPreview 1
bind $w <Destroy> "grab release $w"
bind $w.main.right.box <Button1-ButtonRelease> "::skinsGUI::DoPreview"
@@ -1124,21 +1125,27 @@
# This procedure is called when OK in skin selector is pressed.
# Arguments:
# - w => Path of the widget skin selector.
- proc SelectSkinOk { w } {
+ proc SelectSkinOk { w select } {
if { [$w.main.right.box curselection] == "" } {
$w.status configure -text "[trans selectskin]"
} else {
$w.status configure -text ""
set skinidx [$w.main.right.box curselection]
set skin [lindex [lindex [::skin::FindSkins] $skinidx] 0]
- status_log "Chose skin No $skinidx : $skin\n"
- config::setGlobalKey skin $skin
- save_config
- ::config::saveGlobal
- unset ::skin::skin_reloaded_needs_reset
- ::skin::reloadSkin $skin
- destroy $w
- ClearPreview
+ # This avoid reloading current skin
+ if { $skinidx == $select } {
+ ::skinsGUI::SelectSkinCancel $w
+ } else {
+ status_log "Chose skin No $skinidx : $skin\n"
+ config::setGlobalKey skin $skin
+ save_config
+ ::config::saveGlobal
+ unset ::skin::skin_reloaded_needs_reset
+ ::skin::reloadSkin $skin
+ destroy $w
+ ClearPreview
+ }
+
}
}
But if you add a new skin, without reloading amsn, and choose the skin at the exactly same position, it'll fail.
--- groups.tcl (revisión: 8340)
+++ groups.tcl (copia de trabajo)
@@ -196,6 +196,7 @@
pack .dlgthis.data .dlgthis.buttons -side top
moveinscreen .dlgthis 30
+ focus .dlgthis.data.ent
}
ok
--- groups.tcl (revisión: 8340)
+++ groups.tcl (copia de trabajo)
@@ -208,7 +209,7 @@
# The submenu of standard group actions
menu .group_handler -tearoff 0 -type normal
.group_handler add command -label "[trans groupadd]..." -command ::groups::dlgAddGroup
- if {$gid != "online" & $gid != "offline"} {
+ if {$gid != "online" && $gid != "offline" && $gid != "mobile" && $gid != "0"} {
.group_handler add separator
.group_handler add command -label "[trans delete]" -command "::groups::Delete $gid dlgMsg"
.group_handler add command -label "[trans rename]..." -command "::groups::dlgRenameThis $gid"
Ok
--- gui.tcl (revisión: 8340)
+++ gui.tcl (copia de trabajo)
@@ -6061,7 +6065,12 @@
.user_menu insert $start cascade -label "[trans moreactions]" -menu $actions
}
- tk_popup .user_menu $x $y
+ if {[expr {$y + 300}] > [winfo screenheight .]} {
+ set y [expr {$y - 300}]
+ }
+
+ tk_popup .user_menu $x $y
+
}
#///////////////////////////////////////////////////////////////////////
Ok
--- protocol.tcl (revisión: 8340)
+++ protocol.tcl (copia de trabajo)
@@ -2044,12 +2044,12 @@
}
- # Return a list of users in chat, or last user in chat is chat is closed
+ # Return a list of users in chat, or last user in chat if chat is closed
proc usersInChat { chatid } {
set sb [SBFor $chatid]
+ # If you are offline but you open a conversation... sb=0
if { $sb == 0 || [catch {$sb cget -name}] } {
- status_log "usersInChat: no SB for chat $chatid!! (shouldn't happen?)\n" white
- return [list]
+ return $chatid
}
No, or i don't understant what you want to do.