Top 10k strings from Dialog.pm in <root> / bin / pc / Emulators / fuse-hc2000-hacks.7z / src / fuse / perl / Fuse /

Back to the directory listing

   1 use strict;
   1 use IO::File;
   1 use English;
   1 sub read (;$) {
   1 split /\s*,\s*/;
   1 push @dialogs, { name => $name,
   1 package Fuse::Dialog;
   1 my( $name, $title, @widgets ) = split /\n/;
   1 my @widget_data;
   1 my $posthook;
   1 foreach( @widgets ) {
   1 $posthook = $text;
   1 $fh->fdopen( fileno( STDIN ), "r" ) or die "Couldn't read stdin: $!";
   1 $fh = new IO::Handle;
   1 $fh = new IO::File( "< $filename" )
   1 # with this program; if not, write to the Free Software Foundation, Inc.,
   1 # the Free Software Foundation; either version 2 of the License, or
   1 # it under the terms of the GNU General Public License as published by
   1 # but WITHOUT ANY WARRANTY; without even the implied warranty of
   1 # You should have received a copy of the GNU General Public License along
   1 # This program is free software; you can redistribute it and/or modify
   1 # This program is distributed in the hope that it will be useful,
   1 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   1 # GNU General Public License for more details.
   1 # Fuse::Dialog: routines for creating Fuse dialog boxes
   1 # E-mail: [email protected]
   1 # Copyright (c) 2003-2005 Philip Kendall
   1 # Author contact information:
   1 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
   1 # (at your option) any later version.
   1  widgets => \@widget_data };
   1  value => $value,
   1  title => $title,
   1  text => $text,
   1  posthook => $posthook,
   1  key => $key,
   1  data2 => $data2,
   1  data1 => $data1,
   1     } else {
   1     while( <$fh> ) {
   1     return @dialogs;
   1     push @widget_data, { type => $widget_type,
   1     or die "Couldn't open '$filename': $!";
   1     my( $widget_type, $text, $value, $key, $data1, $data2 ) =
   1     my @dialogs;
   1     my $filename = shift;
   1     my $fh;
   1     local $INPUT_RECORD_SEPARATOR = ""; # Paragraph mode
   1     if( lc $widget_type eq 'posthook' ) {
   1     if( defined $filename && $filename ne '-' ) {