Debugging persistance.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2016-07-28 15:09:26 +00:00
parent 61940a3c4d
commit f2319ec3e7

View File

@ -74,8 +74,11 @@ GrafoscopioNotebook >> changeBody: aNode [
body := self instantiate: aNode specModelClass new.
body content: aNode content.
body body class = TextModel
ifTrue: [
body body whenTextChanged: [ :arg | aNode body: arg ]].
ifTrue: [body body whenTextChanged: [ :arg | aNode body: arg ]].
body body class = GlamourPresentationModel
ifTrue: [
"Transcript show:" "body body glmPres inspect" ].
"Transcript show: body body class; cr."
header text: aNode header.
body needRebuild: true.
self buildWithSpecLayout: self class defaultSpec.