equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 2002 by eXept Software AG |
2 COPYRIGHT (c) 2002 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
436 (baseName endsWith:'akefile') ifTrue:[ |
434 (baseName endsWith:'akefile') ifTrue:[ |
437 aBox initialText:'make target' selectFrom:6 to:11. |
435 aBox initialText:'make target' selectFrom:6 to:11. |
438 ^ self |
436 ^ self |
439 ]. |
437 ]. |
440 |
438 |
441 cmd := MIMETypes defaultCommandPerMIME at:mime ifAbsent:nil. |
439 cmd := MIMETypes defaultCommandTemplateToOpenMimeType:mime. |
442 cmd notNil ifTrue:[ |
440 cmd notNil ifTrue:[ |
443 select := false |
441 select := false |
444 ]. |
442 ]. |
445 |
443 |
446 cmd isNil ifTrue:[ |
444 cmd isNil ifTrue:[ |
548 aBox initialText:cmd selectFrom:1 to:select |
546 aBox initialText:cmd selectFrom:1 to:select |
549 ]. |
547 ]. |
550 ] |
548 ] |
551 ] |
549 ] |
552 |
550 |
553 "Modified: / 24.9.1997 / 16:34:52 / stefan" |
551 "Modified: / 24-09-1997 / 16:34:52 / stefan" |
554 "Modified: / 9.4.1998 / 17:15:57 / cg" |
552 "Modified: / 09-04-1998 / 17:15:57 / cg" |
|
553 "Modified: / 09-07-2018 / 11:16:30 / Stefan Vogel" |
555 ! |
554 ! |
556 |
555 |
557 listOfRuntimeValuesToRemember |
556 listOfRuntimeValuesToRemember |
558 " list of all aspects that will be remembered after closing a FileBrowserV2" |
557 " list of all aspects that will be remembered after closing a FileBrowserV2" |
559 |
558 |
2998 (decodedChar between:0 and:31) ifTrue:[ |
2997 (decodedChar between:0 and:31) ifTrue:[ |
2999 "/ the 'nul', 'soh' .. 'gs' chars in unicodePage 2400 |
2998 "/ the 'nul', 'soh' .. 'gs' chars in unicodePage 2400 |
3000 "/ are perfect here, but usually not available in the font |
2999 "/ are perfect here, but usually not available in the font |
3001 "/ and we have currently no way of knowing if they are... |
3000 "/ and we have currently no way of knowing if they are... |
3002 "/ (could let the font draw into a bitmap and check if there is something...) |
3001 "/ (could let the font draw into a bitmap and check if there is something...) |
3003 "/ For now, write a dot.· |
3002 "/ For now, write a dot.· |
3004 "/ charPrinted := (Character value:(byte + 16r2400)) |
3003 "/ charPrinted := (Character value:(byte + 16r2400)) |
3005 ]. |
3004 ]. |
3006 ]. |
3005 ]. |
3007 ]. |
3006 ]. |
3008 asciiLineStream nextPut:charPrinted. |
3007 asciiLineStream nextPut:charPrinted. |
8709 redefKind := 'class'. |
8708 redefKind := 'class'. |
8710 isRedef := true. |
8709 isRedef := true. |
8711 ] ifFalse:[sig == HaltInterrupt ifTrue:[ |sender| |
8710 ] ifFalse:[sig == HaltInterrupt ifTrue:[ |sender| |
8712 label := msg := 'Breakpoint/Halt in fileIn'. |
8711 label := msg := 'Breakpoint/Halt in fileIn'. |
8713 sender := ex suspendedContext. |
8712 sender := ex suspendedContext. |
8714 msg := msg , ('\\in %1 » %2' bindWith:(sender receiver class name) with:(sender sender selector)) |
8713 msg := msg , ('\\in %1 » %2' bindWith:(sender receiver class name) with:(sender sender selector)) |
8715 ] ifFalse:[ |
8714 ] ifFalse:[ |
8716 label := 'Error in fileIn'. |
8715 label := 'Error in fileIn'. |
8717 msg := 'error in fileIn: %1' |
8716 msg := 'error in fileIn: %1' |
8718 ]]]. |
8717 ]]]. |
8719 |
8718 |