#!/usr/bin/wish

proc set_brightness { level } {

set level_percentage [expr $level/100.0]
set port [ .labf1.all_ports_combo get]
exec xrandr --output $port --brightness $level_percentage
}

wm resizable . 0 0
wm geometry . 300x200
wm title . "Set Monitor Brightness"
set out [ exec   xrandr --verbose | grep -i brightness | cut -f2 -d: ]
set brightness_level [expr $out * 100 ]
set out2 [split [ exec xrandr | grep connected ] "\n" ]
set all_ports ""
foreach line $out2 {
  set port [lindex [split $line " "] 0 ]
  set all_ports "$all_ports $port"
}
tk_messageBox -message $all_ports

labelframe .labf1 -text "Select Port"
labelframe .labf2 -text "Set Brightness"
labelframe .labf3 -text "You're Connected to ports:"

set out3 [split [ exec xrandr | grep -w connected ] "\n" ]
set all_connected_ports ""
foreach line $out3 {
  set port [lindex [split $line " "] 0 ]
  set all_connected_ports "$all_connected_ports $port"
}
label .labf3.connected_to_lab -text "$all_connected_ports"

ttk::combobox .labf1.all_ports_combo -values $all_ports
.labf1.all_ports_combo set [lindex $all_ports 0 ]
.labf1.all_ports_combo configure -state readonly

scale .labf2.brightness_scale -from 100 -to 5  -length 250  -label "brightness level"  -variable brightness_level -tickinterval 10 -orient h -command { set_brightness }
pack .labf1 .labf2 .labf3  .labf1.all_ports_combo .labf2.brightness_scale .labf3.connected_to_lab

#scan [lsearch -inline -nocase -regexp [split [exec xrandr --verbose] \n] brightness] %*s%f