RE: [perl-win32-gui-users] Wierdness with HyperLink

[Frazier, Joe Jr]

I just upgraded both Win32::GUI and TGL.  I just noticed that I get errors on 
some properties in the window object:

D:\working\PCWORKFLOW42>d:\gui10.pl
Argument "maximizebox" isn't numeric in subtraction (-) at D:\gui10.pl line 24.
Argument "" isn't numeric in subtraction (-) at D:\gui10.pl line 24.

These go away when I commend them out.  

Problem 2 is even more wierd.  When I run the exact same code with "use 
Win32::GUI::Loft::Design;", the link does not show up (this is striped down 
version of a large app) at all! The problem seems to be that $linkClass does 
not get defined, so the link object does not get created properly.  Anyway, I 
was hoping Johan would check into this with TGL and wondering if someone else 
can reproduce the issue with Win32::GUI.  

Both worked fine on 665 and whatever version of TGL I had before (probably 
about a year old).  I am currently using 
This is perl, v5.6.1 built for MSWin32-x86-multi-thread
(with 1 registered patch, see perl -V for more detail)

Copyright 1987-2001, Larry Wall

Binary build 626 provided by ActiveState Tool Corp. http://www.ActiveState.com
Built 01:31:15 May  2 2001

on Win32 2000 SP 4


use Win32::GUI;
use strict;
use warnings;
use Win32::OLE('in');
use Win32();
#use Win32::GUI::Loft::Design;
use Data::Dumper;
use DirHandle;
use Win32::API;
use Win32::TieRegistry qw(REG_DWORD);
use constant adLockReadOnly => 1;
use constant adOpenKeyset => 1;
use constant LOGONROOT => 'http://my.peopleclick.com/applogin.asp?companyKey=';
use constant PBM_SETBARCOLOR    => 0x400 + 9;
use constant PBM_SETBKCOLOR     => 0x2000 + 1;
use constant PBM_SETSTEP                => 0x400 + 4;


my $LoadCursor = new Win32::API("user32", "LoadCursor", "NN", "N");
my $linkCursor = $LoadCursor->Call( 0, 32649 );

my $amnu = Win32::GUI::MakeMenu("File", {-name => "FILE"});

my $Window = new Win32::GUI::Window (
        -name   => "Window",
        -topmost => 1,
        -icon   => 'SECUR05.ICO',
        -left   => 300,
        -dialogui => 1,
        -top    => 400,
        -menu => $amnu,
        -width  => 258,
        -height => 280, #235,
        -maxsize  => [258,280],#[258,235],
        -minsize  => [258,280],#[258,235],
        -text   => '' #$app_title,
        -maximizebox => 0,
        -minimizebox =>1,
        -helpbutton => 0,
        -resizable =>0,
        #-accel => $A,
);


my %linkFont = Win32::GUI::Font::Info(Win32::GUI::GetStockObject(17));
$linkFont{-underline} = 1;
$linkFont{-bold} = 0,

my $linkFont = new Win32::GUI::Font( %linkFont );
my $linkClass = new Win32::GUI::Class(
    -name => "Win32::GUI::HyperLink",
    -extends => "STATIC",
    -cursor => $linkCursor,
);

my $link = $Window->AddLabel(
        -text           => "Open Vision",
        -class          => $linkClass,
        -name           => "MYLINK",
        -foreground => [0, 0, 255],
        -font           => $linkFont,
        -pos            => [ 190, 0 ],
        -notify                 => 1,
        -height         => 15,
 );
        $Window->Enable();
        $Window->Show();
Win32::GUI::Dialog();


#=====================
sub Window_Terminate {
#=====================
        $Window->Disable();
        $Window->Hide();

Joe Frazier, Jr.
Technical Support Engineer
Peopleclick Service Support

Tel:  +1-800-841-2365
E-Mail: mailto:[EMAIL PROTECTED]