steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Minor usability improvement for operations

slava 2006-11-27 00:46:49 +00:00
parent bbef01eee4
commit 0b7def2935
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
TODO.FACTOR.txt
View File

@ -1,8 +1,6 @@
+ 0.87: + 0.87:
- better error handling in early startup - better error handling in early startup
- some module operations don't work on module-links
- list operations: what if nothing is selected?
- slider needs to be modelized - slider needs to be modelized
- overhaul models, set-model* is crap - overhaul models, set-model* is crap
- color picker example - color picker example

8
library/ui/tools/operations.factor
View File

@ -13,8 +13,12 @@ V{ } clone operations set-global
<operation> operations get push-new ; <operation> operations get push-new ;
M: operation invoke-command ( target operation -- ) M: operation invoke-command ( target operation -- )
dup command-quot swap operation-listener? 2dup operation-predicate call [
[ curry call-listener ] [ call ] if ; dup command-quot swap operation-listener?
[ curry call-listener ] [ call ] if
] [
2drop
] if ;
: modify-listener-operation ( quot operation -- operation ) : modify-listener-operation ( quot operation -- operation )
clone t over set-operation-listener? clone t over set-operation-listener?