~amsn-daily/amsn/amsn-packaging

::Version::setSubversionId {$Id$}

package require BWidget

#TODO:

#Put items frame and listbox in scrollbars!!

namespace eval Preferences {

	proc Show {} {

		if [winfo exists .prefs] {

			raise .prefs

			catch {focus -force .prefs}

			return

		}

		#Set pixmaps

		::skin::setPixmap prefpers prefpers.gif

		::skin::setPixmap prefprofile prefprofile.gif

		::skin::setPixmap preffont preffont.gif

		::skin::setPixmap prefphone prefphone.gif

		::skin::setPixmap preflook preflook.gif

		::skin::setPixmap prefemotic prefemotic.gif

		::skin::setPixmap prefalerts prefalerts.gif

		if { [LoginList exists 0 [::config::getKey login]] == 1 } {

			PreferencesWindow .prefs -title "[trans preferences] - [trans profiledconfig] - [::config::getKey login]" -savecommand ::Preferences::Save

		} else {

			PreferencesWindow .prefs -title "[trans preferences] - [trans defaultconfig] - [::config::getKey login]" -savecommand ::Preferences::Save

		}

		#####################################################

		# Section "Personal"

		#####################################################

		set section [PreferencesSection .prefs.personal -text [trans personal]]

		set frame [ItemsFrame .prefs.personal.nicks -text [trans prefname] -icon prefpers]

		$frame addItem [TextEntry .prefs.personal.nicks.nick -width 40 -text "[trans enternick] :" \

			-storecommand ::Preferences::StoreNick -retrievecommand [list ::abook::getPersonal MFN]]

		$frame addItem [TextEntry .prefs.personal.nicks.chat -width 40 -text "[trans friendlyname] :" \

			-variable [::config::getVar p4c_name]]

		$section addItem $frame

		set frame [ItemsFrame .prefs.personal.preffont -text [trans preffont] -icon preffont]

		$frame addItem [Label .prefs.personal.preffont.lab -text [trans preffont2] -align center]

		$frame addItem [CommandButton .prefs.personal.preffont.changefont -text [trans changefont] \

			-variable [::config::getVar mychatfont] -buttoncommand ::Preferences::ChangeFont]

		$frame addItem [CommandButton .prefs.personal.preffont.changeincomingfont -text [trans changefont] \

			-variable [::config::getVar theirchatfont] -buttoncommand ::Preferences::ChangeFont]

		$section addItem $frame

		set frame [ItemsFrame .prefs.personal.prefphone -text [trans prefphone] -icon prefphone]

		#$frame addItem [Label create .prefs.personal.prefphone.lab -text [trans prefphone2]]

		$frame addItem [TextEntry .prefs.personal.prefphone.home -text "[trans myhomephone]:" -width 20 \

			-retrievecommand [list ::abook::getPersonal PHH]]

		$frame addItem [TextEntry .prefs.personal.prefphone.work -text "[trans myworkphone]:" -width 20 \

			-retrievecommand [list ::abook::getPersonal PHW]]

		$frame addItem [TextEntry .prefs.personal.prefphone.mobile -text "[trans mymobilephone]:" -width 20 \

			-retrievecommand [list ::abook::getPersonal PHM]]

		$frame addItem [CheckBox .prefs.personal.prefphone.allowsms -text [trans allow_sms] \

			-onvalue "Y" -offvalue "N" -storecommand [list ::abook::setPhone pager] -retrievecommand [list ::abook::getPersonal MOB]]

		$section addItem $frame

		.prefs addSection $section

		####################################################

		# Section Interface

		#####################################################

		set section [PreferencesSection interface -text [trans appearance]]

		.prefs addSection $section

		set frame [ItemsFrame look -text [trans preflook] -icon preflook]

		$frame addItem [Label preflook.labenc -text "[trans encoding2]:" -align left]

		$frame addItem [CommandButton preflook.encoding -text [trans encoding] -align left\

			-variable [::config::getVar encoding] -buttoncommand ::Preferences::ChangeEncoding]

		$frame addItem [Label preflook.labfont -text "[trans preffont3]:" -align left]

		$frame addItem [CommandButton preflook.font -text [trans changefont] -align left\

			-variable [::config::getGlobalVar basefont] -buttoncommand ::Preferences::ChangeBaseFont]

		$frame addItem [Label preflook.labdate -text "[trans dateformat]:" -align left]

		$frame addItem [RadioGroup preflook.date \

			-texts [list "[trans month]/[trans day]/[trans year]" "[trans day]/[trans month]/[trans year]" "[trans year]/[trans month]/[trans day]"] \

			-values [list MDY DMY YMD] -variable [::config::getVar dateformat]]

		$section addItem $frame

		####################################################

		# Section ...

		#####################################################

		set section [PreferencesSection .prefs.caca -text "Test"]

		$section addSection [PreferencesSection .prefs.caca2 -text "Test2"]

		$section addSection [PreferencesSection .prefs.caca3 -text "Test3"]

		.prefs addSection $section

		.prefs show .prefs_window

		Configure 1

	}

