[perl-win32-gui] RE: TabStrips Problem with Buttons not firing

[Eric C. Hansen]

Answered my own question. Looks like you have to make the buttons child to
the window ($W) and not the tabstrip object($TS).

Eric

-----Original Message-----
From: Eric C. Hansen [mailto:[EMAIL PROTECTED]]
Sent: Friday, February 18, 2000 5:06 PM
To: '[EMAIL PROTECTED]'
Subject: TabStrips Problem with Buttons not firing


I have created a Window with a tapstrip and placed buttons on the tapstrip
pages. When I click a tabpage, then click a button on that page, I hoped the
button click event for that button would fire, but it does not. Is this a
bug in Win32::GUI or is there a trick I need to learn?

If you run the below program, and click the SUBMIT button below the
textfield, a messagebox should pop up but it does not?

Thanks,
Eric



use Win32::GUI;

$Font = new Win32::GUI::Font(
    -name => "Courier New",
    -size => 12,
    -weight => 700,
    -height => -14,
);

$LFont = new Win32::GUI::Font(
    -name => "Courier New",
    -size => 16,
    -weight => 700,
    -height => -17,
);

$SFont = new Win32::GUI::Font(
    -name => "Courier New",
    -size => 8,
    -weight => 700,
    -height => -11,
);


$W = new GUI::Window(
    -title    => "Bank Of America Print & Edit Application",
    -left     => 150,
    -top      => 50,
    -width    => 475,
    -height   => 500,
    -font     => $Font,
    -name     => "Window",
);

$TS = $W->AddTabStrip(
    -left   => 0,
    -top    => 0,
    -width  => $W->ScaleWidth,
    -height => $W->ScaleHeight,
    -name   => "Tab",
    -font   => $Font,
);
$TS->InsertItem(-text => "Main");     # tab 0
$TS->InsertItem(-text => "Header");   # tab 1
$TS->InsertItem(-text => "Trailer");  # tab 2
$TS->InsertItem(-text => "Detail");   # tab 3

#######################################
#  OBJECTS FOR TABSTRIP PAGE 0 (Main) #
#######################################

$Print_l = $TS->AddLabel(-name => "Print_l",
                      -text => "Print Invoice",
                      -left => 115,
                      -top => 43,
                      -height => 20,
                      -align => left,
                      -width => 150 );
$Print = $TS->AddButton(-name => "Print",
                      -text  => "SUBMIT",
                      -left => 10,
                      -top => 39,
                      -height => 25,
                      -width => 73 );

$SubTitle_l = $TS->AddLabel(-name => "SubTitle_l",
                      -font => $LFont,
                      -text => "View and Edit Transaction File",
                      -left => 85,
                      -top => 84,
                      -height => 25,
                      -align => left,
                      -width => 350 );

$Header_l = $TS->AddLabel(-name => "Header_l",
                      -text => "Header Record",
                      -left => 115,
                      -top => 133,
                      -height => 20,
                      -align => left,
                      -width => 150 );
$Header = $TS->AddButton(-name => "Header",
                      -text => "SUBMIT",
                      -left => 10,
                      -top => 129,
                      -height => 25,
                      -width => 73 );

$Trailer_l = $TS->AddLabel(-name => "Trailer_l",
                      -text => "Trailer Record",
                      -left => 115,
                      -top => 176,
                      -height => 20,
                      -align => left,
                      -width => 150 );
$Trailer = $TS->AddButton(-name => "Trailer",
                      -text  => "SUBMIT",
                      -left => 10,
                      -top => 172,
                      -height => 25,
                      -width => 73 );

$PhoneNo_l = $TS->AddLabel(-name => "PhoneNo_l",
                      -text => "Detail Record",
                      -left => 115,
                      -top => 219,
                      -height => 20,
                      -align => left,
                      -width => 250 );
$PhoneNo = $TS->AddTextfield(-name => "PhoneNo",
                      -text => "Phone No.",
                      -font => $SFont,
                      -left => 10,
                      -top => 215,
                      -height => 20,
                      -width => 90 );
