[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/dialog threeWay,1.1.1.1,1.2

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/dialog
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8982

Modified Files:
	threeWay 
Log Message:
put test code in test bundle

Index: threeWay
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/dialog/threeWay,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** threeWay	26 Mar 2005 19:42:44 -0000	1.1.1.1
--- threeWay	14 Jun 2005 00:33:30 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.dialog.threeWay
  
! Çon threeWay (prompt, button1, button2, button3) 
	Çlocal (buttonhit)
	Çcard.run (@dialog.cards.threeWay)
	Çreturn (buttonhit)
on threeWay (prompt, button1, button2, button3) {
	kernel (dialog.threeway)};
dialog.alert (dialog.threeWay ("Let's Have Fun!", "One", "Two", "Three"))
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.dialog.threeWay
  
! Çon threeWay (prompt, button1, button2, button3) 
	Çlocal (buttonhit)
	Çcard.run (@dialog.cards.threeWay)
	Çreturn (buttonhit)
on threeWay (prompt, button1, button2, button3) {
	kernel (dialog.threeway)};
Çbundle // test
	Çdialog.alert (dialog.threeWay ("Let's Have Fun!", "One", "Two", "Three"))
\ No newline at end of file