# ------------------------------------------------------------------------
#  Place_Window - Use Win32::GUI to position a window as required
#  Uses Globals: $my_proc (others implicit)
#  Calls (Implicit): Main_Resize, Main_Terminate, 
#                    OK_BUTTON_Click, CANCEL_BUTTON_Click
# ------------------------------------------------------------------------

sub Place_Window
{
   my ($prompt, $w, $h, $desk, $dw, $dh, $x, $y);
    
   $prompt = "$my_proc - Define capture size & location";
   
   $main_window = Win32::GUI::Window->new(
                     -name => 'Main',
                     -sysmenu => 1,  # I'd like to remove this but I need to use
                                     # the '[X]' as a CANCEL button...Duhhh..
                     -width => $W_INIT, -height => $H_INIT,
                     -text => $prompt,
                  );

   my $font = Win32::GUI::Font->new(
                 -name => "Tahoma", 
                 -size => 12,
              );
              
   my $OK_Button = $main_window->AddButton(
                      -name => "OK_BUTTON",
                      -text => " Ok ",
                      -font => $font,
                      -height => 38,
                      -width => 68,
                   );

   # my $cncl = $main_window->AddButton(
                 # -name => "CANCEL_BUTTON",
                 # -text => "Cancel",
              # );

# ----

   $w = $main_window->Width();        # Initial 'overlap window' geometry
   $h = $main_window->Height();

   $desk = Win32::GUI::GetDesktopWindow();
   $dw = Win32::GUI::Width($desk);
   $dh = Win32::GUI::Height($desk);
   
   $x = ($dw - $w) / 2;
   $y = ($dh - $h) / 2;

#   $main_window->Change(-minsize => [$W_INIT, $H_INIT]);
   $main_window->Resize($w, $h);
   $main_window->Move($x, $y);
   $main_window->Show();

   Win32::GUI::Dialog();       # Monitor for events

   $W = $X2 - $X1;     # Define the position/size in globals
   $H = $Y2 - $Y1;     # NOTE: '$position_status' contains a truth value
   $X = $X1;           #       which says the position is valid or not
   $Y = $Y1;
   
   return;
   
} # end Place_Window

# ----------------------------------------------
#  Main_Terminate - Event: Exit the main window
#  ...Win32::GUI updates
# ----------------------------------------------

sub Main_Terminate {
   ($X1, $Y1, $X2, $Y2) =          # Update globals
      Win32::GUI::GetWindowRect($main_window);
   -1;
} # end Main_Terminate

# --------------------------------------------
#  OK_BUTTON_Click - Event: 'Ok' Button Click
#  ...Win32::GUI updates
# --------------------------------------------

sub OK_BUTTON_Click {
   $position_status = 1;
   Main_Terminate();
} # end OK_BUTTON_Click

# ------------------------------------------------------
#  CANCEL_BUTTON_Click - Event: 'Cancel' Button Click
#  ...Win32::GUI updates
# ------------------------------------------------------

sub CANCEL_BUTTON_Click {
   $position_status = 0;
   Main_Terminate();
} # end BTN_Click

# ----------------------------------------------------
#  Get_Script_Name - Return the basename of this file
#  Returns: script name (no ext.), path to script
# ----------------------------------------------------

sub Get_Script_Name
{
   my ($my_proc_ref, $my_path_ref) = @_;
   
   my ($buf);

   if (defined $PerlApp::VERSION) {
      $$my_proc_ref = PerlApp::exe();
      $buf = PerlApp::exe();
      
   } else {
      $$my_proc_ref = $0;
      $buf = $0;
   }

   $$my_proc_ref =~ s#\\#\/#g          # DOS path to linux path
      if ($$my_proc_ref =~ m/\\/); 
   $$my_proc_ref =~ s{.*/}{};          # removes "/"-delimited path  
   $$my_proc_ref =~ s{\.[^.]+$}{};     # removes extension
   
   $buf =~ s#\\#\/#g if ($buf =~ m/\\/);   # DOS path to linux path
   $buf =~ m#(.*)/#;
   $$my_path_ref = $1;
   
   return;
} # end Get_Script_Name

# [EOF]