Re: [perl-win32-gui-hackers] CVS Commit

[Johan L. <jo...@ba...>]

At 22:00 2003-12-02, Laurent ROCHER wrote:
>  # figure out the correct background color
>  # (to avoid the "white background" syndrome on XP)
>  if(not exists $args{-color}) {
>   my($undef, $major, $minor) = Win32::GetOSVersion();
>   if($major == 5 && $minor > 0) {
>    $args{-color} = Win32::GUI::constant("COLOR_BTNFACE", 0)+1;
>   } else {

Maybe it is just me, but the hardcoded $major == 5 (exactly 5) smells a 
little bit fragile.


/J

-------- ------ ---- --- -- --  --  -    -     -      -         -
Johan Lindström    Sourcerer @ Boss Casinos     jo...@ba...

Latest bookmark: "Oracle 101"
http://www.rocket99.com/oracle/oracle12.html
dmoz: /Computers/Software/Databases/Oracle/ 212