	proc Configure { {fullinit 0} } {

		if {![winfo exists .prefs]} {

			return

		}

		if { $fullinit } {

			.prefs.personal.nicks.chat setValue [::config::getKey p4c_name]

			if { [::MSN::myStatusIs] == "FLN" } {

				.prefs.personal.nicks.nick configure -enabled 0

				.prefs.personal.prefphone.home configure -enabled 0

				.prefs.personal.prefphone.work configure -enabled 0

				.prefs.personal.prefphone.mobile configure -enabled 0

				.prefs.personal.prefphone.allowsms configure -enabled 0

			} else {

				.prefs.personal.nicks.nick configure -enabled 1

				.prefs.personal.prefphone.home configure -enabled 1

				.prefs.personal.prefphone.work configure -enabled 1

				.prefs.personal.prefphone.mobile configure -enabled 1

			}

			if { [::abook::getPersonal MBE] == "N" } {

				.prefs.personal.prefphone.allowsms -enabled 0

			}

		}

	}

	proc Save {} {

		set must_restart 0

		# Check and save phone numbers

		if { [::MSN::myStatusIs] != "FLN" } {

			#set lfname [Rnotebook:frame $nb $Preftabs(personal)]

			set home [urlencode [.prefs.personal.prefphone.home getValue]]

			set work [urlencode [.prefs.personal.prefphone.work getValue]]

			set mobile [urlencode [.prefs.personal.prefphone.mobile getValue]]

			if { $home != [::abook::getPersonal PHH] } {

				::abook::setPhone home $home

			}

			if { $work != [::abook::getPersonal PHW] } {

				::abook::setPhone work $work

			}

			if { $mobile != [::abook::getPersonal PHM] } {

				::abook::setPhone mobile $mobile

			}

		}

		if { [preflook.font getValue] != [::config::getGlobalKey basefont]} {

			set must_restart 1

		}

		if { $must_restart } {

			msg_box [trans mustrestart]

		}

		::Event::fireEvent changedPreferences gui

	}

	proc ChangeFont { currentfont } {

		#Get current font configuration

		set fontname [lindex $currentfont 0]

		set fontstyle [lindex $currentfont 1]

		set fontcolor [lindex $currentfont 2]

		if { [catch {

				set selfont_and_color [SelectFont .fontsel -parent .prefs_window -title [trans choosebasefont] -font [list $fontname 12 $fontstyle] -initialcolor "#$fontcolor"]

			}]} {

			set selfont_and_color [SelectFont .fontsel -parent .prefs_window -title [trans choosebasefont] -font [list "helvetica" 12 [list]] -initialcolor "#000000"]

		}

		set selfont [lindex $selfont_and_color 0]

		set selcolor [lindex $selfont_and_color 1]

		if { $selfont == ""} {

			return $currentfont

		}

		set sel_fontfamily [lindex $selfont 0]

		set sel_fontstyle [lrange $selfont 2 end]

		if { $selcolor == "" } {

			set selcolor $fontcolor

		} else {

			set selcolor [string range $selcolor 1 end]

		}

		return [list $sel_fontfamily $sel_fontstyle $selcolor]

	}

	proc ChangeBaseFont {currentfont} {

		if { [winfo exists .basefontsel] } {

			raise .basefontsel

			return

		}

		if { [catch {

			set font [SelectFont .basefontsel -parent .prefs_window -title [trans choosebasefont] -font $currentfont -styles [list]]

			}]} {

			set font [SelectFont .basefontsel -parent .prefs_window -title [trans choosebasefont] -font [list "helvetica" 12 [list]] -styles [list]]

		}

		set family [lindex $font 0]

		set size [lindex $font 1]

		if { $family == "" || $size == ""} {

			return $currentfont

		}

		return [list $family $size normal]

	}

