# RCS: @(#) $Id: www-options.tcl,v 1.11 2005/07/11 01:59:07 treectrl Exp $

proc DemoInternetOptions {} {

	global Options

	set T .f2.f1.t

	set height [font metrics [$T cget -font] -linespace]
	if {$height < 18} {
		set height 18
	}

	#
	# Configure the treectrl widget
	#

	$T configure -showroot no -showbuttons no -showlines no -itemheight $height \
		-selectmode browse

	InitPics internet-*

	#
	# Create columns
	#

	$T column create -text "Internet Options" -tag C0

	$T configure -treecolumn C0

	#
	# Create elements
	#

	$T state define check
	$T state define radio
	$T state define on

	$T element create elemImg image -image {
		internet-check-on {check on}
		internet-check-off {check}
		internet-radio-on {radio on}
		internet-radio-off {radio}
	}
	$T element create elemTxt text -fill [list $::SystemHighlightText {selected focus}]
	$T element create elemRectSel rect -fill [list $::SystemHighlight {selected focus}] -showfocus yes

	#
	# Create styles using the elements
	#

	set S [$T style create STYLE]
	$T style elements $S {elemRectSel elemImg elemTxt}
	$T style layout $S elemImg -padx {0 4} -expand ns
	$T style layout $S elemTxt -expand ns
	$T style layout $S elemRectSel -union [list elemTxt] -iexpand ns -ipadx 2

	#
	# Create items and assign styles
	#

	set parentList [list root {} {} {} {} {} {}]
	set parent root
	foreach {depth setting text option group} {
		0 print "Printing" "" ""
			1 off "Print background colors and images" "o1" ""
		0 search "Search from Address bar" "" ""
			1 search "When searching" "" ""
				2 off "Display results, and go to the most likely sites" "o2" "r1"
				2 off "Do not search from the Address bar" "o3" "r1"
				2 off "Just display the results in the main window" "o4" "r1"
				2 on "Just go to the most likely site" "o5" "r1"
		0 security "Security" "" ""
			1 on "Check for publisher's certificate revocation" "o5" ""
			1 off "Check for server certificate revocation (requires restart)" "o6" ""
	} {
		set item [$T item create]
		$T item style set $item C0 STYLE
		$T item element configure $item C0 elemTxt -text $text
		set Options(option,$item) $option
		set Options(group,$item) $group
		if {($setting eq "on") || ($setting eq "off")} {
			set Options(setting,$item) $setting
			if {$group eq ""} {
				$T item state set $item check
				if {$setting eq "on"} {
					$T item state set $item on
				}
			} else {
				if {$setting eq "on"} {
					set Options(current,$group) $item
					$T item state set $item on
				}
				$T item state set $item radio
			}
		} else {
			$T item element configure $item C0 elemImg -image internet-$setting
		}
		$T item lastchild [lindex $parentList $depth] $item
		incr depth
		set parentList [lreplace $parentList $depth $depth $item]
	}

	bind DemoInternetOptions <Double-ButtonPress-1> {
		TreeCtrl::DoubleButton1 %W %x %y
	}
	bind DemoInternetOptions <ButtonPress-1> {
		OptionButton1 %W %x %y
		break
	}

	bindtags $T [list $T DemoInternetOptions TreeCtrl [winfo toplevel $T] all]

	return
}

proc OptionButton1 {T x y} {
	variable TreeCtrl::Priv
	global Options
	focus $T
	set id [$T identify $x $y]
	if {[lindex $id 0] eq "header"} {
		TreeCtrl::ButtonPress1 $T $x $y
	} elseif {$id eq ""} {
		set Priv(buttonMode) ""
	} else {
		set Priv(buttonMode) ""
		set item [lindex $id 1]
		$T selection modify $item all
		$T activate $item
		if {$Options(option,$item) eq ""} return
		set group $Options(group,$item)
		# a checkbutton
		if {$group eq ""} {
			$T item state set $item ~on
			if {$Options(setting,$item) eq "on"} {
				set setting off
			} else {
				set setting on
			}
			set Options(setting,$item) $setting
		# a radiobutton
		} else {
			set current $Options(current,$group)
			if {$current eq $item} return
			$T item state set $current !on
			$T item state set $item on
			set Options(setting,$item) on
			set Options(current,$group) $item
		}
	}
	return
}


