|
forums.silverfrost.com Welcome to the Silverfrost forums
|
View previous topic :: View next topic |
Author |
Message |
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
Posted: Wed Jun 19, 2013 10:08 am Post subject: Another ClearWin+ beta |
|
|
I have uploaded another beta version of salflibc.dll to
http://www.silverfrost.com/beta/salflibc.exe
This is a self-extracting executable that produces three files...
salflibc.dll
salflibc.lib and
cwplus.enh
At the end of the enh file you will find information on a new format code %em that enables you to add icons to %mn and %pm menu items. |
|
Back to top |
|
|
LitusSaxonicum
Joined: 23 Aug 2005 Posts: 2388 Location: Yateley, Hants, UK
|
Posted: Wed Jun 19, 2013 10:51 am Post subject: |
|
|
Paul,
So this Salflibc.dll also supports the %bb mods too?
If you have %em, you don't need either %`mn or %`pm?
Congratulations on already addressing w7 & w8 differences.
Eddie |
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
Posted: Wed Jun 19, 2013 10:58 am Post subject: |
|
|
Yes, this supports the latest %bb and Yes, %em provides an alternative to %`mn and %`pm. |
|
Back to top |
|
|
DanRRight
Joined: 10 Mar 2008 Posts: 2816 Location: South Pole, Antarctica
|
Posted: Wed Jun 19, 2013 7:56 pm Post subject: |
|
|
Paul, All, always provide small few lines example everywhere you can, specifically in cwplus.enh and in Help file. That increases adoption rate by orders of magnitude. |
|
Back to top |
|
|
LitusSaxonicum
Joined: 23 Aug 2005 Posts: 2388 Location: Yateley, Hants, UK
|
Posted: Thu Jun 20, 2013 10:16 am Post subject: |
|
|
(Edit) Message was incomplete.
Last edited by LitusSaxonicum on Thu Jun 20, 2013 10:56 am; edited 1 time in total |
|
Back to top |
|
|
LitusSaxonicum
Joined: 23 Aug 2005 Posts: 2388 Location: Yateley, Hants, UK
|
Posted: Thu Jun 20, 2013 10:16 am Post subject: |
|
|
(Edit) Message was incomplete
Last edited by LitusSaxonicum on Thu Jun 20, 2013 10:56 am; edited 1 time in total |
|
Back to top |
|
|
LitusSaxonicum
Joined: 23 Aug 2005 Posts: 2388 Location: Yateley, Hants, UK
|
Posted: Thu Jun 20, 2013 10:19 am Post subject: |
|
|
Oh dear, posted twice without the full message. Here's the text:
I'm having difficulty with %em. I can confirm that the modifications for %bb work for me. When I try %em, I get an error message that "Could not find icon resource Road (IP.". This string does not occur in the code, with or without the final full stop, nor does it occur in the separately compiled resource file. The substrings "Road" and "IP" only occur in the last WINIO@ in the code segment above. The error message points at the subroutine where menus are set up, which contains the following code (in fixed format style):
Thinking that perhaps at least one menu item needed an icon, I tried that, but still get the error. Everything works fine without %em. Clearly, %em is intended to work without an icon on every menu item, because that is standard, and if it were the case (that icons were required on all), then I would have expected the error to come up with the first %mn. I have tried it on two separate computers, one running v6.10 and the other the latest FTN95pe. The beta salflibc.dll is in the same directory as the executable.
I get the same result with and without [w7].
It occurs to me that I don't understand what salflibc.lib does. Is my problem this lack of understanding? If so, please help! The beta download salflibc.lib is also in the directory with the sources and executable.
Eddie |
|
Back to top |
|
|
LitusSaxonicum
Joined: 23 Aug 2005 Posts: 2388 Location: Yateley, Hants, UK
|
Posted: Thu Jun 20, 2013 10:20 am Post subject: |
|
|
... and here's the code:
Code: | IA=WINIO@('%em[w7]&')
IA=WINIO@('%mn[File[~New...'//CHAR(9)//'Ctrl+N,'//
& '~Open...'//CHAR(9)//'Ctrl+O,'//
& '~Close'//CHAR(9)//'Ctrl+X,'//
& '~Save'//CHAR(9)//'Ctrl+S,'//
& '~Save As...'//CHAR(9)//'Ctrl+P,|,'//
& '~Print...,|,Exit]]&',
& MY_File_Grey(1), File_New_FN,
& MY_File_Grey(2), 'FILE_OPENR[Open SCAMPS data file]',
& Filenm,
& File_Open_FN,
& MY_File_Grey(3), File_Close_FN,
& MY_File_Grey(4), File_Save_FN,
& MY_File_Grey(5),'FILE_OPENW[Save SCAMPS data file]',
& Filenm,
& File_SaveAs_FN,
& MY_File_Grey(6), MY_Print_FN,
& File_Exit_FN)
IA=WINIO@('%mn[~Major control[Manual Input...,'//
& '~Import Coords...,|,'//
& '~Lock major control]]&',
& Major_Grey(10),
& Manual_Main_FN,
& Major_Grey(2), Import_Major_FN,
& Major_Grey(3), Lock_Main_FN )
IA=WINIO@('%mn[~Traverses[~Select traverse...'//CHAR(9)//'Ctrl+T'
& //',|,'//
& '~Edit traverse parameters...,'//
& '~Edit observations...,'//
& '~Calculate and adjust...,'//
& '~Visualise traverse...,'//
& '~View coordinates...,|,'//
& '~Return to map view]]&',
& MY_Traverse_Grey(10),
& MY_Traverse_Grey(1), Select_Trav_FN,
& MY_Traverse_Grey(2), Edit_Trav_FN,
& MY_Traverse_Grey(3), AnglesandDists_Trav_FN,
& MY_Traverse_Grey(4), See_Misclosure_FN,
& MY_Traverse_Grey(5), Plot_Trav_FN,
& MY_Traverse_Grey(6), View_Trav_FN,
& My_View_Grey(3), Map_FN)
IA=WINIO@('%mn[~Road design['//
& '~Road with grid input...,|,'//
& '~Create ends (new road)...,'//
& '~Create IPs...,'//
& '|,~Modify ends...,'//
& '~Modify IPs...,'//
& '|,~Delete IPs,'//
& '~Delete road,'//
& '|,~Set chainage interval...]]&',
& MY_Road_Grey(10),
& MY_Road_Grey(10), Road_Grid_FN,
& MY_Road_Grey(1), Road_Input_FN,
& MY_Road_Grey(2), Road_IPs_New_FN,
& MY_Road_Grey(3), Road_Ends_FN,
& MY_Road_Grey(4), Road_IPs_FN,
& MY_Road_Grey(5), DEL_IP_FN,
& MY_Road_Grey(6), DEL_Road_FN,
& MY_Road_Grey(7), Chainage_interval_FN) |
|
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
Posted: Thu Jun 20, 2013 10:27 am Post subject: |
|
|
It looks like something is going wrong with the Fortran concatenation.
Somehow %mn is finding a forward slash before the menu item text.
Try creating the whole string separately and print it out to see what it looks like.
By the way, you can now use the character ^ in place of //char(9)//. |
|
Back to top |
|
|
LitusSaxonicum
Joined: 23 Aug 2005 Posts: 2388 Location: Yateley, Hants, UK
|
Posted: Thu Jun 20, 2013 10:29 am Post subject: |
|
|
Paul you got an answer before I could even see it had posted correctly. Is it possible to remove the two failed posts (and this one) or should I go in and edit them shorter?
E |
|
Back to top |
|
|
LitusSaxonicum
Joined: 23 Aug 2005 Posts: 2388 Location: Yateley, Hants, UK
|
Posted: Thu Jun 20, 2013 10:58 am Post subject: |
|
|
No, it doesn't help. I divided the menu item up into sections so as not to have concatenation (as below), with the same effect:
Code: | IA=WINIO@('%mn[~Road design[~Road with grid input...,|]]&',
& MY_Road_Grey(10), MY_Road_Grey(10), Road_Grid_FN)
IA=WINIO@('%mn[[~Create ends (new road)...]]&',
& MY_Road_Grey(1), Road_Input_FN)
IA=WINIO@('%mn[[~Create IPs...]]&',
& MY_Road_Grey(2), Road_IPs_New_FN)
IA=WINIO@('%mn[[|,~Modify ends...]]&',
& MY_Road_Grey(3), Road_Ends_FN)
IA=WINIO@('%mn[[~Modify IPs...]]&',
& MY_Road_Grey(4), Road_IPs_FN)
IA=WINIO@('%mn[[|,~Delete IPs]]&',
& MY_Road_Grey(5), DEL_IP_FN)
IA=WINIO@('%mn[[~Delete road]]&',
& MY_Road_Grey(6), DEL_Road_FN)
IA=WINIO@('%mn[[|,~Set chainage interval...]]&',
& MY_Road_Grey(7), Chainage_interval_FN) |
Eddie |
|
Back to top |
|
|
LitusSaxonicum
Joined: 23 Aug 2005 Posts: 2388 Location: Yateley, Hants, UK
|
Posted: Thu Jun 20, 2013 12:11 pm Post subject: |
|
|
Ha, recompiled everything, and problem disappeared! It's so long since I had to do something like that I had forgotten that it sometimes works ...
E |
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
Posted: Thu Jun 20, 2013 12:14 pm Post subject: |
|
|
I don't have administrator access to the forum so the easiest way is for you to edit and shorten the posts.
Your sample works OK for me. Here is my program...
Code: | winapp
program main
integer ia,winio@
integer MY_Road_Grey(20)
integer,external:: cb
MY_Road_Grey = 1
IA=WINIO@('%em%mn[~Road design[~Road with grid input...,|]]&',
& MY_Road_Grey(10), MY_Road_Grey(10), cb)
IA=WINIO@('%mn[[~Create ends (new road)...]]&',
& MY_Road_Grey(1), cb)
IA=WINIO@('%mn[[~Create IPs...]]&',
& MY_Road_Grey(2), cb)
IA=WINIO@('%mn[[|,~Modify ends...]]&',
& MY_Road_Grey(3), cb)
IA=WINIO@('%mn[[~Modify IPs...]]&',
& MY_Road_Grey(4), cb)
IA=WINIO@('%mn[[|,~Delete IPs]]&',
& MY_Road_Grey(5), cb)
IA=WINIO@('%mn[[~Delete road]]&',
& MY_Road_Grey(6), cb)
IA=WINIO@('%mn[[|,~Set chainage interval...]]&',
& MY_Road_Grey(7), cb)
ia=winio@('%bb[OK]')
end
integer function cb()
cb = 1
end |
|
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
Posted: Thu Jun 20, 2013 1:02 pm Post subject: |
|
|
On further testing I find that your last sample does not work for me with %em[w7] so I will get back to you on this. |
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
Posted: Thu Jun 20, 2013 5:17 pm Post subject: |
|
|
I have fixed this problem and uploaded a new beta.
There is also a new %em option that is described in the enh file. |
|
Back to top |
|
|
|
|
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|