Added example of using pplot.

Author: jcowgar

.gitignore

@@ -15,3 +15,4 @@ demos/getparam
 demos/alarm
 demos/dlgs
 demos/webbrowser
+demos/pplot

demos/Makefile

@@ -32,7 +32,8 @@ ALL = \
 	getparam$(EXE) \
 	alarm$(EXE) \
 	dlgs$(EXE) \
-	webbrowser$(EXE)
+	webbrowser$(EXE) \
+	pplot$(EXE)
 
 INC_DIRS=-I../iup/_obj
 LIB_DIRS=-L../iup/_obj

demos/pplot.go

@@ -0,0 +1,56 @@
+/* 
+	Copyright (C) 2011 by Jeremy Cowgar <[email protected]>
+
+	This file is part of go-iup.
+
+	go-iup is free software: you can redistribute it and/or modify
+	it under the terms of the GNU Lesser General Public License as
+	published by the Free Software Foundation, either version 3 of
+	the License, or (at your option) any later version.
+
+	go-iup is distributed in the hope that it will be useful,
+	but WITHOUT ANY WARRANTY; without even the implied warranty of
+	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+	GNU General Public License for more details.
+
+	You should have received a copy of the GNU Lesser General Public
+	License along with go-iup.  If not, see <http://www.gnu.org/licenses/>.
+*/
+
+package main
+
+import (
+	"github.com/jcowgar/go-iup"
+)
+
+func main() {
+	iup.Open()
+	defer iup.Close()
+	
+	pplot := iup.PPlot("EXPAND=YES")
+	pplot.StoreAttribute("TITLE", "Bar Mode")
+	pplot.StoreAttribute("TITLEFONTSIZE", "16")
+	pplot.StoreAttribute("MARGINTOP", "40")
+	pplot.StoreAttribute("MARGINLEFT", "30")
+	pplot.StoreAttribute("MARGINBOTTOM","65")
+	
+	labels := []string{
+		"Jan", "Feb", "Mar", "Apr", "May", "Jun", 
+		"Jul", "Aug", "Sep", "Oct", "Nov", "Dec"}
+	values := []float64{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12}
+	
+	pplot.PlotBegin(1)
+	for i := 0; i < len(labels); i++ {
+		pplot.PlotAddStr(labels[i], values[i])
+	}
+	pplot.PlotEnd()
+	pplot.StoreAttribute("DS_MODE", "BAR")
+	pplot.StoreAttribute("DS_COLOR", "100 100 200")
+	
+	dlg := iup.Dialog(pplot, "SIZE=200x200,TITLE=\"PPlot Example\"")
+	dlg.Show()
+	
+	pplot.StoreAttribute("REDRAW", "")
+	
+	iup.MainLoop()
+}

iup/pplot.go

@@ -28,8 +28,15 @@ package iup
 import "C"
 import "unsafe"
 
+var pplotLibOpened = false
+
 func PPlot(opts ...interface{}) *Ihandle {
 	ensureControlLibOpened()
+	
+	if pplotLibOpened == false {
+		C.IupPPlotOpen()
+		pplotLibOpened = true
+	}
 
 	ih := &Ihandle{h: C.IupPPlot()}
 
@@ -96,7 +103,7 @@ func (ih *Ihandle) PlotInsertStrPoints(index, sample_index int, x []string, y []
 }
 
 // Differs from IupPlotInsertPoints as `count' is determined automatically in this case
-func (ih *Ihandle) IupPlotAddPoints(index int, x, y []float64) {
+func (ih *Ihandle) PlotAddPoints(index int, x, y []float64) {
 	count := len(x)
 	cX := float64ArrayToC(x)
 	cY := float64ArrayToC(y)
@@ -105,7 +112,7 @@ func (ih *Ihandle) IupPlotAddPoints(index int, x, y []float64) {
 }
 
 // Differs from IupPlotInsertPoints as `count' is determined automatically in this case
-func (ih *Ihandle) IupPlotAddStrPoints(index int, x []string, y []float64) {
+func (ih *Ihandle) PlotAddStrPoints(index int, x []string, y []float64) {
 	count := len(x)
 
 	cX := stringArrayToC(x)