equal
deleted
inserted
replaced
400 |
400 |
401 generateAspectMethods |
401 generateAspectMethods |
402 |cls code| |
402 |cls code| |
403 |
403 |
404 className isNil ifTrue:[ |
404 className isNil ifTrue:[ |
405 ^ self warn:'set the class first' |
405 self warn:'set the class first'. |
406 ]. |
406 ^ '' |
407 (cls := Smalltalk at:className asSymbol) isNil ifTrue:[ |
407 ]. |
408 ^ self warn:'create the class first' |
408 "/ (cls := Smalltalk at:className asSymbol) isNil ifTrue:[ |
409 ]. |
409 "/ self warn:'create the class first'. |
|
410 "/ ^ '' |
|
411 "/ ]. |
410 |
412 |
411 code := ''. |
413 code := ''. |
412 |
414 |
413 viewProperties do:[:aProp | |
415 viewProperties do:[:aProp | |
414 |modelSelector menuSelector protoSpec thisCode| |
416 |modelSelector menuSelector protoSpec thisCode| |
1150 ]. |
1152 ]. |
1151 |
1153 |
1152 menu := PopUpMenu labels:( resources array:#( |
1154 menu := PopUpMenu labels:( resources array:#( |
1153 'copy' |
1155 'copy' |
1154 'cut' |
1156 'cut' |
1155 'paste' |
1157 'paste' |
|
1158 'undo' |
1156 '-' |
1159 '-' |
1157 'arrange' |
1160 'arrange' |
1158 'dimension' |
1161 'dimension' |
1159 'align' |
1162 'align' |
1160 ) |
1163 ) |
1161 ) |
1164 ) |
1162 selectors:#( #copySelection |
1165 selectors:#( #copySelection |
1163 #deleteSelection |
1166 #deleteSelection |
1164 #pasteBuffer |
1167 #pasteBuffer |
|
1168 #undoLast |
1165 nil |
1169 nil |
1166 #arrange |
1170 #arrange |
1167 #dimension |
1171 #dimension |
1168 #align |
1172 #align |
1169 ) |
1173 ) |
1172 #Paste |
1176 #Paste |
1173 nil |
1177 nil |
1174 nil |
1178 nil |
1175 nil |
1179 nil |
1176 nil |
1180 nil |
|
1181 nil |
1177 ) |
1182 ) |
1178 receiver:self. |
1183 receiver:self. |
1179 |
1184 |
1180 (canPaste and:[self canPasteInto:selection]) ifFalse:[ |
1185 (canPaste and:[self canPasteInto:selection]) ifFalse:[ |
1181 menu disable:#pasteBuffer |
1186 menu disable:#pasteBuffer |
1182 ]. |
1187 ]. |
|
1188 undoHistory isEmpty ifTrue:[menu disable:#undoLast]. |
1183 |
1189 |
1184 menu subMenuAt:#arrange put:(self subMenuArrange). |
1190 menu subMenuAt:#arrange put:(self subMenuArrange). |
1185 menu subMenuAt:#dimension put:(self subMenuDimension). |
1191 menu subMenuAt:#dimension put:(self subMenuDimension). |
1186 menu subMenuAt:#align put:(self subMenuAlign). |
1192 menu subMenuAt:#align put:(self subMenuAlign). |
1187 ^ menu |
1193 ^ menu |