MultiViewToolApplication.st
changeset 9636 8593b50b09dc
parent 9634 c09155118873
child 9664 a4a6072afcf8
equal deleted inserted replaced
9635:aaaff033bfba 9636:8593b50b09dc
  1166 
  1166 
  1167 paste:aString
  1167 paste:aString
  1168     |v|
  1168     |v|
  1169 
  1169 
  1170     v := (workspaceHolder value) ? (self selectedWorkspacesTextView).
  1170     v := (workspaceHolder value) ? (self selectedWorkspacesTextView).
  1171     v isScrollable ifTrue:[v := v scrolledView].
       
  1172     v perform:#paste: with:aString ifNotUnderstood:[].
  1171     v perform:#paste: with:aString ifNotUnderstood:[].
  1173 
  1172 
  1174     "Modified: / 16-11-2010 / 15:12:51 / cg"
  1173     "Modified: / 16-11-2010 / 15:27:39 / cg"
  1175 !
  1174 !
  1176 
  1175 
  1177 redo
  1176 redo
  1178     |v|
  1177     |v|
  1179 
  1178 
  1338 ! !
  1337 ! !
  1339 
  1338 
  1340 !MultiViewToolApplication class methodsFor:'documentation'!
  1339 !MultiViewToolApplication class methodsFor:'documentation'!
  1341 
  1340 
  1342 version
  1341 version
  1343     ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.37 2010-11-16 14:13:10 cg Exp $'
  1342     ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.38 2010-11-16 14:29:18 cg Exp $'
  1344 !
  1343 !
  1345 
  1344 
  1346 version_CVS
  1345 version_CVS
  1347     ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.37 2010-11-16 14:13:10 cg Exp $'
  1346     ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.38 2010-11-16 14:29:18 cg Exp $'
  1348 ! !
  1347 ! !