bKeyDown and interactive "close"

[Jimmy]

hi,

i have a GET and a BUTTON in oWnd
now i want to use VK_RETURN for ACTION and close oWnd

Code: Select all  Expand view

PROCEDURE MakeNewFolder()
LOCAL cSourceDir := IF( nGridFocus = 1, cExpl_Left:oGrid:cPath, cExpl_Right:oGrid:cPath )
LOCAL cPath      := SPACE( 100 )
LOCAL oWnd, oLabel_1, oText_1, oBtn, oTimer

   DEFINE WINDOW oWnd FROM 0, 0 TO 180, 500 PIXEL TITLE "Create New Folder" ICON "A1MAIN" NOMINIMIZE NOMAXIMIZE

      @ 010, 010 SAY oLabel_1 PROMPT cSourceDir SIZE 460, 30 PIXEL FONT oFontDefault OF oWnd        
      @ 040, 010 GET oText_1 VAR cPath SIZE 460, 30 PIXEL FONT oFontDefault OF oWnd                  

      @ 080, 010 BUTTON oBtn PROMPT "&OK" SIZE 460, 50 PIXEL FONT oFontDefault ACTION DoCreateFolder( cSourceDir, cPath ) OF oWnd

      oWnd:bKeyDown := { | nKey, nFlag | IF( nKey = VK_ESCAPE, oWnd:End(), IF( nKey = VK_RETURN, ( DoCreateFolder( cSourceDir, cPath ), oWnd:End() ), nil ) ) }
      oWnd:bResized := { | nType, nWidth, nHeight | oWnd:SetSize( 500, 180 ) }

      DEFINE TIMER oTimer INTERVAL 100 ACTION( SnapToCtrl( oWnd, oBtn, oTimer ), oTimer:End() ) OF oWnd
      ACTIVATE TIMER oTimer

#IFDEF __HMG__
   END WINDOW
#ENDIF

   oText_1:Setfocus()
   ACTIVATE WINDOW oWnd ON INIT MakeTop( oWnd ) CENTER

  oTimer:End()
RETURN

ESC seem to work but ENTER goes to BUTTON ... hm

---

when have type into GET and press "close" Button (upper - right) i expect "nothing" happens
but it "does" do DoCreateFolder() ... ...hm

have no Idea what is going on

did someone have a Sample how to use ENTER of GET to activate ACTION of "Ok" Button
need some help please

[Antonio Linares]

Dear Jimmy,

Simply add clause DEFAULT to the button:

@ 080, 010 BUTTON oBtn PROMPT "&OK" SIZE 460, 50 PIXEL FONT oFontDefault ACTION DoCreateFolder( cSourceDir, cPath ) OF oWnd DEFAULT

[Jimmy]

hi Antonio,

i have made a small Sample

Code: Select all  Expand view

#include "FiveWin.ch"

PROCEDURE Main()
LOCAL cSourceDir := hb_dirbase()
LOCAL cPath      := SPACE( 100 )
LOCAL oWnd, oLabel_1, oText_1, oBtn

   DEFINE WINDOW oWnd FROM 0, 0 TO 180, 300 PIXEL TITLE "Create New Folder" NOMINIMIZE NOMAXIMIZE

      @ 010, 010 SAY oLabel_1 PROMPT cSourceDir SIZE 260, 30 PIXEL OF oWnd
      @ 040, 010 GET oText_1 VAR cPath SIZE 260, 30 PIXEL OF oWnd

      @ 080, 010 BUTTON oBtn PROMPT "&OK" SIZE 260, 50 PIXEL ACTION( DoCreateFolder( cSourceDir, cPath ), oWnd:End() ) OF oWnd DEFAULT

#IFDEF __HMG__
   END WINDOW
#ENDIF

   oWnd:bKeyDown := { | nKey, nFlag | IF( nKey = VK_RETURN,;
                     ( DoCreateFolder( cSourceDir, cPath ), oWnd:End() ) ,;
                     IF( nKey = VK_ESCAPE, oWnd:End(), nil ) ) }

   oWnd:bResized := { | nType, nWidth, nHeight | oWnd:SetSize( 300, 180 ) }

   ACTIVATE WINDOW oWnd CENTER

RETURN

STATIC PROCEDURE DoCreateFolder( cSourceDir, cPath, oWnd )
   MsgInfo(TRIM(cSourceDir + cPath))
RETURN

i like to type in GET and than press ENTER
you will see MsgInfo() appear but NO cPath from GET

when press BUTTON than it is ok.
what i´m doing wrong

[cnavarro]

Change,

Code: Select all  Expand view

oWnd:bKeyDown := { | nKey, nFlag | ...
 

by

Code: Select all  Expand view

oText_1:bKeyDown := { | nKey, nFlag | ...
 

and try

[Enrico Maria Giordano]

DEFAULT clause seems to work fine with DIALOG but not with WINDOW:

Code: Select all  Expand view

#include "FiveWin.ch"

PROCEDURE Main()
LOCAL cSourceDir := hb_dirbase()
LOCAL cPath      := SPACE( 100 )
LOCAL oDlg

   DEFINE DIALOG oDlg TITLE "Create New Folder" SIZE 800, 600

      @ 010, 010 SAY cSourceDir SIZE 260, 30 PIXEL OF oDlg
      @ 040, 010 GET cPath SIZE 260, 30 PIXEL OF oDlg

      @ 080, 010 BUTTON "&OK" SIZE 260, 50 PIXEL ACTION( DoCreateFolder( cSourceDir, cPath ), oDlg:End() ) OF oDlg DEFAULT

#IFDEF __HMG__
   END WINDOW
#ENDIF

   ACTIVATE DIALOG oDlg CENTER

RETURN

STATIC PROCEDURE DoCreateFolder( cSourceDir, cPath )
   MsgInfo(TRIM(cSourceDir + cPath))
RETURN

[Jimmy]

hi,

i have make more test and it is always GET where i have the Problem

when have e.g. a LISTBOX i does work with bKeydown an ENTER (VK_RETURN)
also VK_ESCAPE does work to "close" Window at all Controls

---

when have many GET i can use ENTER, instead of TAB, to "jump" to next GET

Code: Select all  Expand view

2154      case nKey == VK_TAB .or. nKey == VK_RETURN

so ENTER is "internal" used by GET and CODEBLOCK will not get nKey = 13

[nageswaragunupudi]

Use bKeyDown.
You can handle VK_RETURN and if you handle VK_KEYDOWN in your codeblock, return 0 else return NIL.

[Jimmy]

hi,

found Solution

Code: Select all  Expand view

{ | nKey, nFlag | IF( nKey = VK_RETURN,;
  ( Syswait(0.1),DoCreateFolder( cSourceDir, cPath ), oWnd:End() ) ,;
  IF( nKey = VK_ESCAPE, oWnd:End(), nil ) ) }

i have used MsgInfo() before and cPath was empty()
but after close MsgInfo() i got next MsgInfo() with Result and that was ok ... ... hm

so i use Syswait(0.1) before call Function and that work

[Antonio Linares]

Very good!