equal
deleted
inserted
replaced
1175 |
1175 |
1176 paste:aString |
1176 paste:aString |
1177 |v| |
1177 |v| |
1178 |
1178 |
1179 v := (workspaceHolder value) ? (self selectedWorkspacesTextView). |
1179 v := (workspaceHolder value) ? (self selectedWorkspacesTextView). |
1180 v perform:#paste: with:aString ifNotUnderstood:[]. |
1180 [ |
|
1181 v perform:#paste: with:aString. |
|
1182 ] on:MessageNotUnderstood do:[:ex| |
|
1183 "special code, to catch exeception sent from a scrolled view, |
|
1184 which has a different receiver tha v" |
|
1185 (ex selector ~~ #paste:) ifTrue:[ |
|
1186 ex reject. |
|
1187 ]. |
|
1188 "else ignore it" |
|
1189 ]. |
1181 |
1190 |
1182 "Modified: / 16-11-2010 / 15:27:39 / cg" |
1191 "Modified: / 16-11-2010 / 15:27:39 / cg" |
1183 ! |
1192 ! |
1184 |
1193 |
1185 redo |
1194 redo |
1346 ! ! |
1355 ! ! |
1347 |
1356 |
1348 !MultiViewToolApplication class methodsFor:'documentation'! |
1357 !MultiViewToolApplication class methodsFor:'documentation'! |
1349 |
1358 |
1350 version_CVS |
1359 version_CVS |
1351 ^ '§Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.42 2011/07/07 14:12:48 vrany Exp §' |
1360 ^ '§Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.43 2012/04/21 18:38:24 stefan Exp §' |
1352 ! |
1361 ! |
1353 |
1362 |
1354 version_SVN |
1363 version_SVN |
1355 ^ '$Id: MultiViewToolApplication.st 7854 2012-01-30 17:49:41Z vranyj1 $' |
1364 ^ '$Id: MultiViewToolApplication.st 7990 2012-05-05 22:06:53Z vranyj1 $' |
1356 ! ! |
1365 ! ! |