From c7048ccacc266640ec4d4bcc51ef02f7d923eab8 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Tue, 29 Jul 2008 21:15:54 -0500
Subject: [PATCH] ui.gadgets.slate: init-slate
---
extra/ui/gadgets/slate/slate.factor | 17 ++++++++++++-----
1 file changed, 12 insertions(+), 5 deletions(-)
diff --git a/extra/ui/gadgets/slate/slate.factor b/extra/ui/gadgets/slate/slate.factor
index 2ef740e580..05b2de2e06 100644
--- a/extra/ui/gadgets/slate/slate.factor
+++ b/extra/ui/gadgets/slate/slate.factor
@@ -5,12 +5,19 @@ IN: ui.gadgets.slate
TUPLE: slate < gadget action pdim graft ungraft ;
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+: init-slate ( slate -- slate )
+ init-gadget
+ [ ] >>action
+ { 200 200 } >>pdim
+ [ ] >>graft
+ [ ] >>ungraft ;
+
: <slate> ( action -- slate )
- slate new-gadget
- swap >>action
- { 100 100 } >>pdim
- [ ] >>graft
- [ ] >>ungraft ;
+ slate new
+ init-slate
+ swap >>action ;
M: slate pref-dim* ( slate -- dim ) pdim>> ;