<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><meta content="text/html;charset=UTF-8" http-equiv="Content-Type"></head><body ><div style="font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10pt;"><div><blockquote style="border: 1px solid rgb(204, 204, 204); padding: 7px; background-color: rgb(245, 245, 245);"><div>aHelpTopic subtopics do:[:ht | |methodsource method title content |<br></div><div> (ht key asLowercase) = (ht key)<br></div><div> ifTrue:[<br></div><div> method := ht key .<br></div><div> title := ht title surroundedBySingleQuotes.<br></div><div> content := (String streamContents: [ : stream | (ht contents) <b>printAsLiteralOn:</b> stream]).<br></div><div> Transcript show: content; cr.<br></div><div> methodsource := methodTemplate format: (Array with: method with: title with: content ).<br></div><div> (Smalltalk at: newclassname) class compile: methodsource.<br></div><div>]].<br></div></blockquote><br></div><div>finally got it to compile.<br></div><div><br></div><div><br></div></div><br></body></html>