	proc ChangeEncoding { currentenc } {

		::amsn::messageBox "TODO" yesno question "[trans confirm]" .prefs_window

	}

	proc StoreNick { nick } {

		if {$nick != "" && $nick != [::abook::getPersonal MFN] && [::MSN::myStatusIs] != "FLN" && [::config::getKey emailVerified 1] == 1} {

			::MSN::changeName $nick

		}

	}

	proc StorePSM { psm } {

		if {$psm != "" && $psm != [::abook::getPersonal PSM] && [::MSN::myStatusIs] != "FLN"} {

			::MSN::changePSM $psm

		}

	}

}

#This object type is a generic and abstract preference item.

# OPTIONS

# -variable	The variable where the value will be stored/retrieved

# -retrievecommand

#		A command that needs to be called to retrieve the initial value of the text entry

# -storecommand

#		A command that needs to be called to store the value of the text entry when the "store"

#		method is called. The command will be appended one argument, the text entry value

# -enabled	Enables or disabled the item

# METHODS

# getValue()	Return the current value of the item

# setValue(val) Sets the value of the item

# draw(path)	Draws the item inside the specified container

# store()	Store the item value in the related variable

::snit::type PreferenceItem {

	#The variable where the items stores its data

	option -variable -readonly no -default ""

	#The command that must be executed to retrieve the value. This command should return the variable value

	option -retrievecommand -readonly no -default ""

	#The command that must be executed to store the command. The value in the widget will be appended as parameter to the command

	option -storecommand -readonly no -default ""

	#Enable or disable the item

	option -enabled -default true

	##########################################

	#Common methods for all preference items

	##########################################

	constructor {args} {

		$self configurelist $args

	}

	onconfigure -variable { val } {

		upvar $val var

		$self setValue $var

		set options(-variable) $val

	}

	onconfigure -retrievecommand { val } {

		$self setValue [eval $val]

		set options(-retrievecommand) $val

	}

	variable value ""

	#Return the item value

	method getValue {} {

		return $value

	}

	#Set the item value

	method setValue {new_val} {

		set value $new_val

	}

	#Draw the element in the given widget path (path must be a container)

	method draw {path} {

		label $path.l -text "Preference item"

		pack $path.l

	}

	#Store the object values

	method store {} {

		if {!$options(-enabled)} {

			status_log "$self disabled, not storing\n" blue

			return

		}

		status_log "Storing $self, value [$self getValue]\n" blue

		if { $options(-variable) != "" } {

			status_log "   in variable $options(-variable)\n" blue

			upvar $options(-variable) var

			set var [$self getValue]

		}

		if { $options(-storecommand) != "" } {

			status_log "   with command $options(-storecommand)\n" blue

			eval [concat $options(-storecommand) [list [$self getValue]]]

		}

	}

	method valueVar {} {

		return [myvar value]

	}

}

#This type is child of PreferenceItem. It groups some options under a

#frame with a label and an icon.

#Usage:

# OPTIONS

# -text 	The text to be shown in the frame header

# -icon 	A picture to be shown at the left, inside the frame

# -expand 	The frame should expand in the container. Defaults to YES

# -fill		The frame should fill all available space in X, Y or BOTH. Defaults to X

# -enabled	The frame and contained items is enabled/disabled

# METHODS

# addItem(item)		Add a PreferenceItem inside this frame

