Index: /trunk/Include/Classes/System/Collections/Generic/Dictionary.ab
===================================================================
--- /trunk/Include/Classes/System/Collections/Generic/Dictionary.ab	(revision 310)
+++ /trunk/Include/Classes/System/Collections/Generic/Dictionary.ab	(revision 310)
@@ -0,0 +1,178 @@
+'Classes/System/Collections/Generic/Dictionary.ab
+
+'#require <Classes/System/Collections/Generic/EqualityComparer.ab>
+
+Namespace System
+Namespace Collections
+Namespace Generic
+
+Namespace Detail
+	Class Pair<Key, T>
+	Public
+		Sub Pair(key As Key, value As T)
+			Key = key
+			Value = value
+		End Sub
+
+		Key As Key
+		Value As T
+	End Class
+End Namespace 'Detail
+
+Class Dictionary<Key, T>
+Public
+	'Constructor
+	Sub Dictionary()
+		initialize(23)
+	End Sub
+'	Sub Dictionary(d As IDictionary<Key, T>)
+'	Sub Dictionary(comparer As IEqualityComparer<Key>)
+	Sub Dictionary(capacity As Long)
+		initialize(capacity)
+	End Sub
+'	Sub Dictionary(d As IDictionary<Key, T>, comparer As IEqualityComparer<Key>)
+'	Sub Dictionary(capacity As Long, comparer As IEqualityComparer<Key>)
+
+	'Properties
+'	Function Comparer() As IEqualityComparer<Key>
+'	Virtual Function Count() As Long
+'	End Function
+
+'	Virtual Function Item(key As Key) As T
+	Virtual Function Item(key As Key) As Object
+
+		Imports System.Collections.Generic.Detail
+		Imports System.Diagnostics
+
+		If Object.ReferenceEquals(key, Nothing) Then
+			'Throw ArgumentNullError
+			Exit Sub
+		End If
+
+		Dim hash = key.GetHashCode Mod al.Count
+		Dim a = al[hash] As ArrayList
+
+		If Not Object.ReferenceEquals(a, Nothing) Then
+			Dim i As Long
+			For i = 0 To ELM(a.Count)
+				Dim pair = a[i] As Pair
+				Dim s = pair.Key.ToString + " " + pair.Value.ToString
+				Trace.Write(s)
+				If pair.Key.Equals(key) Then
+					Return pair.Value
+				End If
+			Next
+		End If
+		'KeyNotFoundException
+		Return Nothing
+
+	End Function
+
+	Virtual Sub Item(key As Key, value As T)
+		Imports System.Collections.Generic.Detail
+
+		If Object.ReferenceEquals(key, Nothing) Then
+			'Throw ArgumentNullError
+			Exit Sub
+		End If
+
+		Dim hash = key.GetHashCode Mod al.Count
+		Dim a = al[hash] As ArrayList
+
+		If Object.ReferenceEquals(a, Nothing) Then
+			a = New ArrayList
+			al[hash] = a
+		Else
+			Dim i As Long
+			For i = 0 To ELM(a.Count)
+				Dim pair = a[i] As Pair
+				If pair.Key.Equals(key) Then
+					pair.Value = value
+				End If
+			Next
+		End If
+
+		a.Add(New Pair(key, value))
+	End Sub
+
+'	Function Keys() As KeyCollection
+'	Function Values() As ValuesCollection
+/*
+	'Operators
+'	Function Operator [](key As Key) As T
+	Function Operator [](key As Key) As Object
+		Return Item[key]
+	End Function
+
+	Sub Operator []=(key As Key, value As T)
+'		Item[key] = vaule
+	End Sub
+*/
+	'Methods
+	Sub Add(key As Key, value As T)
+		Imports System.Collections.Generic.Detail
+
+		If Object.ReferenceEquals(key, Nothing) Then
+			'Throw ArgumentNullError
+			Exit Sub
+		End If
+
+		Dim hash = key.GetHashCode Mod al.Count
+		Dim a = al[hash] As ArrayList
+
+		If Object.ReferenceEquals(a, Nothing) Then
+			a = New ArrayList
+			al[hash] = a
+		Else
+			Dim i As Long
+			For i = 0 To ELM(a.Count)
+				Dim pair = a[i] As Pair
+				If pair.Key.Equals(key) Then
+					'Throw ArgumentError
+				End If
+			Next
+		End If
+
+		a.Add(New Pair(key, value))
+	End Sub
+
+	Sub Clear()
+		Dim i As Long
+		For i = 0 To ELM(al.Count)
+			al[i] = Nothing
+		Next
+	End Sub
+
+'	Function ContainsKey(key As Key) As Boolean
+'	End Function
+'	Function ContainsValue(value As T) As Boolean
+'	End Function
+'	Function GetEnumerator() As Enumerator
+'	Function Remove(key As Key) As Boolean
+'	End Function
+'	Function TryGetValue(key As Key, ByRef value As T) As Boolean
+'	End Function
+
+	'Classses
+'	Class KeyCollection
+'	Class ValuesCollection
+'	Class Enumerator
+
+Private
+
+'	comp As System.Collections.Generic.Detail.DefaultEqualityComparer<Key> 'IEqualityComparer<Key>
+
+	Sub initialize(c As Long)
+		al = ArrayList.Repeat(Nothing, c)
+		Dim e = al[0]
+		Dim p = ObjPtr(e) As ULONG_PTR
+		OutputDebugString(ToTCStr(Str$(p)))
+	End Sub
+
+	al As ArrayList
+
+End Class
+
+End Namespace 'Generic
+End Namespace 'Collections
+End Namespace 'System