From c12338c989e5e7aba3e72d30dae16f823b7fc9a6 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 2 Feb 2009 16:00:57 -0600
Subject: [PATCH] Remove ui.gadgets.broken; functionality merged into
ui.gadgets.debug
---
extra/ui/gadgets/broken/broken.factor | 26 --------------------------
1 file changed, 26 deletions(-)
delete mode 100644 extra/ui/gadgets/broken/broken.factor
diff --git a/extra/ui/gadgets/broken/broken.factor b/extra/ui/gadgets/broken/broken.factor
deleted file mode 100644
index d282e417bf..0000000000
--- a/extra/ui/gadgets/broken/broken.factor
+++ /dev/null
@@ -1,26 +0,0 @@
-! Copyright (C) 2008 Slava Pestov.
-! See http://factorcode.org/license.txt for BSD license.
-USING: kernel accessors ui ui.gadgets ui.gadgets.buttons ui.render ;
-IN: ui.gadgets.broken
-
-! An intentionally broken gadget -- used to test UI error handling,
-! make sure that one bad gadget doesn't bring the whole system down
-
-: <bad-button> ( -- button )
- "Click me if you dare"
- [ "Haha" throw ]
- <bevel-button> ;
-
-TUPLE: bad-gadget < gadget ;
-
-M: bad-gadget draw-gadget* "Lulz" throw ;
-
-M: bad-gadget pref-dim* drop { 100 100 } ;
-
-: <bad-gadget> ( -- gadget ) bad-gadget new-gadget ;
-
-: bad-gadget-test ( -- )
- <bad-button> "Test 1" open-window
- <bad-gadget> "Test 2" open-window ;
-
-MAIN: bad-gadget-test