Re: Can Tcl/Tk be used to create Xfce panel apps?

On Thu, 11 Jul 2024 10:36:49 +0000, Mark Summerfield wrote:

On Thu, 11 Jul 2024 12:19:58 +0200, greg wrote:
[snip]
Sorry, I think we are at cross-purposes.
>
You showed how to add something to the existing Xfce Launcher.
>
But what I want is to create my own launcher which I can add to the task
bar to _replace_ Xfce's default Launcher.

**************************

proc p.begin {} {
package require Tk
package require tile

wm withdraw .
set ::w [toplevel .xxx -background #c0c0c0]
wm title $::w "XXXXXXXX"
tk appname "XXXXXXXX"
wm geometry $::w 200x60+20+20
wm resizable $::w 0 0

bind $::w <Escape> {exit 0}
wm protocol $::w WM_DELETE_WINDOW {exit 0}
# end of proc p.begin ====================
}

p.begin
set f1 [frame $::w.frame1]
pack $f1 -fill both -expand 1

set b1 [button $f1.button1]
$b1 configure -background blue -foreground white
$b1 configure -text "click me"
$b1 configure -command {
tk_messageBox -title "This is button 1" -message "Thanks!"
exit
}
pack $b1 -side left

set b2 [button $f1.button2]
$b2 configure -background green -foreground #FFFFFF
$b2 configure -text "launch xclock"
$b2 configure -command {
exec xclock
exit
}
pack $b2 -side left


--
Luc

>