ListView.cs to ListView.cobra

ListView.cs:

//-----------------------------------------------------------------------------
// wx.NET/Samples - ListView.cs
//
// wx.NET "ListView" sample.
//
// Written by Alexander Olk (xenomorph2@onlinehome.de)
// (C) 2004 Alexander Olk
// Licensed under the wxWidgets license, see LICENSE.txt for details.
//
// $Id$
//-----------------------------------------------------------------------------

using System;
using System.Drawing;

namespace wx.SampleListView
{
	public class ListViewFrame : Frame
	{
		enum Cmd 
		{
			About,
			Quit
		}

		//---------------------------------------------------------------------

		public TextCtrl textCtrl;

		//---------------------------------------------------------------------

		public ListViewFrame(string title, Point pos, Size size)
			: base(title, pos, size)
		{
			// Set the window icon and status bar

			Icon = new wx.Icon("../Samples/ListView/mondrian.png");

			CreateStatusBar();
			StatusText = "Welcome to the ListView Sample!";	
			
			Menu menuFile = new Menu();
			menuFile.AppendWL( (int)Cmd.About, "&About", new EventListener( OnAbout ) );
			menuFile.AppendSeparator();
			menuFile.AppendWL( (int)Cmd.Quit, "E&xit\tAlt-X", "Quit this program", new EventListener( OnQuit) );
			
			MenuBar menuBar = new MenuBar();
			menuBar.Append( menuFile, "&File" );
			MenuBar = menuBar;

			textCtrl = new TextCtrl(this, -1, "", wxDefaultPosition, wxDefaultSize, 
				TextCtrl.wxTE_MULTILINE | TextCtrl.wxTE_READONLY | TextCtrl.wxSUNKEN_BORDER );

			Log.SetActiveTarget( textCtrl );
			
			MyListView mlv = new MyListView( this );

			BoxSizer bSizer = new BoxSizer( Orientation.wxVERTICAL );
			bSizer.Add( mlv, 1, Stretch.wxGROW );
			bSizer.Add( textCtrl, 0, Stretch.wxGROW );

			Sizer = bSizer;
		}

		//---------------------------------------------------------------------	

		public void OnAbout( object sender, Event e )
		{
			MessageDialog.MessageBox( "wx.NET ListView sample\n2004 by Alexander Olk", "About",
				Dialog.wxOK | Dialog.wxICON_INFORMATION );
		}

		//---------------------------------------------------------------------	

		public void OnQuit( object sender, Event e )
		{
			Close();
		}
	}   
	
	//---------------------------------------------------------------------	
	
	public class MyListView : ListView
	{
		public MyListView( Window parent )
			: base( parent, -1, wxDefaultPosition, wxDefaultSize, ListCtrl.wxLC_REPORT | ListCtrl.wxLC_EDIT_LABELS  )
		{
		
			InsertColumn( 0, "First Column" );
			SetColumnWidth( 0, 200 );
			
			ListItem itemCol = new ListItem();
			itemCol.Text = "Second Column";
			itemCol.Align = ListCtrl.wxLIST_FORMAT_CENTER;
			itemCol.Width = 300;
			InsertColumn( 1, itemCol );
		
			for ( int i = 0; i < 200; ++i )
			{
				string buf = "Col 1 Item " + i;
				int tmp = InsertItem( i, buf, 0);
				SetItemData( tmp, i );
				
				buf = "Col 2 Item " + i;
				SetItem( i, 1, buf );
			}
				
			Log.LogMessage( "Items created..." );
			
			ColumnClick += new EventListener( OnColumnClick );
			ItemSelect += new EventListener( OnItemSelect );
			ColumnRightClick += new EventListener( OnColumnRightClick );
		}
		
		//---------------------------------------------------------------------	
		
		public void OnColumnClick( object sender, Event e )
		{
			ListEvent le = e as ListEvent;
			
			Log.LogMessage( "Clicked column header " + le.Column );
		}
		
		//---------------------------------------------------------------------	
		
		public void OnItemSelect( object sender, Event e )
		{
			ListEvent le = e as ListEvent;
			
			Log.LogMessage( "Value 1st field of selected item: " + le.Text );
			
			ListItem info = new ListItem();
			info.Id = le.Index;
			info.Column = 1;
			info.Mask = ListCtrl.wxLIST_MASK_TEXT;
			
			GetItem( ref info );
			
			Log.LogMessage( "Value of 2nd field of selected item: " + info.Text );
		}
		
		//---------------------------------------------------------------------	
		
		public void OnColumnRightClick( object sender, Event e )
		{
			ListEvent le = e as ListEvent;
			
			Log.LogMessage( "Right clicked column header " + le.Column );
		}
	}
	
	//---------------------------------------------------------------------	

	public class ListViewApp : wx.App
	{
		public override bool OnInit()
		{
			ListViewFrame frame = new ListViewFrame("ListView wxWidgets Sample", new Point(10, 100), new Size(650,340));
			frame.Show(true);

			return true;
		}

