From 5c16c48a88381c56726c570f26cb6006fe4533c9 Mon Sep 17 00:00:00 2001
From: "N.N." <matju@users.sourceforge.net>
Date: Wed, 17 Jun 2009 20:55:31 +0000
Subject: new color preset popup

svn path=/trunk/; revision=11795
---
 desiredata/src/desire.tk | 38 ++++++++++++++++++++------------------
 1 file changed, 20 insertions(+), 18 deletions(-)

(limited to 'desiredata')

diff --git a/desiredata/src/desire.tk b/desiredata/src/desire.tk
index af64a0de..4ee7566f 100644
--- a/desiredata/src/desire.tk
+++ b/desiredata/src/desire.tk
@@ -5753,14 +5753,8 @@ def PropertiesDialogue init {of} {
 	bind $f <KeyPress-Return> "break";#so that Return don't call do_auto_apply after Dialogue ok
 	bind $f <KeyPress>        [list $self do_auto_apply]
 	bind $f <ButtonRelease>   [list $self do_auto_apply]
-	set @auto_apply 0
 	$self non_resizable
 }
-
-def PropertiesDialogue do_auto_apply {} {
-	if {$@auto_apply} {$self apply}
-}
-
 class_new IEMPropertiesDialogue {PropertiesDialogue}
 
 def IEMGUI properties_apply {list {orient -1}} {
@@ -7218,8 +7212,7 @@ def Dialogue add_color {f name label} {
 	set v $@$name
 	set text_color [complement $v]
 	button $f.color -text $v -font {Courier 10} -width 10 -pady 2 -fg $text_color \
-	    -command [list $self choose_col $f $name $v] -relief sunken -background $v \
-	    -highlightbackground [brighter $v] -activebackground [darker $v]
+	    -command [list $self choose_col $f $name $v] -relief sunken -background $v -highlightbackground $v -activebackground $v
 	button $f.preset -text [say "preset"] -pady 2 -font {Helvetica 8} \
 	    -command [list $self color_popup $f $name 10]
 	bind $f.preset <Return> "$self color_popup $f $name 10"
@@ -7641,7 +7634,9 @@ def Dialogue init {args} {
 	wm protocol $f WM_DELETE_WINDOW "$self cancel"
 	bind .$self         <Tab> "$self traversal %K %W forward"
 	bind .$self <Control-Tab> "$self traversal %K %W back"
+	set @auto_apply 0
 }
+def Dialogue do_auto_apply {} {if {$@auto_apply} {$self apply}}
 def Dialogue non_resizable {} {wm resizable .$self 0 0}
 def Dialogue traversal {k w direction} {
 	switch $direction {
@@ -7662,21 +7657,28 @@ def Dialogue dropmenu_set {frame var part val} {
 def Dialogue color_popup_select {frame var color} {
 	set @$var $color
 	set col [format #%6.6x $color]
-	if {$self == "ddrc"} {set @$var $col}
-	$frame.color configure -background $col -foreground [complement $col] -text $col
-	if {$self != "ddrc"} {$self do_auto_apply}
-	#$self do_auto_apply
+	if {$self == "ddrc"} {set @$var $col} ;#!@#$ fishy
+	$frame.color configure -background $col -activebackground $col -highlightbackground $col \
+	  -foreground [complement $col] -text $col
+	destroy $frame.color.popup
+	$self do_auto_apply
 }
 def Dialogue color_popup {frame var i} {
 	set w $frame.color.popup
 	if [winfo exists $w] {destroy $w}
-	menu $w -tearoff false
-	for {set i 0} {$i<[llength $::preset_colors]} {incr i} {
-		set c [lindex $::preset_colors $i]
-		$w add command -label "     " -background "#$c" -activebackground "#$c" \
-		    -command [list $self color_popup_select $frame $var [expr 0x$c]]
+	#menu $w -tearoff false
+	toplevel $w -bg "#000000"
+	wm overrideredirect $w 1
+	wm geometry $w +[expr [winfo rootx $frame.preset]]+[expr {[winfo rooty $frame.preset]+[winfo height $frame.preset]}]
+	for {set i 0} {$i<3} {incr i} {
+	    pack [frame $w.$i -bd 0 -bg "#000000"]
+	    for {set j 0} {$j<10} {incr j} {
+		set c [lindex $::preset_colors [expr {$i*10+$j}]]
+		pack [button $w.$i.$j -image icon_empty -width 24 -height 24 \
+		    -background "#$c" -highlightbackground "#$c" -activebackground "#$c" \
+		    -command [list $self color_popup_select $frame $var [expr 0x$c]] -padx 0 -pady 0] -side left
+	    }
 	}
-	tk_popup $w [expr [winfo rootx $frame.preset]] [expr [winfo rooty $frame.preset]]
 }
 def Dialogue choose_col {frame var val} {
 	set c 0xFFFFFF
-- 
cgit v1.2.1