📄 labeledwidget
字号:
# ----------------------------------------------------------------------# DEMO: labeledwidget in [incr Widgets]# ----------------------------------------------------------------------package require Iwidgets 4.0. configure -background whiteiwidgets::labeledwidget .lw -labeltext "Label Text:"pack .lw -padx 4 -pady 4set win [.lw childsite]label $win.ex -text "(put your widgets here)" \ -background black -foreground white \ -width 30 -height 3pack $win.ex -expand yes -fill both -padx 4 -pady 4iwidgets::optionmenu .pos -labeltext "Position:" -command { .lw configure -labelpos [.pos get]}pack .pos -padx 4 -pady 4.pos insert end e n ne nw s se sw w.pos select w
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -