AutoHotkey Community

; modified http://www.autohotkey.net/~Lexikos/AutoHotkey_L/docs/objects/Enumerator.htm
; MD5 of AutoHotkey_Lw.zip tested w/: 4ed0de81343e3e51adfa91b8c5da00d2

MsgBox % "Greetings!  Thanks so much for the enumeration stuff.`n" . "But I'm finding some of the behavior puzzling.`n" . "Am I doing something wrong?"

obj := Object("red", 0xFF0000, "blue", 0x0000FF, "green", 0x00FF00)
obj2 := Object("cyan", "dunno")

MsgBox % "Ok, so a dump of a 3 pair value object...`n" . "Initialized by providing Object() 3 pairs as in the example code."
enum := obj._NewEnum()
While enum[k, v]
  t .= k "='" v "'`n"
MsgBox % t
MsgBox % "Nice!  Gotta love enumeration!" 
;
MsgBox % "Now let's try enumerating the same object via a subroutine..."
anObj := obj
Gosub, AnotherDump
MsgBox % "Huh?  Why am I seeing double?"
;
MsgBox % "Let's see how we do with an object initialized by providing a single pair to Object()"
enum := obj2._NewEnum()
While enum[k, v]
  t .= k "='" v "'`n"
MsgBox % t
MsgBox % "Woah?  Why does the second object seem to have inherited from the first when 'base' was not specified?"
MsgBox % "May be it's just my lack of understanding...perhaps someone can help me rearrange my thinking."
MsgBox % "P.S. do you think it'd be possible to use some string other than 'base'?  Perhaps '_base' or some such?  Thinking there's a high chance of collision with existing strings coming in from elsewhere..."
Return

AnotherDump:
enum := anObj._NewEnum()
While enum[k, v]
  t .= k "='" v "'`n"
MsgBox % t
Return

t=

x := Object("base", Object("Test", "Test"))
x.Test(),  x._Insert("base", "foo") ; Create a key-value pair.
x.Test(),  x.base := "bar"          ; Set its value.
x.Test(),  x._Remove("base")        ; Remove the key-value pair.
x.Test(),  x.base := "Invalid"      ; Set the real base property.
x.Test()   ; No effect as base object was removed.
Test(x) {
    MsgBox % "Base is " . (IsObject(b := x.base) ? "{" . &b . "}" : b)
}

x := Object("base", RealBaseObject)
x._Insert("base", "")
; RealBaseObject is no longer accessible via x.base.