		//---------------------------------------------------------------------

		[STAThread]
		static void Main()
		{
			ListViewApp app = new ListViewApp();
			app.Run();
		}
	}
}

ListView.cobra:

/#-----------------------------------------------------------------------------
 wx.NET/Samples - ListView.cs

 wx.NET "ListView" sample.

 Written by Alexander Olk (xenomorph2@onlinehome.de)
 (C) 2004 Alexander Olk
 Licensed under the wxWidgets license, see LICENSE.txt for details.

 Converted to cobra hops 29-Oct-2009
 $Id$
-----------------------------------------------------------------------------
#/
use System.Drawing
use wx from "wx.NET"

namespace SampleListView
	class ListViewFrame inherits Frame

		enum Cmd 
			About
			Quit

		var textCtrl as TextCtrl

		cue init(title as String, pos as Point, size as Size)
			base.init(title, pos, size)
			# Set the window icon and status bar
			#Icon = Icon("./mondrian.png")) # this doesnt compile
			#.setIcon(Icon("./mondrian.png")) # nor this
			.createStatusBar
			#StatusText = "Welcome to the ListView Sample!"	
			#.statusText = "Welcome to the ListView Sample!"	 # doesnt compile
			.setStatusText("Welcome to the ListView Sample!")
			
			menuFile = Menu()
			menuFile.appendWL( Cmd.About to int, "&About", EventListener( ref .onAbout ) )
			menuFile.appendSeparator
			menuFile.appendWL( Cmd.Quit to int, "E&xit\tAlt-X", "Quit this program", EventListener( ref .onQuit) )
			
			menuBar = MenuBar()
			menuBar.append( menuFile, "&File" )
			.menuBar = menuBar

			.textCtrl = TextCtrl(this, -1, "", .wxDefaultPosition, .wxDefaultSize, 
				TextCtrl.wxTE_MULTILINE | TextCtrl.wxTE_READONLY | TextCtrl.wxSUNKEN_BORDER )

			Log.setActiveTarget(.textCtrl)
			
			mlv = MyListView( this )

			bSizer = BoxSizer( Orientation.wxVERTICAL )
			bSizer.add( mlv, 1, Stretch.wxGROW )
			bSizer.add( .textCtrl, 0, Stretch.wxGROW )

			.sizer = bSizer
		

		def onAbout( sender as System.Object, e as Event)
			MessageDialog.messageBox( "wx.NET ListView sample (Cobra)\nConverted Oct 2009 by hops", "About",
				Dialog.wxOK | Dialog.wxICON_INFORMATION )
		
		def onQuit(sender, e as Event)
			.close
	
	class MyListView inherits ListView
	
		cue init( parent as Window )
			base.init( parent, -1, .wxDefaultPosition, .wxDefaultSize, ListCtrl.wxLC_REPORT | ListCtrl.wxLC_EDIT_LABELS  )
		
		
			.insertColumn( 0, "First Column" )
			.setColumnWidth( 0, 200 )
			
			itemCol = ListItem()
			itemCol.text = "Second Column"
			itemCol.align = ListCtrl.wxLIST_FORMAT_CENTER
			itemCol.width = 300
			.insertColumn( 1, itemCol )
		
			for i in 0 : 200
				buf = "Col 1 Item [i]"
				tmp = .insertItem( i, buf, 0)
				.setItemData( tmp, i )
				
				buf = "Col 2 Item [i]"
				.setItem( i, 1, buf )
				
			Log.logMessage( "Items created..." )

			listen .columnClick, 	EventListener( ref .onColumnClick ) 
			#listen .columnClick, 	ref .onColumnClick  # also works
			listen .itemSelect, 	  EventListener( ref .onItemSelect )
			listen .columnRightClick, EventListener( ref .onColumnRightClick )
		
		
		def onColumnClick( sender as System.Object, e as Event)
			le = e to ListEvent
			Log.logMessage( "Clicked column header [le.column]" )
		
		def onItemSelect( sender as System.Object, e as Event)
			le = e to ListEvent
			Log.logMessage( "Value 1st field of selected item: [le.text]" )

			info = ListItem()
			info.id = le.index
			info.column = 1
			info.mask = ListCtrl.wxLIST_MASK_TEXT
			.getItem( inout info ) 

			Log.logMessage( "Value of 2nd field of selected item: [info.text]" )

		def onColumnRightClick( sender as System.Object, e as Event )
			le = e to ListEvent
			Log.logMessage( "Right clicked column header [le.column]" )
		
	
	class ListViewApp inherits App is public
	
		def onInit as bool is override
			frame = ListViewFrame("ListView wxWidgets Sample", Point(10, 100), Size(650,340))
			frame.show(true)
			return true
		
		def main is shared has STAThread
			app = ListViewApp()
			app.run