Extract/list all help tags?

General
1

I fear I may be missing something rather basic.

I’m looking for way to ‘extract/list’ all my application help tags for review.

I’d appreciate any thoughts.

Eric

2

to copy it to the clipboard

  dim c as new Clipboard
  dim s() as String
  dim mywin as Window = main // your window name here
  dim theCtrl as Control
  dim rc as RectControl
  for i as integer = 0 to mywin.ControlCount-1
    theCtrl = mywin.Control(i)
    if theCtrl isa RectControl then
      rc = RectControl(theCtrl)
      s.Append rc.Name + ": " + (rc.HelpTag) + EndOfLine
    end if
  next
  c.Text = Join(s)
3

Thanks Axel.

That gets me on the right path.

E.

4

I do not tried, but what if you place a MenuItem / code in the Handler and use WIndow(0), then call each window / activate the MenuItem ?

5

Thanks Axel, great code!!

I modified it like this to suit my needs …

dim s as String
dim mywin as Window = self
dim theCtrl as Control
dim rc as RectControl
for i as integer = 0 to mywin.ControlCount-1
  theCtrl = mywin.Control(i)
  if theCtrl isa RectControl then
    rc = RectControl(theCtrl)
    If Trim(rc.HelpTag) <> "" then s = s + rc.Name + ": " + (rc.HelpTag) + EndOfLine
  end if
next


Dim TheHelpTagDoc as FolderItem
TheHelpTagDoc = SpecialFolder.Desktop.Child("The Help Tag Doc")
If TheHelpTagDoc.Exists then TheHelpTagDoc.Delete

Dim TOS as TextOutputStream
TOS = TextOutputStream.Append(TheHelpTagDoc)
TOS.WriteLine s
TOS = Nil

TheHelpTagDoc.Launch

Lennox