package require Tk
package require Tclx
package require nx
namespace import ::nx::* 

set deskCount 0
set activeDesk [exec wmctrl -d | cut -f 1,3 -d { } | grep \* | cut -f 1 -d { }]

Class create Desk {
    :variable deskName {}
    :method init {} {
        wm withdraw .
        destroy .desk
        toplevel .desk
        wm attributes .desk -topmost 1 ; # on top
        wm geometry .desk +0+0
        wm overrideredirect .desk yes ; # remove window decorations 
}
   :public method add {name} {
        global deskCount
        global deskCountList
        lappend :deskName $name
        lappend deskCountList $deskCount 
        label .desk.lbl_$deskCount -text $name -height 1 -padx 7 -pady 0 -bg #222222 -fg #bdbdbd
        bind .desk.lbl_$deskCount <ButtonPress-1> "[self] pressed $deskCount"
        pack .desk.lbl_$deskCount -side left ; incr deskCount 
}

   :public method pressed {desk} {
        global deskCountList
        set active [.desk.lbl_$desk cget -text]
        foreach c $deskCountList {
            .desk.lbl_$c configure -fg [expr {[.desk.lbl_$c cget -text] eq $active ? "#efefef" : "#bdbdbd"}] 
            .desk.lbl_$c configure -bg [expr {[.desk.lbl_$c cget -text] eq $active ? "#535d6c" : "#222222"}]  }
        exec wmctrl -s $desk
        global deskCount
        global activeDesk
        foreach app [lindex ${:deskApp} $activeDesk] {
            label .desk.lbl_$deskCount -text $app -height 1 -padx 7 -pady 0 -bg #535149 -fg #DFDBD2 
            pack .desk.lbl_$deskCount -side left ; incr deskCount 
       }
   }
}

Desk create desk
desk add main 
desk add development 
desk add television 
desk add office 
desk pressed $activeDesk