aboutsummaryrefslogtreecommitdiff
path: root/desiredata/src/desire.tk
diff options
context:
space:
mode:
Diffstat (limited to 'desiredata/src/desire.tk')
-rw-r--r--desiredata/src/desire.tk38
1 files changed, 20 insertions, 18 deletions
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