OpenEuphoria

1. Tree using wxEuphoria

• Posted by EUWX Mar 20, 2012
• 2148 views

I changed my focus to working with the tree control in wxEuphoria (instead of Menu control).
Actually it gives me the change in fonts (at each menu or tree item) and also a vertical rather than horizontal access to the "menu". However, I am at a loss as to the use of events in a tree.
There is only one demo regarding trees. In that demo (tree_list_demo.exw), I was not able to understand the use of

void = add_tree_item( tree, items[i][2][j][1], nums[k], rand_image(), rand_image()) 

at the third level and got lost trying to keep tabs on the multi dimentional sequence "items". There is also no demo of event handling.

If someone can post a couple of examples of event handling in a tree, I will be able to get further along. I am going to four levels of "menu" as a tree structure. Also some explanation of the sequence "items" as it gets built and expanded..... please.

Thanks in advance.

3. Re: Tree using wxEuphoria

• Posted by mattlewis (admin) Mar 24, 2012
• 1996 views

Sorry, I'd been meaning to reply to you...

Try putting the following event handler into the tree_list_demo.exw demo:

procedure on_right_click(atom this, atom event_type, atom id, atom event ) 
	atom item = get_tree_event_item( event ) 
	message_box( get_tree_text( tree, item ), "right click", wxOK ) 
end procedure 
set_event_handler( tree, -1, wxEVT_COMMAND_TREE_ITEM_RIGHT_CLICK, routine_id("on_right_click") ) 

It pops up a message box when you right click on one of the tree items.

Matt

5. Re: Tree using wxEuphoria

• Posted by EUWX Mar 24, 2012
• 1971 views

The event handler you suggested works well as described.
I have still not understood
1. The sequence "items"
2. The "void" in the following line, although I have copied and modified it:

  void = add_tree_item( tree, items[i][2][j][1], nums3[i][j][k], qimg2,qimg2) 

3. I have failed to decipher exact structure of the sequence "items", to make it more meaningful in my modified demo as follows:-

-- #!/home/matt/euphoria/bin/exu 
-- tree-demo-modified.exw 
-- wxEuphoria tree control demo modified 
-- To demonstrate, open out the tree to any extent, and right click on any of the items. 
 
-- We start with the required includes 
include std/text.e 
include wxeu/wxeud.e 
include tbar_xpm.e 
 
without warning 
object void 
 
-- Create the main window 
global constant 
  main 	= create( wxFrame, {0, -1, "wxTreeCtrl and wxListCtrl Demo" }), 
  win		= create( wxPanel, main ), 
  tree	= create( wxTreeCtrl, win), 
  list	= create( wxListCtrl, win), 
  $ 
 
-- Create the image list 
global constant 
  ilist	= create( wxImageList, {24, 24, 1, 0}), 
  Bitmap1 = create( wxBitmap, {BM_XPM, copy_xpm}), 
  Bitmap2 = create( wxBitmap, {BM_XPM, paste_xpm}), 
  Bitmap3 = create( wxBitmap, {BM_XPM, ok_xpm}), 
  Bitmap4 = create( wxBitmap, {BM_XPM, left_arrow_xpm}), 
  Bitmap5 = create( wxBitmap, {BM_XPM, right_arrow_xpm}), 
  i1		= add_image( ilist, Bitmap1, 0 ), 
  i2		= add_image( ilist, Bitmap2, 0 ), 
  i3		= add_image( ilist, Bitmap3, 0 ), 
  i4		= add_image( ilist, Bitmap4, 0 ), 
  i5		= add_image( ilist, Bitmap5, 0 ), 
  images  = {i1, i2, i3, i4, i5}, 
  $ 
 
-- Execute the procedure setup 
setup() 
 
-- The functions and procedures used above 
function rand_image() 
	integer i 
	i = rand(4) + 1 
	return images[i] 
end function 
 
procedure setup() 
	atom root, parent, hsizer, qimg1, qimg2, qimg3 
	sequence nums,nums2, items, nums3A,nums3B, nums3C,nums3 
 
	-- assign an imagelist to the tree	 
	tree_imagelist( tree, ilist ) 
 
      -- The variables nums, nums2, and nums3 can be changed to suit your needs 
	nums = { "one", "two", "three" } 
	nums2 = {  
         { "One-Sub", "Two-Sub", "Three-Sub" }, 
         { "Four-Sub", "Five-Sub", "Six-Sub" }, 
         { "Seven-Sub", "Eight-Sub", "Nine-Sub" } } 
	nums3A = { { "ABC1", "BCD1", "DEF1" }, 
         { "EFG1", "FGH1", "GHI1" }, 
         { "HIJ1", "IJK1", "JKL1" } } 
	nums3B = { { "ABC2", "BCD2", "DEF2" }, 
         { "EFG2", "FGH2", "GHI2" }, 
         { "HIJ2", "IJK2", "JKL2" } } 
	nums3C = { { "ABC3", "BCD3", "DEF3" }, 
         { "EFG3", "FGH3", "GHI3" }, 
         { "HIJ3", "IJK3", "JKL3" } } 
      nums3 = {nums3A,nums3B,nums3C} 
	-- add the root item 
      qimg1 = images[5] 
      qimg2 = images[4] 
	root = add_tree_root( tree, "Demo", qimg1, qimg1) 
	-- add three layers of children to the tree 
	items = repeat({0,  repeat( {0, { 0,  repeat( 0, 3 ) }}, 3 )}, 3) 
	for i = 1 to 3 do 
		items[i][1] = add_tree_item( tree, root, nums[i], qimg1,qimg1) 
		for j = 1 to 3 do 
			items[i][2][j][1] = add_tree_item( tree, items[i][1], nums2[i][j] , qimg1,qimg1) 
			for k = 1 to 3 do 
				void = add_tree_item( tree, items[i][2][j][1], nums3[i][j][k], qimg2,qimg2) 
			end for 
		end for 
	end for 
 
	-- add two columns to the list 
	void = insert_list_column( list, 0, "Numbers", 0, -1 ) 
	void = insert_list_column( list, 1, "#", 0, -1 ) 
	 
	-- assign the image list to the list 
	list_imagelist( list, ilist, wxIMAGE_LIST_SMALL ) 
	 
	-- add three items to the list with text in each column 
	for i = 1 to 3 do 
		void = insert_listctrl_item( list, i-1, {nums[i], sprint(i)}, rand_image()) 
	end for 
	void = insert_listctrl_item( list, 3, {"Four", sprint(4)}, -1) 
	 
	-- put the controls into sizers 
	hsizer = create( wxBoxSizer, wxHORIZONTAL ) 
	add_window_to_sizer( hsizer, tree, 1, wxGROW, 0 ) 
	add_window_to_sizer( hsizer, list, 1, wxGROW, 0 ) 
	set_sizer( win, hsizer ) 
