[OpenVerse] WhackNotes plugin

[Ed Lange <elange@mediasoft.net>]

This plugin, err... whacks notes.  Don't use it if you want to see
sticky notes.

http://justice.loyola.edu/~elange/openverse/WhackNotes-PlugInit.tcl

#
# destroy notes plugin
# by KaosBeetl, 05/09/2000
#

RegisterPlugin WhackNotes ProcessInput.post WhackNotes

proc WhackNotes {what cmd parms rest} {
    global MV

    if {![string compare $cmd "SUBMIT"]} {
	set sparms [split $rest " "]
	set name [lindex $sparms 0]
	set duration [lindex $sparms 5]

	if {![string compare $name "stickyNotes_delete"]} {
	    if {![string compare $duration "0"]} {
		DebugIt "WhackNotes: deleting sticky note" other
		
		ObjectSubmit $MV(server_objects.stickyNotes_delete.id)
	    }
	}
    }

    return 1
}
-------------------------------------------------------

-- 
Cruise - 
OpenVerse Visual Chat - http://openverse.org/
-----------------------------------------------------------------
To unsubscribe to the OpenVerse mailing list send a message
to openverse-request@openverse.org with the following word
in the BODY of the message.

UNSUBSCRIBE

If you need assistance from a human, email cruise@openverse.org
-----------------------------------------------------------------