Hi,
I noticed in the TODO list there was a item of "Option to display
or not the chat button bar". I have implemented this and done the
relevant translations for French and Spanish, However I'm not totally
sure of their accuracy. So if someone could be kind to apply my patch
:). And if anyone wants to help with any translations that would be
appreciated.
=== showhidechatbar.patch ===
Index: chatwindow.tcl
===================================================================
--- chatwindow.tcl (revision 8527)
+++ chatwindow.tcl (working copy)
@@ -1904,12 +1904,16 @@
# Create the other widgets for the bottom frame
set input [CreateInputFrame $w $leftframe]
- set buttons [CreateButtonBar $w $leftframe]
set picture [CreatePictureFrame $w $bottom]
- pack $buttons -side top -expand false -fill x -anchor n \
- -padx [::skin::getKey chat_buttons_padx] \
- -pady [::skin::getKey chat_buttons_pady]
+ if {[::config::getKey ShowButtonBar] == 1 } {
+ set buttons [CreateButtonBar $w $leftframe]
+
+ pack $buttons -side top -expand false -fill x
-anchor n \
+ -padx [::skin::getKey
chat_buttons_padx] \
+ -pady [::skin::getKey
chat_buttons_pady]
+ }
+
pack $input -side top -expand true -fill both -anchor n \
-padx [::skin::getKey chat_input_padx] \
-pady [::skin::getKey chat_input_pady]
@@ -1925,7 +1929,9 @@
#send chatwininput postevent
set evPar(input) $input
- set evPar(buttons) $buttons
+ if {[::config::getKey ShowButtonBar] == 1 } {
+ set evPar(buttons) $buttons
+ }
set evPar(picture) $picture
set evPar(window) "$w"
Index: lang/langen
===================================================================
--- lang/langen (revision 8527)
+++ lang/langen (working copy)
@@ -752,6 +752,7 @@
shareswebcam Shares webcam
showbanner Show aMSN's banner
showblockedlist Show list of people who blocked you
+showbuttonbar Show button bar in chats
showcachedpics Show cached display pictures
show_contactdps_in_cl Show thumbnails of contacts Display Pictures in
Contact List
showcontactemail Show Contacts with E-mail
Index: lang/langes
===================================================================
--- lang/langes (revision 8527)
+++ lang/langes (working copy)
@@ -756,6 +756,7 @@
shareswebcam Usuario con cámara web
showbanner Mostrar el cartel de aMSN en la lista de contactos
showblockedlist Mostrar contactos que te bloquean
+showbuttonbar Mostrar la barra del botón en charlas
showcachedpics Mostrar imágenes para mostrar almacenadas
show_contactdps_in_cl Mostrar miniaturas de las imágenes para mostrar
en la lista de contactos
showcontactemail Mostrar el email de los contactos
Index: lang/langfr
===================================================================
--- lang/langfr (revision 8527)
+++ lang/langfr (working copy)
@@ -752,6 +752,7 @@
shareswebcam Possède une webcam
showbanner Affiche la bannière d'aMSN
showblockedlist Voir la liste des personnes que vous avez bloqué
+showbuttonbar Montrer la barre de bouton dans les causeries
showcachedpics Afficher/Masquer les avatars cachés
show_contactdps_in_cl Montrer les avatars dans la liste des contacts
showcontactemail Voir les contacts par leur email
Index: preferences.tcl
===================================================================
--- preferences.tcl (revision 8527)
+++ preferences.tcl (working copy)
@@ -1698,8 +1698,12 @@
pack $lfname.4.mdy $lfname.4.dmy $lfname.4.ymd -side left -padx 10
checkbutton $lfname.5.dock -text "[trans trayicon]" -onvalue 1
-offvalue 0 -variable [::config::getVar dock]
+
+ checkbutton $lfname.5.showbuttonbar -text "[trans
showbuttonbar]" -onvalue 1 -offvalue 0 -variable [::config::getVar dock]
+
pack $lfname.5.dock -anchor w -side top -padx 10 -pady 0
+ pack $lfname.5.showbuttonbar -anchor w -side top -padx 10 -pady 0
pack $lfname.5 -side top -padx 0 -pady 0 -expand 1 -fill both
label $lfname.6.llook -text "[trans psmplace]" -padx 10
@@ -1710,7 +1714,8 @@
radiobutton $lfname.6.newline -text "[trans psmnewline]" -value
2 -variable [::config::getVar psmplace]
pack $lfname.6.dontshow $lfname.6.atend $lfname.6.newline
-anchor w -side top -padx 10
-
+
+
## Emoticons Frame ##
set lfname [labelframe $frm.lfname2 -text [trans prefemotic]]
pack $frm.lfname2 -anchor n -side top -expand 0 -fill x
Index: config.tcl
===================================================================
--- config.tcl (revision 8527)
+++ config.tcl (working copy)
@@ -43,6 +43,7 @@
;#Changed later for windows to 4
::config::setKey showmailicon 1
::config::setKey dock 1
+ ::config::setKey ShowButtonBar 1
::config::setKey show_contactdps_in_cl 0
::config::setKey autoresizedp 0
Index: TODO
===================================================================
--- TODO (revision 8527)
+++ TODO (working copy)
@@ -48,7 +48,7 @@
************************************************
** General issues **
-- Option to display or not the chat button bar
+DONE Option to display or not the chat button bar
- Add option to modify keepalive interval (in seconds)
DONE Make a Pure PNG Reader (will be used for buddy icons +
filetransfer previews, and maybe other stuff)
DONE In the Privacy tab, if 2 users have exactly the same nickname in
a listbox, we can control only the first user
Index: chatwindow.tcl
===================================================================
--- chatwindow.tcl (revision 8527)
+++ chatwindow.tcl (working copy)
@@ -1904,12 +1904,16 @@
# Create the other widgets for the bottom frame
set input [CreateInputFrame $w $leftframe]
- set buttons [CreateButtonBar $w $leftframe]
set picture [CreatePictureFrame $w $bottom]
- pack $buttons -side top -expand false -fill x -anchor n \
- -padx [::skin::getKey chat_buttons_padx] \
- -pady [::skin::getKey chat_buttons_pady]
+ if {[::config::getKey ShowButtonBar] == 1 } {
+ set buttons [CreateButtonBar $w $leftframe]
+
+ pack $buttons -side top -expand false -fill x -anchor n \
+ -padx [::skin::getKey chat_buttons_padx] \
+ -pady [::skin::getKey chat_buttons_pady]
+ }
+
pack $input -side top -expand true -fill both -anchor n \
-padx [::skin::getKey chat_input_padx] \
-pady [::skin::getKey chat_input_pady]
@@ -1925,7 +1929,9 @@
#send chatwininput postevent
set evPar(input) $input
- set evPar(buttons) $buttons
+ if {[::config::getKey ShowButtonBar] == 1 } {
+ set evPar(buttons) $buttons
+ }
set evPar(picture) $picture
set evPar(window) "$w"
Index: lang/langen
===================================================================
--- lang/langen (revision 8527)
+++ lang/langen (working copy)
@@ -752,6 +752,7 @@
shareswebcam Shares webcam
showbanner Show aMSN's banner
showblockedlist Show list of people who blocked you
+showbuttonbar Show button bar in chats
showcachedpics Show cached display pictures
show_contactdps_in_cl Show thumbnails of contacts Display Pictures in Contact List
showcontactemail Show Contacts with E-mail
Index: lang/langes
===================================================================
--- lang/langes (revision 8527)
+++ lang/langes (working copy)
@@ -756,6 +756,7 @@
shareswebcam Usuario con cámara web
showbanner Mostrar el cartel de aMSN en la lista de contactos
showblockedlist Mostrar contactos que te bloquean
+showbuttonbar Mostrar la barra del botón en charlas
showcachedpics Mostrar imágenes para mostrar almacenadas
show_contactdps_in_cl Mostrar miniaturas de las imágenes para mostrar en la lista de contactos
showcontactemail Mostrar el email de los contactos
Index: lang/langfr
===================================================================
--- lang/langfr (revision 8527)
+++ lang/langfr (working copy)
@@ -752,6 +752,7 @@
shareswebcam Possède une webcam
showbanner Affiche la bannière d'aMSN
showblockedlist Voir la liste des personnes que vous avez bloqué
+showbuttonbar Montrer la barre de bouton dans les causeries
showcachedpics Afficher/Masquer les avatars cachés
show_contactdps_in_cl Montrer les avatars dans la liste des contacts
showcontactemail Voir les contacts par leur email
Index: preferences.tcl
===================================================================
--- preferences.tcl (revision 8527)
+++ preferences.tcl (working copy)
@@ -1698,8 +1698,12 @@
pack $lfname.4.mdy $lfname.4.dmy $lfname.4.ymd -side left -padx 10
checkbutton $lfname.5.dock -text "[trans trayicon]" -onvalue 1 -offvalue 0 -variable [::config::getVar dock]
+
+ checkbutton $lfname.5.showbuttonbar -text "[trans showbuttonbar]" -onvalue 1 -offvalue 0 -variable [::config::getVar dock]
+
pack $lfname.5.dock -anchor w -side top -padx 10 -pady 0
+ pack $lfname.5.showbuttonbar -anchor w -side top -padx 10 -pady 0
pack $lfname.5 -side top -padx 0 -pady 0 -expand 1 -fill both
label $lfname.6.llook -text "[trans psmplace]" -padx 10
@@ -1710,7 +1714,8 @@
radiobutton $lfname.6.newline -text "[trans psmnewline]" -value 2 -variable [::config::getVar psmplace]
pack $lfname.6.dontshow $lfname.6.atend $lfname.6.newline -anchor w -side top -padx 10
-
+
+
## Emoticons Frame ##
set lfname [labelframe $frm.lfname2 -text [trans prefemotic]]
pack $frm.lfname2 -anchor n -side top -expand 0 -fill x
Index: config.tcl
===================================================================
--- config.tcl (revision 8527)
+++ config.tcl (working copy)
@@ -43,6 +43,7 @@
;#Changed later for windows to 4
::config::setKey showmailicon 1
::config::setKey dock 1
+ ::config::setKey ShowButtonBar 1
::config::setKey show_contactdps_in_cl 0
::config::setKey autoresizedp 0
Index: TODO
===================================================================
--- TODO (revision 8527)
+++ TODO (working copy)
@@ -48,7 +48,7 @@
************************************************
** General issues **
-- Option to display or not the chat button bar
+DONE Option to display or not the chat button bar
- Add option to modify keepalive interval (in seconds)
DONE Make a Pure PNG Reader (will be used for buddy icons + filetransfer previews, and maybe other stuff)
DONE In the Privacy tab, if 2 users have exactly the same nickname in a listbox, we can control only the first user
-------------------------------------------------------------------------
This SF.net email is sponsored by DB2 Express
Download DB2 Express C - the FREE version of DB2 express and take
control of your XML. No limits. Just data. Click to get it now.
http://sourceforge.net/powerbar/db2/
_______________________________________________
Amsn-devel mailing list
Amsn-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/amsn-devel
