Makes sense Aldo, glad you where around to intervene before I sent Talwyn on a short-wavelength visible-light Clupea Pallasii pursuit.

As a minor suggestion if you ever get around to re-writing any of the code:

With the Get/SetWindowLong() calls you could inspect the index parameter and adjust it internally to allow users to add their own window words without colliding with yours. Say for example you are using 10 words internally, you could add ten to the user supplied index on the way through to calling the native API's and if anyone needs to access YOUR window words, they could use the negative offset convention in the same way as these are used by the underlying API's for their internal stuff.

In that way, you still provide access to the full API but protect your internals from fools like me:)

I tried the Global hash approach and it works ...sort of...

I think I need some pointers on how to tune DoEvents(). When I entered data in the dialog box I got ~880 key repetitions. I was able to get those 880 letters back to the originating function though... so I'm making progress.

Snippet Follows

#Events-----------------------------------------------
sub ::Dialog1_Terminate { 
    
    defined(my $win = $Win32::GUI::Loft::window{winMain}) 
    or return(1);
    print_dbg(" I am now enabling the window!");
    $win->Enable();
    
    return(1);
}


sub ::btnDialog1_Click{
    defined(my $win = $Win32::GUI::Loft::window{Dialog1}) 
    or return(1);
    our %MSG = %main::MSG;
    
    my $text            = $win->tfDialog1->Text();
    $MSG{"Dialogue"}{"Text"}= $text;
    
    return -1;
}
#App----------------------------------------------
sub GetDestination{  #( $combobox )
    #This function returns the drive library or other Destination
    #Selected in the Combobox object passed to it.
    my $combobox = shift;
    local %::MSG = %main::MSG;
    defined(my $win = $Win32::GUI::Loft::window{winMain}) 
        or return(1);
    
    #Ensure $combobox is infact a combobox object abort if not.
    unless ( "ComboBox" eq $combobox->GetClassName() ){
        print_dbg ($combobox->GetClassName());
        die "REcieved a bad object!";
    }
    
    my $destination = $combobox->Text();
    print_dbg ("Selected:".$destination);
    $destination =~s/\s//;
    if ($destination eq ''){
        print_dbg ("No Destination!");
        $win->Disable(); # disable main window until we get info we ne
+ed.
        my $dlg = configure_window ('dialog.gld');     
        $dlg    = build_window($dlg, "Dialog1");
        $dlg->lblPrompt->Text( "You must enter a destination. \n".
                              'Type one in the box below.');
        $dlg->Show();
        
        do{
         
         Win32::GUI::DoEvents();
         
        } until ($::MSG{"Dialogue"}{"Text"} ne '');
                
        print_dbg ("The user entered: ".$::MSG{"Dialogue"}{"Text"});
        
        
        
    }
    
  
    print_dbg ("I AM A STUB FIX ME!");
    return ($destination);
}
[download]

Hmm, I now have it working. I replaced :

        do{
         
         Win32::GUI::DoEvents();
         
        } until ($::MSG{"Dialogue"}{"Text"} ne '');
[download]

with

        $dlg->Dialog();
        print "User Entered:".$::MSG{"Dialogue"}{"Text"}."\n";
[download]

Which by the way the Docs say explicitly NOT to do. Are there any potential gotchas I should be aware of when I use this ?

Talwyn