equal
deleted
inserted
replaced
1986 cursor for a while (sometimes I work with a headset :-) |
1986 cursor for a while (sometimes I work with a headset :-) |
1987 (used to be: tell user by changing cursor for a while)" |
1987 (used to be: tell user by changing cursor for a while)" |
1988 |
1988 |
1989 |savedCursor| |
1989 |savedCursor| |
1990 |
1990 |
1991 self beep. |
|
1992 |
|
1993 " |
|
1994 uncomment if you want a CROSS cursor to be shown for a while .. |
|
1995 " |
|
1996 |
|
1997 " " |
|
1998 savedCursor := cursor. |
1991 savedCursor := cursor. |
1999 self cursor:(Cursor cross). |
1992 [ |
2000 Processor activeProcess millisecondDelay:300. |
1993 self cursor:(Cursor cross). |
2001 self cursor:savedCursor |
1994 self beep. |
2002 " " |
1995 Processor activeProcess millisecondDelay:300. |
2003 |
1996 ] valueNowOrOnUnwindDo:[ |
2004 "Modified: 28.5.1996 / 16:58:57 / cg" |
1997 self cursor:savedCursor |
|
1998 ] |
|
1999 |
|
2000 "Modified: 20.2.1997 / 12:49:27 / cg" |
2005 ! ! |
2001 ! ! |
2006 |
2002 |
2007 !TextView methodsFor:'selections'! |
2003 !TextView methodsFor:'selections'! |
2008 |
2004 |
2009 expandSelectionDown |
2005 expandSelectionDown |
2424 ! ! |
2420 ! ! |
2425 |
2421 |
2426 !TextView class methodsFor:'documentation'! |
2422 !TextView class methodsFor:'documentation'! |
2427 |
2423 |
2428 version |
2424 version |
2429 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.83 1997-02-14 16:09:28 cg Exp $' |
2425 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.84 1997-02-20 11:51:40 cg Exp $' |
2430 ! ! |
2426 ! ! |