equal
deleted
inserted
replaced
452 ' ^ holder\' , |
452 ' ^ holder\' , |
453 '!! !!\\') withCRs |
453 '!! !!\\') withCRs |
454 ! |
454 ! |
455 |
455 |
456 generateAspectMethods |
456 generateAspectMethods |
457 |cls code skip modelSelector menuSelector menuPerformer protoSpec thisCode| |
457 |cls code skip modelSelector menuSelector protoSpec thisCode| |
458 |
458 |
459 code := ''. |
459 code := ''. |
460 |
460 |
461 className isNil ifTrue:[ |
461 className isNil ifTrue:[ |
462 self warn:'set the class first'. |
462 self warn:'set the class first'. |
1013 ! |
1013 ! |
1014 |
1014 |
1015 updateFromSpec:aSpec |
1015 updateFromSpec:aSpec |
1016 "update current selected view from specification |
1016 "update current selected view from specification |
1017 " |
1017 " |
1018 |props name builder v| |
1018 |props name builder| |
1019 |
1019 |
1020 aSpec class == WindowSpec ifTrue:[ |
1020 aSpec class == WindowSpec ifTrue:[ |
1021 ^ treeView canvasSpec:aSpec |
1021 ^ treeView canvasSpec:aSpec |
1022 ]. |
1022 ]. |
1023 |
1023 |
1222 ! |
1222 ! |
1223 |
1223 |
1224 undoSpecModify:args |
1224 undoSpecModify:args |
1225 "undo method when changing a spec; see 'createUndoSpecModify:' |
1225 "undo method when changing a spec; see 'createUndoSpecModify:' |
1226 " |
1226 " |
1227 |builder view spec v props| |
1227 |builder view spec props| |
1228 |
1228 |
1229 props := self propertyOfIdentifier:(args at:2). |
1229 props := self propertyOfIdentifier:(args at:2). |
1230 |
1230 |
1231 props notNil ifTrue:[ |
1231 props notNil ifTrue:[ |
1232 view := props view. |
1232 view := props view. |