Re: [perl-win32-gui-users] Adding controls to tab strip items.

[Jeremy W. <jez...@ho...>]

>I've played around with TheGUILoft and was impressed with what it does for
>the most part.  My biggest problem is that it doesn't export win32-gui
>code.  I'd like the option of beging able to do both.

The script below converts a .gld file into perl code. The script itself is a 
bit of a hack...:) The idea of this script is that I'm able to design 
(complex) windows in loft and use the output in my code, with no runtime 
dependency on loft.

Cheers,

jez.

-------------

use Storable qw(nstore store_fd nstore_fd freeze thaw dclone store);
use Cwd;
use Win32::GUI;
use Win32::GUI::Loft;

my $filename='your.gld';
print "package Windows; \n";
my $design=Win32::GUI::Loft::Design->newLoad($filename) or die("Could not 
open window file ($filename)");
stripdesign($design);
print "return 1; \n";

sub stripdesign {
  my $objDesign=shift;
  #Window, dialog, or toolbar?

  my $dialog = $objDesign->objControlWindow()->prop("DialogBox");
  my $pkgNew = "Win32::GUI::Window";		#"window"
  if($dialog eq "dialog") {
		$pkgNew = "Win32::GUI::DialogBox";
		$widthChange += -3;
		$heightChange += -1;
		}
	elsif($dialog eq "toolbar") {
		$pkgNew = "Win32::GUI::ToolbarWindow";
		$widthChange += -1;
		$heightChange += -4;
		}
#Adjust the window size
#$objDesign->objControlWindow()->propIncSnap("Width", $widthChange, 0);
#$objDesign->objControlWindow()->propIncSnap("Height", $heightChange, 0);
my @aOptionRaw=$objDesign->objControlWindow()->buildOptions($objDesign);
my $name = $objDesign->objControlWindow()->runtimeName($objDesign);
print "sub $name { \n";
print 'my $w='.$pkgNew."->new('".join("','",@aOptionRaw)."'".',@_);'." \n";
  for my $objControl (@{$objDesign->raControl()}) {
    my @aOptionRaw = ($objControl->buildOptions($objDesign), 
$objControl->buildOptionsSpecial($objDesign));
    my $tip=$objControl->{rhControlProperty}{'Tip'};
    if ($tip) {
      #print $tip.'WE HAVE TIP';
      my $tipvalue=$objControl->{rhControlProperty}{'Tip'}->value;
      push @aOptionRaw,('-tip' => "$tipvalue" ) if $tipvalue;
    }
    my $method=$objControl->addMethod();
    if ($method eq 'Win32::GUI::Graphic') {
      $method='AddGraphic';
    }
    print '$w->'.$method."('".join("','",@aOptionRaw)."'); \n";
    }
#do clusters

  print 'my $cl;'."\n";
  for my $objCluster (@{$objDesign->raCluster()}) {
    #print 'cluster name'.$objCluster->name().'<';
    my @controls;
    for my $objControl (values %{$objCluster->rhControl()}) {
      push @controls,'$w->'.$objControl->runtimeName($objDesign);
      }
    print '$cl->{'."'".$objCluster->name()."'".'}=['.join(',',@controls)."]; 
\n";
    }
  print 'return ($w,$cl) if $cl; return $w;}'."\n";
}