aUCBLogo Demos and Tests / helpwalk

to helpwalk
   pr [You can click with the mouse on keywords, Index or Back.]
   help "
   pr [You can click with the mouse on keywords, Index or Back.]
   local [topics oldtopic newtopic]
   topics=[]
   oldtopic="index
   helpwalk2
end

to helpwalk2
   while [and (MouseButtons == 0)  not key?] [dispatchMessages]
   while [and (MouseButtons != 0)  not key?] [dispatchMessages]
   newtopic=WordUnderCursor
   if Key? [pr [helpwalk ;stopped] stop]
   clearText
   ifelse newtopic=="back
   [   ifelse topics==[]
      [   newtopic="index
      ][   newtopic=pop "topics
      ]
   ][   push "topics oldtopic
   ]
   oldtopic=newtopic
   pr [Back Index Help-Contents]
   help newtopic
   helpwalk2
end