- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Hello,
I would like to program a dialog box using linux fortan complier. The equivalent visual program look like tihs :
------------------------------------
use dfwin
use dfwinty ! loads parameter definitions
! for MB_YESNOCANCEL, IDYES etc.
integer hWnd ! hWnd Can be NULL
integer iret
character*100 lpszMessage, lpszHeader
if( i.gt.0) then
lpszMessage = "(I>0), Do You want to continue"C
lpszHeader = "ERROR MESSAGE"C
! If hWnd is null, the message box has no owner window...
iret = MessageBox (hWnd, &
lpszMessage, &
lpszHeader, &
IOR(MB_SYSTEMMODAL, &
IOR(MB_YESNOCANCEL)) )
endif
if(iret.eq.IDCANCEL) then
...
else if(iret.eq.IDYES) then
...
else if (iret.eq.IDNO) then
...
endif
------------------------------------
dfwin and dfwinty run visual objects and don't run under Linux.
Thank You very much for Your help.
Didace
I would like to program a dialog box using linux fortan complier. The equivalent visual program look like tihs :
------------------------------------
use dfwin
use dfwinty ! loads parameter definitions
! for MB_YESNOCANCEL, IDYES etc.
integer hWnd ! hWnd Can be NULL
integer iret
character*100 lpszMessage, lpszHeader
if( i.gt.0) then
lpszMessage = "(I>0), Do You want to continue"C
lpszHeader = "ERROR MESSAGE"C
! If hWnd is null, the message box has no owner window...
iret = MessageBox (hWnd, &
lpszMessage, &
lpszHeader, &
IOR(MB_SYSTEMMODAL, &
IOR(MB_YESNOCANCEL)) )
endif
if(iret.eq.IDCANCEL) then
...
else if(iret.eq.IDYES) then
...
else if (iret.eq.IDNO) then
...
endif
------------------------------------
dfwin and dfwinty run visual objects and don't run under Linux.
Thank You very much for Your help.
Didace
Link Copied
2 Replies
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
You will have to use some separate library to do this. One that supports both Linux and Windows is GINOMENU.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Hello,
I have already use Visual Fortran Library for the Windows version. Thus, I can use separate library for Windows and Linux. The most important is than I want something simple. I just want display some warning, and ask the user to clic on Ok. To be sure that I have read the display message.
Best regards,
Didace
I have already use Visual Fortran Library for the Windows version. Thus, I can use separate library for Windows and Linux. The most important is than I want something simple. I just want display some warning, and ask the user to clic on Ok. To be sure that I have read the display message.
Best regards,
Didace

Reply
Topic Options
- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Bookmark
- Subscribe
- Printer Friendly Page