Index: /trunk/ab5.0/ablib/src/Classes/System/Media/SystemSound.ab
===================================================================
--- /trunk/ab5.0/ablib/src/Classes/System/Media/SystemSound.ab	(revision 577)
+++ /trunk/ab5.0/ablib/src/Classes/System/Media/SystemSound.ab	(revision 578)
@@ -1,3 +1,8 @@
+Namespace System
+Namespace Media
+
+
 Class SystemSound
+Protected
 	SoundID As Long
 
@@ -5,10 +10,4 @@
 	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,2 +22,19 @@
 	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
Index: /trunk/ab5.0/ablib/src/Classes/System/Media/SystemSounds.ab
===================================================================
--- /trunk/ab5.0/ablib/src/Classes/System/Media/SystemSounds.ab	(revision 577)
+++ /trunk/ab5.0/ablib/src/Classes/System/Media/SystemSounds.ab	(revision 578)
@@ -1,22 +1,28 @@
+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