+ switch (mode) {
+ case MODE_MENU:
+ case MODE_RADIOLIST:
+ case MODE_CHECKLIST:
+ if (!(nextArg = poptGetArg(optCon))) {
+ interp->result = "list-height missing";
+ return TCL_ERROR;
+ }
+ listHeight = strtoul(nextArg, &end, 10);
+ if (*end) {
+ interp->result = "list-height is not a number";
+ return TCL_ERROR;
+ }
+ break;
+ }
+