Changeset 286 for Include


Ignore:
Timestamp:
Aug 12, 2007, 1:03:51 PM (17 years ago)
Author:
NoWest
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • Include/Classes/System/Media/SystemSounds.ab

    r116 r286  
    22Public
    33    Static Function Asterisk() As SystemSound
    4         Dim ret As SystemSound(SND_ALIAS_SYSTEMASTERISK)
    5         Return ret
     4        Return New SystemSound(SND_ALIAS_SYSTEMASTERISK)
    65    End Function
    76    Static Function Beep() As SystemSound
    8         Dim ret As SystemSound(SND_ALIAS_SYSTEMDEFAULT)
    9         Return ret
     7        Return New SystemSound(SND_ALIAS_SYSTEMDEFAULT)
    108    End Function
    119    Static Function Exclamation() As SystemSound
    12         Dim ret As SystemSound(SND_ALIAS_SYSTEMEXCLAMATION)
    13         Return ret
     10        Return New SystemSound(SND_ALIAS_SYSTEMEXCLAMATION)
    1411    End Function
    1512    Static Function Hand() As SystemSound
    16         Dim ret As SystemSound(SND_ALIAS_SYSTEMHAND)
    17         Return ret
     13        Return New SystemSound(SND_ALIAS_SYSTEMHAND)
    1814    End Function
    1915    Static Function Question() As SystemSound
    20         Dim ret As SystemSound(SND_ALIAS_SYSTEMQUESTION)
    21         Return ret
     16        Return New SystemSound(SND_ALIAS_SYSTEMQUESTION)
    2217    End Function
    2318
Note: See TracChangeset for help on using the changeset viewer.