Hecl Builder

Average rating:

set form [lcdui.form -title "Settings Demo" -commandaction menu1sel]
$form setcurrent

foreach s {"-color"
    "-alphalevels"
    "-alertimagewidth"
    "-alertimageheight"
    "-listimagewidth"
    "-listimageheight"
    "-choiceimagewidth"
    "-choiceimageheight"
    "-bg"
    "-fg"
    "-hilightbg"
    "-hilightfg"
    "-border"
    "-hilightborder"
    "-borderstyle"
    "-hilightborderstyle"
} {
    $form append [lcdui.stringitem -label "[strtrim $s -]:" -text [lcdui.settings cget $s]]
}