prcs: Producing diffs from 0.39 to xtree.1.
Index: 0.39/cell.g
--- 0.39/cell.g Sat, 30 Oct 1999 01:44:13 +0200 hugo (purkinje/33_cell.g 1.10.1.3 644)
+++ xtree.1/cell.g Tue, 23 Nov 1999 15:54:16 +0100 hugo (purkinje/33_cell.g 1.10.1.3.1.1 644)
@@ -42,7 +42,7 @@
 // cut off from previous cell
 // this cell can automatically fire even without external activation
 
-//str cellfile = "psmall.p"
+str cellfile = "psmall.p"
 
 
 end
Index: 0.39/xtree.g
--- 0.39/xtree.g Thu, 04 Apr 2002 11:15:46 +0200 hugo ()
+++ xtree.1/xtree.g Tue, 23 Nov 1999 15:54:16 +0100 hugo (purkinje/51_xtree.g 1.1 664)
@@ -0,0 +1,140 @@
+//genesis
+//
+// $Id: purkinje-0.39-purkinje-xtree.1.patch 1.2 Thu, 04 Apr 2002 11:55:56 +0200 hugo $
+//
+
+//////////////////////////////////////////////////////////////////////////////
+//'
+//' Purkinje tutorial
+//'
+//' (C) 1998-2002 BBF-UIA
+//'
+//' see our site at http://bbf-www.uia.ac.be/ for more information regarding
+//' the Purkinje cell and genesis simulation software.
+//'
+//'
+//' functional ideas ... Erik De Schutter, erik@bbf.uia.ac.be
+//' genesis coding ..... Hugo Cornelis, hugo@bbf.uia.ac.be
+//'
+//' general feedback ... Reinoud Maex, Erik De Schutter
+//'
+//////////////////////////////////////////////////////////////////////////////
+
+
+// xtree.g : xtree functionality
+
+int include_xtree
+
+if ( {include_xtree} == 0 )
+
+	include_xtree = 1
+
+
+///
+/// SH:	XTreeCreate
+///
+/// DE:	Create the xtree display widget with all buttons
+///
+
+function XTreeCreate
+
+	//- create form container
+
+	create xform /xtree [0, 0, 500, 470]
+
+	//- add field for output
+
+	addfield /xtree \
+		output -description "Output (toggled widget)"
+
+	//- add field for output source
+
+	addfield /xtree \
+		outputSource -description \
+				"Output source (compartment subelement)"
+
+	//- add field for output value
+
+	addfield /xtree \
+		outputValue -description "Output value (Vm, Ik, Gk, Ek, Ca)"
+
+	//- add field for output flags
+
+	addfield /xtree \
+		outputFlags -description "Output flags (1-7)"
+
+	//- add field for output description
+
+	addfield /xtree \
+		outputDescription -description "Output description (Title)"
+
+	//- add field for channel mode
+
+	addfield /xtree \
+		channelMode -description "Channel display mode (Ik, Gk, Ek)"
+
+	//- add field for registering boundary element
+
+	addfield /xtree \
+		boundElement -description "Element with display boundaries"
+
+	//- create the heading at the top
+
+	//XTreeCreateHeadings
+
+	//- create the draw
+
+	//XTreeCreateDraw
+
+	//- create color dialog widgets at the bottom
+
+	//XTreeCreateColorDialogs
+
+	//- create the buttons and toggles
+
+	//XTreeCreateButtons
+
+	//- prepare the electrodes
+
+	//XTreePrepareElectrodes
+
+	create xdraw /xtree/draw \
+		[0,0,100%,100%]
+	setfield /xtree/draw \
+		xmin -10 \
+		xmax 10 \
+		ymin -5 \
+		ymax 5
+
+	create xtree /xtree/draw/tree
+
+	setfield /xtree/draw/tree \
+		path {cellpath}/soma[],{cellpath}/soma[]/##[] \
+		treemode tree \
+		sizescale 2 \
+		orientation down \
+		script "echo Element <v>"
+
+	//- show the output form
+
+	xshow /xtree
+
+	call /xtree/draw/tree ADDMSGARROW \
+		all \
+		all \
+		all \
+		all \
+		blue \
+		0 0 \
+		"move.p <S> <D>; reset.p" \
+		"" \
+		""
+
+	call /xtree/draw/tree SHOWMSGARROW
+
+	call /xtree/draw/tree RESET
+
+end
+
+
+end