equal
deleted
inserted
replaced
581 a smalltalk-exit is wanted" |
581 a smalltalk-exit is wanted" |
582 |
582 |
583 |answer| |
583 |answer| |
584 |
584 |
585 answer := Dialog |
585 answer := Dialog |
586 confirmWithCancel:(resources string:'Close %1 only or exit Smalltalk (close all)?' with:self class name) |
586 confirmWithCancel:(resources string:'Close %1 only or Exit Smalltalk (Close all) ?' with:self class name) |
587 labels:(resources array:#('Cancel' 'Close' 'Exit')) |
587 labels:(resources array:#('Cancel' 'Close' 'Exit')) |
588 default:3. |
588 default:3. |
589 answer isNil ifTrue:[ |
589 answer isNil ifTrue:[ |
590 "/ cancel |
590 "/ cancel |
591 ^ false |
591 ^ false |
6437 ! ! |
6437 ! ! |
6438 |
6438 |
6439 !AbstractLauncherApplication class methodsFor:'documentation'! |
6439 !AbstractLauncherApplication class methodsFor:'documentation'! |
6440 |
6440 |
6441 version |
6441 version |
6442 ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.197 2002-07-05 13:26:02 cg Exp $' |
6442 ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.198 2002-07-17 16:12:42 cg Exp $' |
6443 ! ! |
6443 ! ! |