Latest update D'oh! I used setValue and getValue instead of setString and getString. All is working well again. Sorry for the fuss!
I do have a problem, though, now that I'm finally trying to use the OOP library to rebuild some of my libraries from the ground up.
Starting with my Mod library. I have a very basic setup, but I'm getting crashes.
First, my class:
Code:
;built-in value's getters/setters
Mod_getId(ModObject) {
return Class_getValue(ModObject, "b1")
}
Mod_setId(ModObject, id) {
Class_setValue(ModObject, "b1", id)
}
Mod_getType(ModObject) {
return Class_getValue(ModObject, "b2")
}
Mod_setType(ModObject, type) {
Class_setValue(ModObject, "b2", type)
}
Mod_getTitle(ModObject) {
return Class_getValue(ModObject, "b3")
}
Mod_setTitle(ModObject, title) {
Class_setValue(ModObject, "b3", title)
}
Mod_getFileName(ModObject) {
return Class_getValue(ModObject, "b4")
}
Mod_setFileName(ModObject, fileName) {
Class_setValue(ModObject, "b4", fileName)
}
Mod_getFileDate(ModObject) {
return Class_getValue(ModObject, "b5")
}
Mod_setFileDate(ModObject, fileDate) {
Class_setValue(ModObject, "b5", fileDate)
}
;set the default user-defined size to use if none is specified
Mod_setUserDefinedSize(Size = "")
{
static UserDefinedSize = 0
if (Size != "")
UserDefinedSize := Size
return UserDefinedSize
}
Mod_new(id, type = "", title = "", fileName = "", fileDate = "", UserDefinedSize = "") {
static BuiltInSize := 5
if (UserDefinedSize = "")
UserDefinedSize := Mod_setUserDefinedSize()
if (fileName = "")
fileName := id
if (ModObject := Class_Alloc(4 * UserDefinedSize + BuiltInSize)) {
; Set class values
Class_setClass(ModObject, Mod_initClass())
Class_setBuiltInSize(ModObject, BuiltInSize)
Class_setUserDefinedSize(ModObject, UserDefinedSize)
; Built-in values
Mod_setId(ModObject, id)
if (type != "")
Mod_setType(ModObject, type)
if (title != "")
Mod_setTitle(ModObject, title)
Mod_setFileName(ModObject, fileName)
if (fileDate != "")
Mod_setFileDate(ModObject, fileDate)
}
return ModObject
}
Mod_destroy(ModObject) {
if (!ModObject)
return
if !Class_readyToDelete(ModObject)
return false
; Clear built-in fields
Mod_setId(ModObject, 0)
Mod_setType(ModObject, 0)
Mod_setTitle(ModObject, 0)
Mod_setFileName(ModObject, 0)
Mod_setFileDate(ModObject, 0)
; Clear user-entered fields
Mod_destroy_private(ModObject)
; Clear class values
Class_setBuiltInSize(ModObject, 0)
Class_setUserDefinedSize(ModObject, 0)
Class_setClass(ModObject, "")
Class_Free(ModObject)
return true
}
Mod_destroy_private(ModObject) {
}
Mod_initClass() {
static ClassName := "Mod"
return &ClassName
}
Next, the test file that's crashing:
Code:
#Include Mod.ahk
Mod1 := Mod_new("Anchorage.esm", "FO3", "Operation Anchorage")
MsgBox,% "Mod Title: " . Mod_getTitle(Mod1)
I've tried wrapping the three parameters with String_New() in case that was required, but it still crashes.
When I remove the MsgBox line, it does not crash. So it seems to be something with getTitle.
I probably made a stupid mistake somewhere.
Update:
And it works fine if I leave everything but the 'id' parameter out of my call to the Mod_new function. I can then retrieve the ID.
If I don't wrap the ID parameter with String_new(), I get 0 returned. If I do wrap the parameter with String_new(), I get an integer returned (presumably a memory location?). I thought that the wrappers were supposed to automatically unwrap to their original values when gotten?
Login
Register
FAQ
Search
.