You are here

tablelist에서 combobox 질문

tablelist에서 combobox를 사용하는데 질문이 있습니다.

아래 code에서 Master combobox에서 선택된 값을 "Master"라는 변수로 할당하여,
Slave combobox에 나타나는 values를 "$List_Slave($Master)"로 바꾸려고 합니다.
Master combobox에서 선택된 값을 어떻게 전달할 수 있을까요?
-textvariable이 있는 걸로 아는데 어떻게 사용하는지 알려주십시요.

set List_Slave(Master0) [list Slave00 Slave01]
set List_Slave(Master1) [list Slave10 Slave11]

tablelist::tablelist $tbl
-columns {0 "No." right
                 0 "Master" right
                 0 "Slave" right}
-editstartcommand editStartCmd -editendcommand editEndCmd
-height 0 -width 0

$tbl columnconfigure 0 -sortmode integer
$tbl columnconfigure 1 -name MasterCombo -editable yes -editwindow ComboBox -sortmode dictionary
$tbl columnconfigure 2 -name SlaveCombo -editable yes -editwindow ComboBox -sortmode dictionary

proc editStartCmd {tbl row col text} {
  global List_Slave

  set w [$tbl editwinpath]
  switch [$tbl columncget $col -name] {
    MasterCombo {
      $w configure -values {Master0 Master1} -editable no
    }
    SlaveCombo {
      $w configure -values $List_Slave($Master) -editable no
    }

  }
}