Lines Matching +full:sub +full:- +full:system
1 # Functions that handle calling dialog(1) -*-perl-*-
23 # http://www.ibiblio.org/pub/historic-linux/distributions/redhat-4.0/i386/live/usr/bin/Xconfigurato…
27 #------------------------------------------------------------------------------
32 # I didn't bother to make the others shell-free, although it
37 #------------------------------------------------------------------------------
53 sub trace {
62 sub quoted($) {
65 $text =~ s/[^\n\t -~]/?/g;
70 sub screensize() {
71 my $params = `$DIALOG --stdout --print-maxsize`;
85 sub height_of($$) {
89 "$DIALOG --stdout --print-text-size "
97 sub rhs_clear {
98 return system("$DIALOG --clear");
101 sub rhs_textbox {
106 system( "$DIALOG --title "
108 . " --textbox $file $height $width" );
113 sub rhs_msgbox {
122 system( "$DIALOG --title "
124 . " --msgbox "
135 sub rhs_infobox {
144 system( "$DIALOG --title "
146 . " --infobox "
151 sub rhs_yesno {
160 system( "$DIALOG --title "
162 . " --yesno "
175 sub rhs_gauge {
186 "|$DIALOG --title "
188 . " --gauge "
193 sub rhs_update_gauge {
199 sub rhs_update_gauge_and_message {
207 sub rhs_stop_gauge {
211 sub rhs_inputbox {
220 "$DIALOG --title "
222 . " --inputbox "
228 sub rhs_menu {
257 $menuheight = $scr_lines - $listheight - 6;
261 "$DIALOG --title "
263 . " --menu "
268 sub rhs_menul {
296 $menuheight = $scr_lines - $listheight - 6;
300 "$DIALOG --title "
302 . " --menu "
307 sub rhs_menua {
328 $menuheight = $scr_lines - $listheight - 6;
332 "$DIALOG --title "
334 . " --menu "
339 sub rhs_checklist {
375 $menuheight = $scr_lines - $listheight - 6;
379 "$DIALOG --title "
381 . " --separate-output --checklist "
386 sub rhs_checklistl {
415 $menuheight = $scr_lines - $listheight - 6;
418 "$DIALOG --title "
420 . " --separate-output --checklist "
425 sub rhs_checklista {
451 $menuheight = $scr_lines - $listheight - 6;
455 "$DIALOG --title "
457 . " --separate-output --checklist "
462 sub rhs_radiolist {
498 $menuheight = $scr_lines - $listheight - 6;
502 "$DIALOG --title "
504 . " --radiolist "
509 sub return_output {
515 # We have to fork (as opposed to using "system") so that the parent
550 sub rhs_wordwrap {
585 if ( ( length( $words[$j] ) + $pos ) > $width - $pad ) {