Daniel S Henry

FYI, we are still considering your ORBIT-ADA, we did run into a few snags, but i was getting there, My Customer is currently evaluating where they want to go, i am working on other projects while we wait for the government to decide, if they want to move forward or drop this project. thnx for your help, i know i was a bit scatter brained at first, but it was starting to work. i did get several dialog boxes up, and that's how far we wanted to get at that point. danielh On 4/29/20 7:23 PM, Oliver Kellogg...

ok, i figured it out, OrbRiver treats all defines as functions, and returns the RETURNS via the function call, orbit-ada treats all defines as procedures and returns the RETURNS via an out varialbe called RETURNS, all i had to do was change all define calls to presume a procedure and get the IOR from the variable RETURNS, moving forward.... crosss your fingers

so first off, i don't think it can be a constant, because it's an out value 2nd, it still whines about being a package or procedure name, 3rd, i trie both a direct reference and a variable in the procedure and a private in the spec, all three same result smu_pull_down.adb:398:40: expected private type "Ref" defined at corba-object.ads:6 smu_pull_down.adb:398:40: found package or procedure name dsp_display_list.adb:1113:42: expected private type "Ref" defined at corba-object.ads:6 dsp_display_list.adb:1113:42:...

smu_pull_down.adb:393:40: expected private type "Ref" defined at corba-object.ads:6 smu_pull_down.adb:393:40: found package or procedure name dsp_display_list.adb:1107:42: expected private type "Ref" defined at corba-object.ads:6 dsp_display_list.adb:1107:42: found package or procedure name

yep, that fixed it, thnx much, while i have your attention, i had one more question 1. i keep getting the error expected private type "Ref" defined at corba-object.ads:6 found package or procedure name. 2. the last variable in the Call is called RETURNS. (mycorba.PULL_DOWN.define_PULL_DOWN(self,text,enabled,item_num,font_rec,RETUNS) 3. in the OLD ORBRiver code we had a DEFAULT NULL_REF that we put here. 4. we don't need this value, but i can't get it to compile 5. what do i put in the RETURNS variable?...

yep, that fixed it, thnx much, while i have your attention, i had one more question 1. i keep getting the error expected private type "Ref" defined at corba-object.ads:6 found package or procedure name. 2. the last variable in the Call is called RETURNS. (mycorba.PULL_DOWN.define_PULL_DOWN(self,text,enabled,item_num,font_rec,RETUNS) 3. in the OLD ORBRiver code we had a DEFAULT NULL_REF that we put here. 4. we don't need this value, but i can't get it to compile 5. what do i put in the RETURNS variable?...