OpenEuphoria

2. Re: EuGTK now on Sourceforge

• Posted by "Mike Sabal" <Sabal.Mike at notations.com> Jul 28, 2004
• 607 views

> http://sourceforge.net/projects/eugtk/ 
>
> The usual amenities provided by Sourceforge are there, and a 
> mailing list will be up shortly. Anyone who wants to sign on 
> as a developer let me know.
>
> Regards,
> Irv

Sign me up, but I'm not sure how much help I'm going to be.  While
we're on this topic, I'm totally stumped on one area of list views.  I
can see how we can identify the line numbers selected, but how on earth
do I extract the data contained in the selected line?  I keep getting
machine-level exceptions, so I know I'm doing something wrong.

Michael J. Sabal

4. Re: EuGTK now on Sourceforge

• Posted by irv mullins <irvm at ellijay.com> Jul 28, 2004
• 651 views

Mike Sabal wrote:

> Sign me up, but I'm not sure how much help I'm going to be.  While
> we're on this topic, I'm totally stumped on one area of list views.  I
> can see how we can identify the line numbers selected, but how on earth
> do I extract the data contained in the selected line?  I keep getting
> machine-level exceptions, so I know I'm doing something wrong.

Here's a patch to fix the problem. It's not clean, but it works. 
I'll try to come up with something better asap.
Add the following code to tree_selection.gtk:

constant get_data = define_c_func(GTK,"gtk_tree_model_get",{P,P,I,P,I},P)
constant col_type = define_c_func(GTK,"gtk_tree_model_get_column_type",{P,I},P)

--------------------------------------------
global function GetRowData(atom selection)
--------------------------------------------
integer cols, model, iter
object result, item, data

if gtkGet(selection,"Count") < 1 then 
   return NULL
end if

result = gtkGet(selection,"Selected")
model =	result[1]
iter = result[2]

cols = gtkGet(model,"N Columns")
data = repeat("",cols)
item =  allocate(4)
poke4(item,0)

for x = 1 to cols do
 result = c_func(get_data,{model,iter,x-1,item,-1})
 if c_func(col_type,{model,x-1}) = gSTR then
    data[x] = deallocate_string(peek4u(item))
 else
 data[x] = peek4u(item)
 end if
end for

return data
end function

You can then call this as follows:

-----------------------------------------
function ShowChoice()
-----------------------------------------
object result

-- only works if selection_mode is single;
result = GetRowData(selection)
pretty_print(1,result,{2,0})

return NULL
end function
constant show_choice = call_back(routine_id("ShowChoice"))

Regards,
Irv

6. Re: EuGTK now on Sourceforge

• Posted by irv mullins <irvm at ellijay.com> Jul 28, 2004
• 604 views

cklester wrote:
> 
> irv mullins wrote:
> > 
> > 
> > <a
> > href="http://sourceforge.net/projects/eugtk/">http://sourceforge.net/projects/eugtk/</a>
> > 
> > The usual amenities provided by Sourceforge are there, and a 
> > mailing list will be up shortly. Anyone who wants to sign on 
> > as a developer let me know.
> 
> Irv, is the package download there Linux only? I'm guessing not,
> but I don't want to assume nuttin'. :)

Yes it is, but follow the link to my home page for the Windows version.
It has a few bugs related to file paths to be fixed before I put it 
on Sourceforge.

Regards,
Irv

8. Re: EuGTK now on Sourceforge

• Posted by "Mike Sabal" <Sabal.Mike at notations.com> Aug 02, 2004
• 554 views

> posted by: irv mullins <irvm at ellijay.com>

> Here's a patch to fix the problem. It's not clean, but it works. 
> I'll try to come up with something better asap.
> Add the following code to tree_selection.gtk:

<SNIP>

After changing gtkGet to get, it worked great.  I had some charset
issues from copying between email and Kate, but once I cleaned that up
it was fine.  Has there been an update to the library changing get to
gtkGet?  If so, I'll need to d/l the update.

Mike