PC Toledo

JoséQuintas escreveu:Existiria algum lugar onde isto seria problema?

Converti um sistema Clipper para xHarbour + Minigui e já coloquei em produção. Entretanto gostaria de uma ajuda de vocês de como inibir o fechamento de uma janela pelo X.

#xcommand DEFINE WINDOW <w> ;
AT <row>,<col> ;
WIDTH <wi> ;
HEIGHT <h> ;
[ VIRTUAL WIDTH <vWidth> ] ;
[ VIRTUAL HEIGHT <vHeight> ] ;
[ TITLE <title> ] ;
[ ICON <icon> ] ;
[ <main: MAIN> ] ;
[ <mdi: MDI> ] ;
[ <child: CHILD> ] ;
[ <noshow: NOSHOW> ] ;
[ <topmost: TOPMOST> ] ;
[ <noautorelease: NOAUTORELEASE> ] ;
[ <nominimize: NOMINIMIZE> ] ;
[ <nomaximize: NOMAXIMIZE> ] ;
[ <nosize: NOSIZE> ] ;
[ <nosysmenu: NOSYSMENU> ] ;
[ <nocaption: NOCAPTION> ] ;
[ CURSOR <cursor> ] ;
[ ON INIT <InitProcedure> ] ;
[ ON RELEASE <ReleaseProcedure> ] ;
[ ON INTERACTIVECLOSE <interactivecloseprocedure> ] ;
[ ON MOUSECLICK <ClickProcedure> ] ;
[ ON MOUSEDRAG <MouseDragProcedure> ] ;
[ ON MOUSEMOVE <MouseMoveProcedure> ] ;
[ ON MOVE <MoveProcedure> ] ;
[ ON SIZE <SizeProcedure> ] ;
[ ON MAXIMIZE <MaximizeProcedure> ] ;
[ ON MINIMIZE <MinimizeProcedure> ] ;
[ ON RESTORE <RestoreProcedure> ] ;
[ ON PAINT <PaintProcedure> ] ;
[ BACKCOLOR <backcolor> ] ;
[ FONT <FontName> SIZE <FontSize> ] ;
[ NOTIFYICON <NotifyIcon> ] ;
[ NOTIFYTOOLTIP <NotifyIconTooltip> ] ;
[ ON NOTIFYCLICK <NotifyLeftClick> ] ;
[ ON GOTFOCUS <GotFocusProcedure> ] ;
[ ON LOSTFOCUS <LostFocusProcedure> ] ;
[ ON SCROLLUP <scrollup> ] ;
[ ON SCROLLDOWN <scrolldown> ] ;
[ ON SCROLLLEFT <scrollleft> ] ;
[ ON SCROLLRIGHT <scrollright> ] ;
[ ON HSCROLLBOX <hScrollBox> ] ;
[ ON VSCROLLBOX <vScrollBox> ] ;
[ <helpbutton: HELPBUTTON> ] ;