[View]  [Edit]  [Lock]  [References]  [Attachments]  [History]  [Home]  [Changes]  [Search]  [Help] 

test[m8n] 01 boot


--test binding and access to s8 smalltalk
if (not smalltalk) then require("boot") end
if (smalltalk==nil) then error("Global smalltalk is missing") end


--print current smalltalk state
print('	state='..smalltalk["$state"])
print('	nativeLanguage='..smalltalk["$nativeLanguage"])


--try to access Object
print('Object className='..smalltalk.Object["$className"])