[Gridflow-cvs] [svn] commit: r5005 - /trunk/src/netpbm.cxx

gridflow-cvs at artengine.ca gridflow-cvs at artengine.ca
Tue Feb 9 10:23:56 EST 2010


Author: matju
Date: Tue Feb  9 10:23:55 2010
New Revision: 5005

Log:
obsolete [#io.tk]

Modified:
    trunk/src/netpbm.cxx

Modified: trunk/src/netpbm.cxx
==============================================================================
--- trunk/src/netpbm.cxx (original)
+++ trunk/src/netpbm.cxx Tue Feb  9 10:23:55 2010
@@ -87,30 +87,6 @@
 \classinfo {install_format("#io.ppm",6,"ppm pgm pnm pam");}
 \end class FormatNetPBM
 
-/*FormatPPM.subclass("#io:tk",1,1) {
-	install_rgrid 0
-	def initialize(mode)
-		@id = sprintf("x%08x",object_id)
-		@filename = "/tmp/tk-#{$$}-#{@id}.ppm"
-		if mode!=:out then raise "only #out" end
-		super(mode,:file, at filename)
-		GridFlow.gui "toplevel .#{@id}\n"
-		GridFlow.gui "wm title . GridFlow/Tk\n"
-		GridFlow.gui "image create photo gf#{@id} -width 320 -height 240\n"
-		GridFlow.gui "pack [label .#{@id}.im -image #{@id}]\n"
-	end
-	def _0_rgrid_end
-		super
-		@stream.seek 0,IO::SEEK_SET
-		GridFlow.gui "image create photo #{@id} -file #{@filename}\n"
-	end
-	def delete
-		GridFlow.gui "destroy .#{@id}\n"
-		GridFlow.gui "image delete #{@id}\n"
-	end
-	alias close delete
-}*/
-
 void startup_netpbm () {
 	pm_init(0,0);
 	\startall



More information about the Gridflow-cvs mailing list