Getting Started | Documentation | Glish | Learn More | Programming | Contact Us |
Version 1.9 Build 1556 |
|
Package | display | |
Module | guiutils |
The function works recursively, if fields in the argument are records.
ag | agent which should be removed (possibly recursively) | ||
Allowed: | agent | ||
Default: | F | ||
mxlevels | max. recursion level | ||
Allowed: | Int | ||
Default: | 8 |
include 'popuphelp.g'; private := [=]; private.f := frame(height=100); private.f.a := frame(private.f); private.f.a.b := button(private.f.a); popupmenu(private.f); # to add a ? menu button (if wanted) popuphelp(private.f.a.b, 'Press the button, and make this a long text'); private.l := listbox(private.f); private.l->insert('AAA'); private.l->insert('BBB'); private.l.helpfct := function(name, index) { # Only need name here. return spaste('Your cursor is near ', name); } popuphelp(private.l, private.l.helpfct); whenever private.f.a.b->press do { popupremove(private.f.a); }