equal
deleted
inserted
replaced
1842 |
1842 |
1843 list isNil ifTrue:[^ self]. |
1843 list isNil ifTrue:[^ self]. |
1844 |
1844 |
1845 self withWaitCursorDo:[ |
1845 self withWaitCursorDo:[ |
1846 printStream := Printer new. |
1846 printStream := Printer new. |
|
1847 printStream supportsContext ifTrue:[ |
|
1848 printStream printerContext font:(self font). |
|
1849 ]. |
|
1850 |
1847 Printer writeErrorSignal handle:[:ex | |
1851 Printer writeErrorSignal handle:[:ex | |
1848 self warn:('error while printing:\\' |
1852 self warn:('error while printing:\\' |
1849 , ex description |
1853 , ex description |
1850 , '\\(printing with: ' , (Printer printCommand) , ')') withCRs |
1854 , '\\(printing with: ' , (Printer printCommand) , ')') withCRs |
1851 ] do:[ |
1855 ] do:[ |
1852 self fileOutContentsOn:printStream. |
1856 self fileOutContentsOn:printStream. |
1853 ]. |
1857 ]. |
1854 printStream close |
1858 printStream close |
1855 ]. |
1859 ]. |
1856 |
1860 |
1857 "Created: 6.5.1996 / 16:11:26 / cg" |
1861 "Created: / 06-05-1996 / 16:11:26 / cg" |
1858 "Modified: 5.9.1996 / 19:18:30 / cg" |
1862 "Modified: / 31-01-2012 / 18:16:39 / cg" |
1859 ! |
1863 ! |
1860 |
1864 |
1861 editMenu |
1865 editMenu |
1862 "return my popUpMenu" |
1866 "return my popUpMenu" |
1863 |
1867 |
4376 ! ! |
4380 ! ! |
4377 |
4381 |
4378 !TextView class methodsFor:'documentation'! |
4382 !TextView class methodsFor:'documentation'! |
4379 |
4383 |
4380 version |
4384 version |
4381 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.327 2012-01-25 10:52:38 cg Exp $' |
4385 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.328 2012-01-31 17:18:54 cg Exp $' |
4382 ! |
4386 ! |
4383 |
4387 |
4384 version_CVS |
4388 version_CVS |
4385 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.327 2012-01-25 10:52:38 cg Exp $' |
4389 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.328 2012-01-31 17:18:54 cg Exp $' |
4386 ! ! |
4390 ! ! |
4387 |
4391 |
4388 TextView initialize! |
4392 TextView initialize! |