Different Behavior of hiGetCurrentForm()~>hiFormSym in ic and icadvm Version

Sonu,

1. I don't this with that version (and I'd be very surprised about a change of behaviour with this since it's been the same for many years) - hiGetCurrentForm() is dependent upon the form focus - if the form focus has been over whatever form you're using, this should work (and it does from my experiment)
2. I can't guess what might cause this without knowing what the deRegUserTriggers call looks like. Can you share that? 

Andrew

Hello Andrew,

Thanks for quick response and I am adding more details so that i can better explain my point.

I am invoking a callback through a custom user form (symbol name of this user form is enclosed_Area_Drawn_Form)  and Its seems that after clicking the "OK" Button for Custom User Form for first time the hiGetCurrentForm()~>hiFormSym is returning deOpenForm rather than the Symbol for Custom User Form in icadvm version.

 After First Invocation , Then its correctly returning the symbol for Custom Form in icavdm version.Where ever in ic version its always returning the symbol of form Name irrespective of first or nth invocation.

The Issue is only happening for First Invocation of form only.

For Example : I am getting this info about the current form in CIW after invocation of my form for first time in incadvm

Output About Current Form in CIW  (This is not the user custom form that i have invoked)

hiGetCurrentForm()~>??
(_unmapAfterCB t _plist nil font
"label" _promptBoxWidth nil _maxYExtent 0
_maxXExtent 0 _layoutType attachForm _formType
nonoptions _CBstatus t _doneAction "deOpenFormCB()"
_WMTitle "Open File" _formName "Open File" _widgetInstanceList
(ptrnum@0x213d9160) fieldList
(designFrame deLibName deCellName deCellsLabel deCellChoice
deViewName viewTypeDisplay _deBrowserField _deLCVIcon appFrame
appName saveApp deAccessMode deCdsLibPath deWindowStyle
deMinReleaseInfo no_match_cell_name
) hiFormSym deOpenForm
no_match_cell_name no_match_cell_name _doneButton ptrnum@0x213d9150 _bannerID
ptrnum@0x213d9140 defAppNameSrc rootType viewType "text"
_deIsFormActive nil __de_set_appName_enabled_to t deMinReleaseInfo
deMinReleaseInfo deWindowStyle deWindowStyle deCdsLibPath deCdsLibPath
deAccessMode deAccessMode saveApp saveApp appName
appName appFrame appFrame _deLCVIcon _deLCVIcon
_deBrowserField _deBrowserField viewTypeDisplay viewTypeDisplay deViewName
deViewName deCellChoice deCellChoice deCellsLabel deCellsLabel
deCellName deCellName deLibName deLibName designFrame
designFrame fieldFocus allTypein _mapCB __de_on_OpenForm_map
dontBlock nil initialSize
(500 328) dialogStyle
modeless currentProc nil tabOrderIsAddOrder nil
maxSize nil minSize
(500 358) _buttonDisabled
nil buttonLayout
(OKCancel)

)

2. Regarding deRegUserTriggers I am able to find the issue on my side. I was using "maskLayoutXL" as viewtype which was creating the issue as it should be "maskLayout" (Point to root View Type).

Regards

Sonu

Hi Sonu,

I tried this code:

procedure(MyCallback()
  printf("FORM IS %L\n" hiGetCurrentForm()->hiFormSym)
)

procedure(MyCreateAndDisplayForm()
    hiCreateAppForm(
	?name 'MyForm
	?fields list(
	    hiCreateStringField(
		?name 'thefield
		?value "something"
		?prompt "Test"
	    )
	)
	?callback "MyCallback()"
    )
    hiDisplayForm(MyForm)
)

I was using ICADVM18.1-64b.500.9 and I tried starting Virtuoso and either:

1. load("code.il") and then MyCreateAndDisplayForm()
2. File->New->CellView and then 
   1. load("code.il") and then MyCreateAndDisplayForm()

In both cases, pressing the OK button outputs:

FORM IS MyForm

So I can't reproduce this (which doesn't surprise me). Maybe you need to contact customer support? Or perhaps you should first try with a more recent version (this sub-version is 2 years old)?

Andrew