using popup dialog boxes with perl gladexml

[B McAndrews <bmcandrews efs-us com>]

I've added a dialog box in my glade project so that I can pop it up at 
program startup to get user info, (ie, login,passwd).  After I 
authenticate the user, then I want to pop up the main application 
window.  However, when I start up the perl script, get the dialog 
widget, call set_modal with TRUES, and call run() on it, I expected to 
just see the popup dialog.  Yet I got both the dialog box and the main 
app window.  Can anyone shed some light with what's going on here?

Thanks

--
Brian