Changeset 578 for trunk/ab5.0

Timestamp:

Aug 5, 2008, 9:17:51 PM (16 years ago)

Author:

NoWest

Message:

名前空間に入れ忘れていたのを修正。

Location:

trunk/ab5.0/ablib/src/Classes/System/Media

Files:

• SystemSound.ab (modified) (3 diffs)
• SystemSounds.ab (modified) (1 diff)

trunk/ab5.0/ablib/src/Classes/System/Media/SystemSound.ab

@@ +1 @@
+Namespace System
+Namespace Media
+
+
 Class SystemSound
+Protected
     SoundID As Long
 
@@ -5 +10 @@
     Sub SystemSound()
         SoundID=SND_ALIAS_SYSTEMDEFAULT
-    End Sub
-    Sub SystemSound(value As Long)
-        SoundID=value
-    End Sub
-    Sub SystemSound(ByRef ss As SystemSound)
-        SoundID=ss.SoundID
     End Sub
 
@@ -23 +22 @@
     End Function
 End Class
+
+
+Namespace Detail
+
+Class _System_SystemSound
+    Inherits SystemSound
+Public
+    Sub _System_SystemSound( id As Long)
+        SoundID = id
+    End Sub
+End Class
+
+End Namespace
+
+
+End Namespace
+End Namespace

trunk/ab5.0/ablib/src/Classes/System/Media/SystemSounds.ab

@@ +1 @@
+Namespace System
+Namespace Media
+
 Class SystemSounds
 Public
     Static Function Asterisk() As SystemSound
-        Return New SystemSound(SND_ALIAS_SYSTEMASTERISK)
+        Return New Detail._System_SystemSound(SND_ALIAS_SYSTEMASTERISK)
     End Function
     Static Function Beep() As SystemSound
-        Return New SystemSound(SND_ALIAS_SYSTEMDEFAULT)
+        Return New Detail._System_SystemSound(SND_ALIAS_SYSTEMDEFAULT)
     End Function
     Static Function Exclamation() As SystemSound
-        Return New SystemSound(SND_ALIAS_SYSTEMEXCLAMATION)
+        Return New Detail._System_SystemSound(SND_ALIAS_SYSTEMEXCLAMATION)
     End Function
     Static Function Hand() As SystemSound
-        Return New SystemSound(SND_ALIAS_SYSTEMHAND)
+        Return New Detail._System_SystemSound(SND_ALIAS_SYSTEMHAND)
     End Function
     Static Function Question() As SystemSound
-        Return New SystemSound(SND_ALIAS_SYSTEMQUESTION)
+        Return New Detail._System_SystemSound(SND_ALIAS_SYSTEMQUESTION)
     End Function
 
     Override Function ToString() As String
-        Return "SystemSounds"
+        Return New System.String("SystemSounds")
     End Function
 End Class
+
+End Namespace
+End Namespace