# Alternate implementation that does not rely on run-time states
proc DemoInternetOptions_2 {} {

	global Options

	set T .f2.f1.t

	set height [font metrics [$T cget -font] -linespace]
	if {$height < 18} {
		set height 18
	}

	#
	# Configure the treectrl widget
	#

	$T configure -showroot no -showbuttons no -showlines no -itemheight $height \
		-selectmode browse

	InitPics internet-*

	#
	# Create columns
	#

	$T column create -text "Internet Options"

	#
	# Create elements
	#

	$T element create elemImg image
	$T element create elemTxt text -fill [list $::SystemHighlightText {selected focus}]
	$T element create elemRectSel rect -fill [list $::SystemHighlight {selected focus}] -showfocus yes

	#
	# Create styles using the elements
	#

	set S [$T style create STYLE]
	$T style elements $S {elemRectSel elemImg elemTxt}
	$T style layout $S elemImg -padx {0 4} -expand ns
	$T style layout $S elemTxt -expand ns
	$T style layout $S elemRectSel -union [list elemTxt] -iexpand ns -ipadx 2

	#
	# Create items and assign styles
	#

	set parentList [list root {} {} {} {} {} {}]
	set parent root
	foreach {depth setting text option group} {
		0 print "Printing" "" ""
			1 off "Print background colors and images" "o1" ""
		0 search "Search from Address bar" "" ""
			1 search "When searching" "" ""
				2 off "Display results, and go to the most likely sites" "o2" "r1"
				2 off "Do not search from the Address bar" "o3" "r1"
				2 off "Just display the results in the main window" "o4" "r1"
				2 on "Just go to the most likely site" "o5" "r1"
		0 security "Security" "" ""
			1 on "Check for publisher's certificate revocation" "o5" ""
			1 off "Check for server certificate revocation (requires restart)" "o6" ""
	} {
		set item [$T item create]
		$T item style set $item 0 STYLE
		$T item element configure $item 0 elemTxt -text $text
		set Options(option,$item) $option
		set Options(group,$item) $group
		if {$setting eq "on" || $setting eq "off"} {
			set Options(setting,$item) $setting
			if {$group eq ""} {
				set img internet-check-$setting
				$T item element configure $item 0 elemImg -image $img
			} else {
				if {$setting eq "on"} {
					set Options(current,$group) $item
				}
				set img internet-radio-$setting
				$T item element configure $item 0 elemImg -image $img
			}
		} else {
			$T item element configure $item 0 elemImg -image internet-$setting
		}
		$T item lastchild [lindex $parentList $depth] $item
		incr depth
		set parentList [lreplace $parentList $depth $depth $item]
	}

	bind DemoInternetOptions <Double-ButtonPress-1> {
		TreeCtrl::DoubleButton1 %W %x %y
	}
	bind DemoInternetOptions <ButtonPress-1> {
		OptionButton1 %W %x %y
		break
	}

	bindtags $T [list $T DemoInternetOptions TreeCtrl [winfo toplevel $T] all]

	return
}

proc OptionButton1_2 {T x y} {
	variable TreeCtrl::Priv
	global Options
	focus $T
	set id [$T identify $x $y]
	if {[lindex $id 0] eq "header"} {
		TreeCtrl::ButtonPress1 $T $x $y
	} elseif {$id eq ""} {
		set Priv(buttonMode) ""
	} else {
		set Priv(buttonMode) ""
		set item [lindex $id 1]
		$T selection modify $item all
		$T activate $item
		if {$Options(option,$item) eq ""} return
		set group $Options(group,$item)
		# a checkbutton
		if {$group eq ""} {
			if {$Options(setting,$item) eq "on"} {
				set setting off
			} else {
				set setting on
			}
			$T item element configure $item 0 elemImg -image internet-check-$setting
			set Options(setting,$item) $setting
		# a radiobutton
		} else {
			set current $Options(current,$group)
			if {$current eq $item} return
			$T item element configure $current 0 elemImg -image internet-radio-off
			$T item element configure $item 0 elemImg -image internet-radio-on
			set Options(setting,$item) on
			set Options(current,$group) $item
		}
	}
	return
}