$PhoneNo->MaxLength(10);
$PhoneNo->SetFocus();
$PhoneNo->Select(0,length($PhoneNo->Text()));


$Detail = $TS->AddButton(-name => "Detail",
                      -text  => "SUBMIT",
                      -left => 10,
                      -top => 240,
                      -height => 25,
                      -width => 73 );

#########################################
#  OBJECTS FOR TABSTRIP PAGE 1 (Header) #
#########################################


##########################################
#  OBJECTS FOR TABSTRIP PAGE 2 (Trailer) #
##########################################


#########################################
#  OBJECTS FOR TABSTRIP PAGE 3 (Detail) #
#########################################


#########################
#     INITIALIZATION    #
#########################
$prevtabid=-1;
$TS->Select(0);
Open_EditFile();
$W->Show();
$W->BringWindowToTop();
Tab_Click();

#########################
#   GUI EVENT HANDLER   #
#########################
Win32::GUI::Dialog();  # logical end of program is here

#############################
#   NON-EVENT SUBROUTINES   #
#############################
sub Open_EditFile {
   @PATHARRAY=split(/\\/,$0);  # split pathfilename by \ delimiter into an
array
   $perlname=$PATHARRAY[$#PATHARRAY];  # name of this perl script without
path
   $editname="BankofAmer.txt";   # name of the file to edit
   $file=$0;  # $0 is the full pathfilename of this perl script
   $file=~s/$perlname/$editname/;  # do the name substitution

   open(FILE,"+< $file");  # open for read/write access
   $stat=seek(FILE,0,0);   # attempt to position file pointer at top of file
   if ($stat != 1) {
      close(FILE);
      Win32::GUI::MessageBox($dummy,"Can't position file pointer.
Aborting.",
         "Bank Of America Print & Edit Application - Status",16,);
      exit;
   }
}

#################################
#   GENERAL EVENT SUBROUTINES   #
#################################
sub Window_Resize {
    $TS->Resize($W->ScaleWidth, $W->ScaleHeight);
}

sub Window_Terminate {
    close(FILE);
    return -1;
}

sub Tab_Click {
  $tabid=$TS->SelectedItem();

  if ($prevtabid == 0) {
      $Print->Hide();
      $Print_l->Hide();
      $SubTitle_l->Hide();
      $Header->Hide();
      $Header_l->Hide();
      $Trailer->Hide();
      $Trailer_l->Hide();
      $PhoneNo_l->Hide();
      $PhoneNo->Hide();
      $Detail->Hide();
  } elsif ($prevtabid == 1) {
      $dummy=1;
  } elsif ($prevtabid == 2) {
      $dummy=1;
  } elsif ($prevtabid == 3)

      $dummy=1;
  } else {
      $dummy=1;
  }

  if ($tabid == 0) {
      $Print->Show();
      $Print_l->Show();
      $SubTitle_l->Show();
      $Header->Show();
      $Header_l->Show();
      $Trailer->Show();
      $Trailer_l->Show();
      $PhoneNo_l->Show();
      $PhoneNo->Show();
      $Detail->Show();
  } elsif ($tabid == 1) {
      $dummy=1;
  } elsif ($tabid == 2) {
      $dummy=1;
  } elsif ($tabid == 3)

      $dummy=1;
  } else {
      $dummy=1;
  }

  $prevtabid=$tabid;
}

################################################
#   TABSTRIP PAGE 0 (Main) EVENT SUBROUTINES   #
################################################
sub Detail_Click {
   Win32::GUI::MessageBox($W,"Just A Test",
         "Bank Of America Print & Edit Application - Status",64,);
}

##################################################
#   TABSTRIP PAGE 1 (Header) EVENT SUBROUTINES   #
##################################################


###################################################
#   TABSTRIP PAGE 2 (Trailer) EVENT SUBROUTINES   #
###################################################


##################################################
#   TABSTRIP PAGE 3 (Detail) EVENT SUBROUTINES   #
##################################################