>Hi Dragan,
>
>I think your code could make a nice FAQ. Anyway, I'm glad that I could help.

Later - I'm still refining and streamlining this. Here's the simplified version, no prg files:

If This.lallowclose
	_Screen.otestbar=.Null.
Else
	Local lcSetSafety
	If _Screen.ReleaseType != 2 Then
		If Type("_screen.cRestoreToolbarScript")#"C"
			_Screen.AddProperty("cRestoreToolbarScript")
		Endif
TEXT TEXTMERGE to _screen.cRestoreToolbarScript noshow
	_SCREEN.AddProperty('<<This.Name>>', NEWOBJECT('<<This.Class>>', '<<This.ClassLibrary>>'))
	ON KEY LABEL RIGHTMOUSE
ENDTEXT
		On Key Label RIGHTMOUSE Execscript(_Screen.cRestoreToolbarScript)
		Activate Window Command
		Keyboard '{CTRL+F2}{RIGHTMOUSE}' Clear
	Endif
	Return .F.
Endif