1:
2:
3:
4:
5:
6:
7:
8:
9:

Object oFindToolBar is a cCJToolbar
...Set psTitle to "Suchen Toolbar"

...Object oFindFirstTool is a cCJFindFirstMenuItemGG
...End_Object
......
End_Object

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Class cFindToolBarGG is a cCJToolbar
...Procedure construct_Object
...Forward Send Construct_Object
...Set psTitle to "Suchen Toolbar"

...Object oFindFirstTool is a cCJFindFirstMenuItemGG
...End_Object
......
End_Class

Object oFindToolBar is a cFindToolBarGG
End_Object