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

ui.tools.operations: fix crash clicking on a model that hasn't been initialized properly.

db4
John Benediktsson 2012-08-13 17:02:39 -07:00
parent 36a4a59efc
commit 93a2775248
1 changed files with 10 additions and 12 deletions
basis/ui/tools/operations

22
basis/ui/tools/operations/operations.factor
View File

@ -1,16 +1,14 @@
! Copyright (C) 2006, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: continuations definitions generic help.topics threads
stack-checker summary io.pathnames io.styles kernel namespaces
parser prettyprint quotations tools.crossref tools.annotations
editors tools.test tools.time tools.walker vocabs
vocabs.loader words sequences classes compiler.errors
compiler.units accessors vocabs.parser macros.expander ui
ui.tools.browser ui.tools.listener ui.tools.listener.completion
ui.tools.inspector ui.tools.traceback
ui.commands ui.gadgets.editors ui.gestures ui.operations
ui.tools.deploy models help.tips source-files.errors destructors
libc libc.private ;
USING: accessors combinators.short-circuit compiler.errors
compiler.units continuations definitions destructors editors
help.topics io.pathnames io.styles kernel libc.private
macros.expander models parser prettyprint quotations
source-files.errors stack-checker threads tools.annotations
tools.crossref tools.test tools.time tools.walker ui.commands
ui.gestures ui.operations ui.tools.browser ui.tools.deploy
ui.tools.inspector ui.tools.listener ui.tools.traceback vocabs
vocabs.loader vocabs.parser words ;
IN: ui.tools.operations
! Objects
@ -35,7 +33,7 @@ IN: ui.tools.operations
[ drop t ] \ com-unparse H{ } define-operation
! Models
[ model? ] \ inspect-model H{
[ { [ model? ] [ ref>> ] } 1&& ] \ inspect-model H{
{ +primary+ t }
} define-operation