commit - 17726cb870aab823bcde61ab20f894e07ff5d3bf
commit + 96621d9401fa4c4a0c9233330f154c02b9172467
blob - 2f6c0e8c87f3fb458d4cc79a9c0b2159e400b79b
blob + d29913f4a98aa8204be5d377480bd6529912a86f
--- contrib/amusing
+++ contrib/amusing
while {[gets $fd line] != -1} {
switch -glob $line {
"playing *" {
- set toggle_btn "pause"
+ set toggle_btn "⏸"
}
"paused *" {
- set toggle_btn "play"
+ set toggle_btn "⏵"
}
"stopped *" {
- set toggle_btn "play"
+ set toggle_btn "⏵"
}
"position *" {settime cur_time $line}
"duration *" {settime max_time $line}
"mode *" {puts "TODO: refresh mode"}
"next" {getsongs} # may be optimized
"pause" {
- set toggle_btn "play"
+ set toggle_btn "⏵"
}
"play" {
- set toggle_btn "pause"
+ set toggle_btn "⏸"
}
"prev" {getsongs} # may be optimized
"seek *" {setpos $ev}
"stop" {
- set toggle_btn "play"
+ set toggle_btn "⏸"
}
default {puts "un-catched event $ev"}
}
.c.main.list selection set $cur
}
}
+
+ttk::style configure ctrl.TButton -font {sans-serif 16}
grid [ttk::frame .c.cntl -padding "0 5 0 5"] -column 0 -row 2
-ttk::button .c.cntl.prev -text "prev" -command "amused prev"
-ttk::button .c.cntl.togg -textvariable toggle_btn -command "amused toggle"
-ttk::button .c.cntl.stop -text stop -command "amused stop"
-ttk::button .c.cntl.next -text "next" -command "amused next"
+ttk::button .c.cntl.prev -style ctrl.TButton -width 3 \
+ -text "⏮" -command "amused prev"
+ttk::button .c.cntl.togg -style ctrl.TButton -width 3 \
+ -textvariable toggle_btn -command "amused toggle"
+ttk::button .c.cntl.stop -style ctrl.TButton -width 3 \
+ -text "⏹" -command "amused stop"
+ttk::button .c.cntl.next -style ctrl.TButton -width 3 \
+ -text "⏭" -command "amused next"
grid .c.cntl.prev -column 0 -row 0
grid .c.cntl.togg -column 1 -row 0