16 lines
302 B
QBasic
16 lines
302 B
QBasic
' doc.bas
|
|
#include once "doc.bi"
|
|
|
|
sub Doc_Init( byref d as DocState )
|
|
d.path = ""
|
|
d.modified = 0
|
|
end sub
|
|
|
|
sub Doc_SetPath( byref d as DocState, byref p as string )
|
|
d.path = p
|
|
end sub
|
|
|
|
sub Doc_SetModified( byref d as DocState, byval m as integer )
|
|
d.modified = iif(m <> 0, 1, 0)
|
|
end sub
|