[Gambas-user] frm2form 0.01

[Nelson Ferraz]

I'm trying to fix the previous script. Here is a new version, including
new strings to translate:

my %trans = (
                'VERSION (.+)'  => '# Gambas Form File 1.0',
                'VB\.(.+)\s+(.+)' => '$2 $1',
                'Begin'         => '{',
                'End'           => '}',
                'BorderStyle'   => 'Border',
                'Caption'       => 'Text',
                'Command'       => 'Button',
                'CommandButton' => 'Button',
                'ButtonButton'  => 'Button',
                'Label'         => 'TextLabel',
                '\"(.+)\"'      => '("$1")'
);

The resulting form still crashes Gambas; I'm trying to spot the error.
(Benoit, is it possible that Gambas raise an error, instead of simply
dying?)

Nelson
-------------- next part --------------
A non-text attachment was scrubbed...
Name: vb2gb.pl
Type: text/x-perl
Size: 1269 bytes
Desc: not available
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20030721/06c0493f/attachment.pl>
-------------- next part --------------
# Gambas Form File 1.0
{ frmLogin  Form
   Border     =   3  'Fixed Dialog
   Text         =   ("System Login")
   { Frame1  Frame
      Text         =   ("Login")
      Height          =   2895
      Left            =   0
      Top             =   0
      Width           =   6015
      { Button2  Button
         Text         =   ("Cancel")
         Height          =   375
         Left            =   2880
         Top             =   1800
         Width           =   1455
      }
      { Button1  Button
         Text         =   ("Enter")
         Height          =   375
         Left            =   600
         Top             =   1800
         Width           =   1455
      }
      { Text2  TextBox
         Height          =   285
         Left            =   1920
         Top             =   960
         Width           =   1935
      }
      { Text1  TextBox
         Height          =   285
         Left            =   1920
         Top             =   480
         Width           =   2655
      }
      { TextLabel2  TextLabel
         Text         =   ("Password:")
         Height          =   255
         Left            =   1080
         Top             =   960
         Width           =   855
      }
      { TextLabel1  TextLabel
         Text         =   ("User Name:")
         Height          =   255
         Left            =   960
         Top             =   480
         Width           =   975
      }
   }
}