Changeset 11470

Timestamp:

05/13/08 00:06:02 (5 years ago)

Author:

topia

Message:

* tooltip の変更に Win32::GUI の正式 API を使うように書き換えた。

Files:

• lang/perl/tiarra/trunk/module/System/NotifyIcon/Win32.pm (modified) (1 diff)

lang/perl/tiarra/trunk/module/System/NotifyIcon/Win32.pm

@@ -98 +98 @@
     }
     if (!$can_use_win32api || $this->{notifyicondata_version} <= 1) {
-        # This is internal API!
-        Win32::GUI::NotifyIcon::Modify($this->{notify_icon}->{-handle},
-                                       -id => $this->{notify_icon}->{-id},
-                                       -tip => $tooltip);
+        eval {
+            $this->{notify_icon}->Change(-tip => $tooltip);
+        }; if ($@) {
+            # This is internal API!
+            Win32::GUI::NotifyIcon::Modify($this->{notify_icon}->{-handle},
+                                           -id => $this->{notify_icon}->{-id},
+                                           -tip => $tooltip);
+        }
     } else {
         my ($struct,$ret);