end procedure 
 
-- procedures for all event handlers here. 
-- keep the procedure and event handler together. 
procedure on_right_click(atom this, atom event_type, atom id, atom event )  
	atom item = get_tree_event_item( event )  
      -- Show the right clicked item 
	message_box( get_tree_text( tree, item ), "right click", wxOK )  
end procedure  
set_event_handler( tree, -1, wxEVT_COMMAND_TREE_ITEM_RIGHT_CLICK, routine_id("on_right_click") )  
 
-- draw and show the window 
wxMain( main ) 
 

Thanks again. I am using Win XP Pro with SP2
and Euphoria 4.0.3 wxEuphoria ver 16

7. Re: Tree using wxEuphoria

• Posted by EUWX Mar 24, 2012
• 2005 views

Thanks again.
I will ask later if I have more questions.

9. Re: Tree using wxEuphoria

• Posted by EUWX Mar 26, 2012
• 1870 views

I appreciate your and Matt Lewis' response and explanation.

I understand the need for storing the node items in the variable "item".
I don't understand why the last level of items are not stored and are in fact, "voided".
If I wanted to store them, I presume I would have to make another empty variable, otherwise the sequence might become unwieldy.

Referring still to the demo program, I was also initially confused about the use of value 0 in the sequence "item". I am used to (in other languages) creating an appropriate literal or numeric variable for storage, but I presume although the demo is using 0, it is actually storing the text items and not their 32 bit pointers - Am I right in this presumption?

Going back to my earlier request re Linux, I would still like to work simultaneously in Linux. I noticed that the latest Ubuntu, Edubuntu, Versions 11 and 12 can be used off a CD/DVD, and I have installed on my computer a freeware program (by Gizmo) that allows a portion of hard drive to be seen as a CD/DVD with a separate drive letter. In fact I can have 4 or more virtual CD/DVDs to speed up the CD/DVD access. I would like to know which Linux version would be easiest to use with wxEuphoria and a URL to instructions for Euphoria and wxEuphoria on your favourite Linux distro.

11. Re: Tree using wxEuphoria

• Posted by EUWX Mar 26, 2012
• 1845 views

OMG.... Matt and Lazy .... Two words that cannot co-exist.
BTW, I have read many posts in many threads, and somehow the "lazy" Matt is often there.

I probably will.

They must be integer values of ids. From the values, would there be a way of idetifying and relating them with the corresponding text item?

Considering Kubuntu uses KDE and Ubuntu uses Gnome and something called Unity, also considering that wxEuphoria is essentially graphical in nature, I will be inclined to use Kubuntu. What is working NOW is what counts.
It also can be downloaded as disk image and hopefully be used under Windows XP as a virtual CD/DVD.

Thanks for your continuing help.

13. Re: Tree using wxEuphoria

• Posted by EUWX Mar 26, 2012
• 1799 views

Your comments noted and appreciated.
Now I have to go and wrestle with a monster called Linux flanked by
ubuntu, kubuntu, lubuntu, xubuntu, edubuntu, debian, opensuse, and many more.

Wish me luck.

15. Re: Tree using wxEuphoria

• Posted by EUWX Mar 27, 2012
• 1777 views

I have AMD Anthalon 64bit CPU with 4GB memory with a XP Pro 32bit on a part of HD and XP Pro 64bit on another partition. I am told that if I install Linux in yet another partition, Linux partition manager will take over, and I would hate to give control of my partitions to a foreigner.
4GB memory should be plenty for running VirtualBox. However, I am not so sure about complexity and speed under VirtualBox as opposed to running a Ubuntu version directly in a virtual RAM CD, at least initially. My intention is to develop under wxEuphoria and Windows which I am comfortable with, but off and on test under Linux to maintain compatibility all along. My escapade into Linux is strictly for one purpose only.

17. Re: Tree using wxEuphoria

• Posted by gbonvehi Mar 27, 2012
• 1772 views

Yes, Windows's boot manager doesn't allow other systems while with GRUB or Lilo (the ones most Linux distro uses) you can choose any OS.
4GB is really fine, you could easily give 2GB to the VM. It won't, of course, be as fast as running it from a Virtual RAM CD as I think your processor does not have emulation extensions. The advantage of the VM is that you really have all inside an emulated machine, all the things you do are "contained" there, you can take a snapshot of the VM, make a mess, and rollback to it.
Here are some Kubuntu VM images you can directly download and start using them: http://virtualboxes.org/images/kubuntu/
Both alternatives should work fine for you.