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