Usar close da janela como ESC

[JoséQuintas]

Alterei o (X)Close pra se comportar como ESC.
Existiria algum lugar onde isto seria problema?

No momento continuo usando GTWVG, e pelo menos para o que uso está tudo normal.

[Jairo Maia]

Existiria algum lugar onde isto seria problema?

José, na minha opinião não. Aliás boa idéia. Uso GTWVG, mas anulo o evento do X. Mas nesse caso se o usuário souber que para voltar a situação anterior o X também tem essa função até facilita.

[LUCAS MACHADO]

Prezados, sou iniciante no Harbour. 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. A situação é a seguinte: entro numa tela em que o usuário escolhe uma dentre diversas funções. Ao clicar na função escolhida é aberta outra tela (ex: uma atualização de determinado arquivo) e neste caso não posso permitir que ele feche a janela anterior pelo X enquanto não sair da tela de atualização. Como resolver isto? Desde já, obrigado.

[LUCAS MACHADO]

Pessoal, desculpe. Na realidade o que eu quero é não fechar a janela que está em execução e não a anterior. Aguardo soluções.

[JoséQuintas]

Pra isso teria que explicar como abre essa nova janela, visto que normalmente só se consegue abrir nova janela com uma LIB gráfica, ou com RUN.

[Itamar M. Lins Jr.]

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.

Se ler direitinho o que o rapaz escreveu, verá que ele usa MINIGUI!!!!
Essa é uma pergunta p/ quem usa MINIGUI! Eu não uso mas acredito que sua resposta esteja nestas linhas abaixo.

#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> ] ;

Saudações,
Itamar M. Lins Jr.