::snit::type ItemsFrame {

	#Delegate to PreferenceItem by default

	delegate method * to preferenceitem

	delegate option * to preferenceitem

	#The widget path to this item

	variable itemPath ""

	#The items contained inside the frame

	variable items [list]

	constructor {args} {

		install preferenceitem using PreferenceItem %AUTO%

		$self configurelist $args

	}

	destructor {

		#Destroy the PreferenceItem object

		$preferenceitem destroy

		#Destroy child items

		foreach item $items {

			$item destroy

		}

		#Destroy the container frame

		if [winfo exists $itemPath.f] {

			destroy $itemPath.f

		}

	}

	#########################

	#Static options (creation time)

	#########################

	#Text for the item label

	option -text -readonly yes -default ""

	#Icon for the frame

	option -icon -readonly yes -default ""

	#Options for packing the frame

	option -expand -readonly yes -default true

	option -fill -readonly yes -default x

	#########################

	#Dinamic options

	#########################

	option -enabled -default true

	#Add a new PreferenceItem to the group

	method addItem {item} {

		lappend items $item

	}

	#Triggered when the -enabled option is changed

	onconfigure -enabled { val } {

		set options(-enabled) $val

		$preferenceitem configure -enabled $val

		#Now tell all the children to enable themshelves

		set num 0

		foreach item $items {

			$item configure -enabled $val

		}

	}

	#Create the label frame and icon, and tell all children items to draw themshelves

	method draw { path } {

		#Store the path for later usage

		set itemPath $path

		#Create and pack the labelframe

		set f [labelframe $path.f -text $options(-text) -font splainf]

		pack $path.f -side top -fill x

		#If there is an icon, draw it

		if { $options(-icon) != "" } {

			frame $f.f

			label $f.icon -image [::skin::loadPixmap $options(-icon)]

			pack $f.icon -side left -padx 5 -pady 5

			pack $f.f -side left -fill x -expand true

			set f $f.f

		}

		#Now tell all the children to draw themshelves, and pack them

		set num 0

		foreach item $items {

			set f2 $f.f$num

			frame $f2

			$item draw $f2

			pack $f2 -side top -expand $options(-expand) -fill $options(-fill)

			incr num

		}

	}

	#Tell all children to store themselves

	method store {} {

		foreach item $items {

			$item store

		}

	}

}

#A text entry item. Child of PreferenceItem

#Usage:

# OPTIONS

# -text 	The text to be shown next to the text entry

# -width	The width of the text entry

# -onchange	A command that is called everytime the text entry changes to validate the input

# -enabled	Enables or disabled the text entry

# METHODS

::snit::type TextEntry {

	#Delegate to PrferenceItem!!

	delegate method * to preferenceitem

	delegate option * to preferenceitem

	#Enable or disable the item

	option -enabled -default true

	#The widget path

	variable itemPath ""

	constructor {args} {

		install preferenceitem using PreferenceItem %AUTO%

		$self configurelist $args

	}

	destructor {

		#Destroy the PreferenceItem instance

		$preferenceitem destroy

		#Destroy widgets

		destroy $itemPath.l

		destroy $itemPath.t

	}

	#########################

	#Static options (creation time)

	#########################

	#Command to be triggered when the item changes

	option -onchange -readonly yes -default ""

	#Text for the item label

	option -text -readonly yes -default ""

	#With of the textfield

	option -width -readonly yes -default ""

	#########################

	#Dinamic options

	#########################

	#Triggered when the -enabled option is changed

	onconfigure -enabled { val } {

		set options(-enabled) $val

		$preferenceitem configure -enabled $val

		if {[winfo exists $itemPath.t]} {

			if { $val } {

				$itemPath.t configure -state normal

			} else {

				$itemPath.t configure -state disabled

			}

		}

	}

	#Draw the text box in the given path

	method draw { path } {

		set itemPath $path

		#Draw an input box

		#Composed by a label... and...

		label $path.l -text $options(-text) -font sboldf

		if { $options(-enabled) } {

			set state normal

		} else {

			set state disabled

		}

		if { $options(-onchange) != "" } {

			set validatecommand [list $options(-onchange) $self %s %S]

		} else {

			set validatecommand ""

		}

		#...a text entry (can have defined width or not)

		if { [string is integer -strict $options(-width)] } {

			entry $path.t -width $options(-width) -state $state -textvariable [$self valueVar] \

				-validate all -validatecommand $validatecommand

			pack $path.t -side right -expand false -padx 5 -pady 3

			pack $path.l -side right -expand false -padx 5 -pady 3

		} else {

			entry $path.t -state $state -textvariable [$self valueVar] \

				-validate all -validatecommand $validatecommand

			pack $path.t -side right -expand true -fill x -padx 5 -pady 3

			pack $path.l -side right -expand false -padx 5 -pady 3

		}

	}

}

#A check box item. Child of PreferenceItem

#Usage:

# OPTIONS

# -text 	The text to be shown next to the check button

# -onchange	A command that is called everytime the check button value changes

# -enabled	Enables or disabled the checkbutton

# -onvalue	The value that the item will take when the checkbutton is checked. Defaults to 1

# -offvalue	The value that the item will take when the checkbutton is not checked. Defaults to 0

# METHODS

