timer.zc

实现树形结构

//[c]
//[of]:license
//[c]    Code Browser - a folding text editor for programmers
//[c]    Copyright (C) 2003-07 Marc Kerbiquet
//[c]
//[c]    This program is free software; you can redistribute it and/or modify
//[c]    it under the terms of the GNU General Public License as published by
//[c]    the Free Software Foundation; either version 2 of the License, or
//[c]    (at your option) any later version.
//[c]
//[c]    This program is distributed in the hope that it will be useful,
//[c]    but WITHOUT ANY WARRANTY; without even the implied warranty of
//[c]    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
//[c]    GNU General Public License for more details.
//[c]
//[c]    You should have received a copy of the GNU General Public License
//[c]    along with this program; if not, write to the Free Software
//[c]    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
//[cf]
//[of]:imports
//[c]
import "base/types"
import "glib/glib"
import "gtk/gtk"
//[c]
//[cf]
//[of]:structures
//[c]
typedef timer function = {object, timer} void
//[c]
public struct timer

	private bound : bool
	private id : guint
	private time out : dword
	
	// function to notify
	private recipient : object
	private code : timer function

end
//[cf]
//[c]
//[of]:class initialization
//[of]:initialize timer
//[c]
public func initialize timer
	
end
//[cf]
//[cf]
//[of]:initialize - release
//[of]:initialize (m, timeout, recipient, code)
//[c]
public func initialize (
		m: timer, 
		time out: dword,
		recipient: object,
		code: timer function )

	time out (m) = time out
	bound (m) = false	
	recipient (m) = recipient
	code (m) = code

end
//[cf]
//[of]:release (m)
//[c]
public func release (m: timer)

	stop (m)

end
//[cf]
//[cf]
//[of]:operations
//[of]:stop (m)
//[c]
public func stop (m: timer)

	if bound (m)
		gtk_timeout_remove (id (m))
		bound (m) = false
	end
	
end
//[cf]
//[of]:start (m)
//[c]
public func start (m: timer)

	// remove any previously started timer
	stop (m)

	id (m) = gtk_timeout_add (
		time out (m),
		^timer proc (timer):GtkFunction,
		m)

	bound (m) = true
			
end
//[cf]
//[cf]
//[c]
//[of]:private
//[of]:timer proc (...)
//[c]
private func timer proc (m: timer)

	code (m) {recipient (m), m}
	return TRUE

end
//[cf]
//[cf]