You are here

radiobutton과 checkbutton 여부를 파일로 출력하려면??

안녕하세요~
이전에 Browser 하는 법도 잘 배워서 대략적인 GUI는 꾸몄는데..
한가지 또 궁금한 점이 있네요^^

radiobutton과 checkbutton 여부를 파일로 출력하고 싶은데요..
아래 부분에 IP_TYPE은 radiobutton으로 되어있고,,
DK OPTION 부분은 checkbutton과 entry로 값도 입력받게 되어있어요..
이 부분을 선택된 부분만 파일로 출력하고싶은데,, 어떻게 하면되나요??

proc IP_TYPE {} {
frame .rb1

label .rb1.title -text "IP_Type : " -width 10

radiobutton .rb1.r1 -text STD -value 0 -variable choice -command { Default_Forget; DK_PACKAGE_FRAME; DK_OPTION_FRAME_NORM; DK_ITEM_STD; CHECK_BUTTON }
radiobutton .rb1.r2 -text IO -value 1 -variable choice -command { Default_Forget; DK_PACKAGE_FRAME; DK_OPTION_FRAME_NORM; DK_OPTION_FRAME_IO; DK_ITEM_IO; CHECK_BUTTON }
radiobutton .rb1.r3 -text NVM -value 2 -variable choice -command { Default_Forget; DK_PACKAGE_FRAME; DK_OPTION_FRAME_NORM; DK_OPTION_FRAME_NVM; DK_ITEM_NVM; CHECK_BUTTON }
radiobutton .rb1.r4 -text ANALOG -value 3 -variable choice -command { Default_Forget; DK_PACKAGE_FRAME; DK_OPTION_FRAME_NORM; DK_ITEM_ANALOG; CHECK_BUTTON }

pack .rb1.title .rb1.r1 .rb1.r2 .rb1.r3 .rb1.r4 -side left
pack .rb1 -fill x -expand true
}

proc DK_OPTION_FRAME_NORM {} {
## ISO Option = .iso, Metal Thickness = .m_t, Top Metal = .t_m, Corner Type = .c_t
frame .dk_option
frame .iso
frame .m_t
frame .t_m
frame .c_t

label .dk_option.dk_opt_title -text "Options" -width 18 -relief ridge

label .iso.iso_op_la -text "ISO : "
label .m_t.m_t_op_la -text "Metal Thickness : "
label .t_m.t_m_op_la -text "Top Metal : "
label .c_t.c_t_op_la -text "Corner Type : "

checkbutton .iso.iso_op -text ISO -variable ISO

checkbutton .m_t.m_t_op_thin -text THIN -variable M_T_THIN
checkbutton .m_t.m_t_op_thick -text THICK -variable M_T_THICK

checkbutton .t_m.t_m_op_2m -text 2M -variable T_M_2M
checkbutton .t_m.t_m_op_3m -text 3M -variable T_M_3M
checkbutton .t_m.t_m_op_4m -text 4M -variable T_M_4M
checkbutton .t_m.t_m_op_5m -text 5M -variable T_M_5M
checkbutton .t_m.t_m_op_6m -text 6M -variable T_M_6M
checkbutton .t_m.t_m_op_7m -text 7M -variable T_M_7M
checkbutton .t_m.t_m_op_8m -text 8M -variable T_M_8M

checkbutton .c_t.c_t_op_FF -text FF -variable C_T_FF
checkbutton .c_t.c_t_op_SS -text SS -variable C_T_SS
checkbutton .c_t.c_t_op_TT -text TT -variable C_T_TT

entry .c_t.c_t_op_FF_V_Value -textvariable C_T_FF_V_Value -relief sunken -bg white
entry .c_t.c_t_op_FF_T_Value -textvariable C_T_FF_T_Value -relief sunken -bg white
entry .c_t.c_t_op_SS_V_Value -textvariable C_T_SS_V_Value -relief sunken -bg white
entry .c_t.c_t_op_SS_T_Value -textvariable C_T_SS_T_Value -relief sunken -bg white
entry .c_t.c_t_op_TT_V_Value -textvariable C_T_TT_V_Value -relief sunken -bg white
entry .c_t.c_t_op_TT_T_Value -textvariable C_T_TT_T_Value -relief sunken -bg white

pack .dk_option.dk_opt_title -fill x -expand true

pack .iso.iso_op_la .iso.iso_op -side left -padx 2 -pady 2
pack .m_t.m_t_op_la .m_t.m_t_op_thin .m_t.m_t_op_thick -side left -padx 2 -pady 2
pack .t_m.t_m_op_la .t_m.t_m_op_2m .t_m.t_m_op_3m .t_m.t_m_op_4m .t_m.t_m_op_5m .t_m.t_m_op_6m .t_m.t_m_op_7m .t_m.t_m_op_8m -side left -padx 2 -pady 2

pack .c_t.c_t_op_la .c_t.c_t_op_FF -side left -padx 2 -pady 2
pack .c_t.c_t_op_FF_V_Value .c_t.c_t_op_FF_T_Value -side left -ipadx 20 -expand true -padx 2 -pady 2
pack .c_t.c_t_op_SS -side left -padx 2 -pady 2
pack .c_t.c_t_op_SS_V_Value .c_t.c_t_op_SS_T_Value -side left -ipadx 20 -expand true -padx 2 -pady 2
pack .c_t.c_t_op_TT -side left -padx 2 -pady 2
pack .c_t.c_t_op_TT_V_Value .c_t.c_t_op_TT_T_Value -side left -ipadx 20 -expand true -padx 2 -pady 2

pack .dk_option .iso .m_t .t_m .c_t -side top -fill x -expand true

}