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 [EMAIL PROTECTED]
Latest bookmark: "Oracle 101"
http://www.rocket99.com/oracle/oracle12.html
dmoz: /Computers/Software/Databases/Oracle/ 212
