Debugging persistance.
This commit is contained in:
parent
61940a3c4d
commit
f2319ec3e7
@ -74,8 +74,11 @@ GrafoscopioNotebook >> changeBody: aNode [
|
|||||||
body := self instantiate: aNode specModelClass new.
|
body := self instantiate: aNode specModelClass new.
|
||||||
body content: aNode content.
|
body content: aNode content.
|
||||||
body body class = TextModel
|
body body class = TextModel
|
||||||
|
ifTrue: [body body whenTextChanged: [ :arg | aNode body: arg ]].
|
||||||
|
body body class = GlamourPresentationModel
|
||||||
ifTrue: [
|
ifTrue: [
|
||||||
body body whenTextChanged: [ :arg | aNode body: arg ]].
|
"Transcript show:" "body body glmPres inspect" ].
|
||||||
|
"Transcript show: body body class; cr."
|
||||||
header text: aNode header.
|
header text: aNode header.
|
||||||
body needRebuild: true.
|
body needRebuild: true.
|
||||||
self buildWithSpecLayout: self class defaultSpec.
|
self buildWithSpecLayout: self class defaultSpec.
|
||||||
|
Loading…
Reference in New Issue
Block a user