contrib/dialog/dialog.pl

138     local ( $i, $tmp, $ent, $height, $menuheight, @list, $message_len );
142     @list = ();
145         $list[@list] = "\"$ent\"";
147         $list[@list] = "\"$ent\"";
166     return &return_output(0, "dialog --title \"$title\" --menu \"$message\" $height $width $menuheight @list");
171     local ( $i, $tmp, $ent, $height, $menuheight, @list, $message_len );
175     @list = ();
178         $list[@list] = "\"$ent\"";
179         $list[@list] = "\"\"";
198     return &return_output(0, "dialog --title \"$title\" --menu \"$message\" $height $width $menuheight @list");
203     local ( $tmp, $ent, $height, $menuheight, @list, $message_len );
205     @list = ();
207         $list[@list] = "\"$ent\"";
208         $list[@list] = "\"$items{$ent}\"";
228     return &return_output(0, "dialog --title \"$title\" --menu \"$message\" $height $width $menuheight @list");
233     local ( $i, $tmp, $ent, $height, $menuheight, @list, $message_len );
237     @list = ();
240         $list[@list] = "\"$ent\"";
242         $list[@list] = "\"$ent\"";
245 	    $list[@list] = "ON";
247 	    $list[@list] = "OFF";
267     return &return_output("list", "dialog --title \"$title\" --separate-output --checklist \"$message\" $height $width $menuheight @list");
272     local ( $i, $tmp, $ent, $height, $menuheight, @list, $message_len );
276     @list = ();
279         $list[@list] = "\"$ent\"";
280         $list[@list] = "\"\"";
281 	$list[@list] = "OFF";
299     return &return_output("list", "dialog --title \"$title\" --separate-output --checklist \"$message\" $height $width $menuheight @list");
304     local ( $tmp, $ent, $height, $menuheight, @list, $message_len );
308     @list = ();
310 	$list[@list] = "\"$ent\"";
311 	$list[@list] = "\"$items{$ent}\"";
312 	$list[@list] = "OFF";
332     return &return_output("list", "dialog --title \"$title\" --separate-output --checklist \"$message\" $height $width $menuheight @list");
337     local ( $i, $tmp, $ent, $height, $menuheight, @list, $message_len );
341     @list = ();
344         $list[@list] = "\"$ent\"";
346         $list[@list] = "\"$ent\"";
349 	    $list[@list] = "ON";
351 	    $list[@list] = "OFF";
371     return &return_output(0 , "dialog --title \"$title\" --radiolist \"$message\" $height $width $menuheight @list");