::snit::type CheckBox {

	#Delegate to PrferenceItem!!

	delegate method * to preferenceitem

	delegate option * to preferenceitem

	#Enable or disable the item

	option -enabled -default true

	#The widget path

	variable itemPath ""

	constructor {args} {

		install preferenceitem using PreferenceItem %AUTO%

		$self configurelist $args

	}

	destructor {

		#Destroy the PreferenceItem instance

		$preferenceitem destroy

		#Destroy widgets

		destroy $itemPath.c

	}

	#########################

	#Static options (creation time)

	#########################

	#Command to be triggered when the item changes

	option -onchange -readonly yes -default ""

	#Text for the item label

	option -text -readonly yes -default ""

	#ON/OFF values

	option -onvalue -readonly yes -default 1

	option -offvalue -readonly yes -default 0

	#########################

	#Dynamic options

	#########################

	#Triggered when the -enabled option is changed

	onconfigure -enabled { val } {

		set options(-enabled) $val

		$preferenceitem configure -enabled $val

		if {[winfo exists $itemPath.c]} {

			if { $val } {

				$itemPath.c configure -state normal

			} else {

				$itemPath.c configure -state disabled

			}

		}

	}

	#Draw the text box in the given path

	method draw { path } {

		set itemPath $path

		#Draw an input box

		if { $options(-enabled) } {

			set state normal

		} else {

			set state disabled

		}

		if { $options(-onchange) != "" } {

			set changecommand [list $options(-onchange) $self %s %S]

		} else {

			set changecommand ""

		}

		#...a checkbutton entry

		checkbutton $path.c -text $options(-text) -font sboldf -state $state -variable [$self valueVar] \

			-command $changecommand -onvalue $options(-onvalue) -offvalue $options(-offvalue)

		pack $path.c -side right -expand false -padx 5 -pady 3

	}

}

#A group of radio buttons. Child of PreferenceItem

#Usage:

# OPTIONS

# -texts	A list with one text for every checkbutton

# -values	A list of values corresponding to every selection. Defaults to 0, 1, 2...

# -onchange	A command that is called everytime the radio button value changes

# -enabled	Enables or disabled the radio buttons

# METHODS

::snit::type RadioGroup {

	#Delegate to PrferenceItem!!

	delegate method * to preferenceitem

	delegate option * to preferenceitem

	#Enable or disable the item

	option -enabled -default true

	#The widget path

	variable itemPath ""

	constructor {args} {

		install preferenceitem using PreferenceItem %AUTO%

		$self configurelist $args

	}

	destructor {

		#Destroy the PreferenceItem instance

		$preferenceitem destroy

		#Destroy widgets

		destroy $itemPath.f

	}

	#########################

	#Static options (creation time)

	#########################

	#Command to be triggered when the item changes

	option -onchange -readonly yes -default ""

	#Text for the item label

	option -texts -readonly yes -default [list]

	option -values -readonly yes -default [list]

	#########################

	#Dynamic options

	#########################

	#Triggered when the -enabled option is changed

	onconfigure -enabled { val } {

		set options(-enabled) $val

		$preferenceitem configure -enabled $val

		if {[winfo exists $itemPath.f]} {

			foreach child [winfo children $itemPath.f] {

				if { $val } {

					$child configure -state normal

				} else {

					$child configure -state disabled

				}

			}

		}

	}

	#Draw the text box in the given path

	method draw { path } {

		set itemPath $path

		#Draw an input box

		if { $options(-enabled) } {

			set state normal

		} else {

			set state disabled

		}

		if { $options(-onchange) != "" } {

			set changecommand [list $options(-onchange) $self %s %S]

		} else {

			set changecommand ""

		}

		frame $path.f

		set i 0

		foreach text $options(-texts) {

			radiobutton $path.f.rb$i -text $text -font sboldf -state $state -variable [$self valueVar] \

				-command $changecommand -value [lindex $options(-values) $i]

			pack $path.f.rb$i -side top -anchor nw

			incr i

		}

		pack $path.f -side left -expand false -padx 5 -pady 3

	}

}

#A command button. Child of PreferenceItem

#Usage:

# OPTIONS

# -text 	The text to be shown in the button

# -buttoncommand

#		The command that will be launched when the button is pressed. When this happens, the current item value will be appended as

#		a parameter to this command. The return value of the command is then stored as new item value

# -enabled	Enables or disabled the checkbutton

# METHODS

::snit::type CommandButton {