Intel® Fortran Libraries Reference

2 Intel Fortran Libraries ReferenceCallback routines for a control are called after the value of the control has been updated based onthe user’s action.If two or more controls have the same controlid, you cannot use these controls in a DLGSETSUBoperation. In this case, the function returns .FALSE..For more information, see "Dialog Callback Routines" in your user’s guide.CompatibilityCONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS LIBSee Also: “DLGSET, DLGSETINT, DLGSETLOG, DLGSETCHAR”, “DLGGET,DLGGETINT, DLGGETLOG, DLGGETCHAR”ExamplePROGRAM DLGPROGUSE IFLOGMINCLUDE "MYDLG.FD"TYPE (dialog) mydialogLOGICAL retlogINTEGER returnEXTERNAL RADIOSUBretlog = DLGINIT(IDD_mydlg, dlg)retlog = DLGSETSUB (mydialog, IDC_RADIO_BUTTON1, RADIOSUB)retlog = DLGSETSUB (mydialog, IDC_RADIO_BUTTON2, RADIOSUB)return = DLGMODAL(dlg)ENDSUBROUTINE RADIOSUB( dlg, id, callbacktype )!DEC$ ATTRIBUTES DEFAULT :: callbacknameUSE IFLOGMTYPE (dialog) dlgINTEGER id, callbacktypeINCLUDE 'MYDLG.FD'CHARACTER(256) textINTEGER cel, far, retintLOGICAL retlogSELECT CASE (id)CASE (IDC_RADIO_BUTTON1)! Radio button 1 selected by user so! change text accordinglytext = 'Statistics Package A'2-68