Changeset 286 for Include/Classes/System

Timestamp:

Aug 12, 2007, 1:03:51 PM (17 years ago)

Author:

NoWest

Message:

一時変数をreturnせず直接Newの結果をreturnする方法に変更

File:

• Include/Classes/System/Media/SystemSounds.ab (modified) (1 diff)

Include/Classes/System/Media/SystemSounds.ab

@@ -2 +2 @@
 Public
     Static Function Asterisk() As SystemSound
-        Dim ret As SystemSound(SND_ALIAS_SYSTEMASTERISK)
-        Return ret
+        Return New SystemSound(SND_ALIAS_SYSTEMASTERISK)
     End Function
     Static Function Beep() As SystemSound
-        Dim ret As SystemSound(SND_ALIAS_SYSTEMDEFAULT)
-        Return ret
+        Return New SystemSound(SND_ALIAS_SYSTEMDEFAULT)
     End Function
     Static Function Exclamation() As SystemSound
-        Dim ret As SystemSound(SND_ALIAS_SYSTEMEXCLAMATION)
-        Return ret
+        Return New SystemSound(SND_ALIAS_SYSTEMEXCLAMATION)
     End Function
     Static Function Hand() As SystemSound
-        Dim ret As SystemSound(SND_ALIAS_SYSTEMHAND)
-        Return ret
+        Return New SystemSound(SND_ALIAS_SYSTEMHAND)
     End Function
     Static Function Question() As SystemSound
-        Dim ret As SystemSound(SND_ALIAS_SYSTEMQUESTION)
-        Return ret
+        Return New SystemSound(SND_ALIAS_SYSTEMQUESTION)
     End Function