equal
deleted
inserted
replaced
6499 ]. |
6499 ]. |
6500 self askForCommandFor:fileName thenDo:action |
6500 self askForCommandFor:fileName thenDo:action |
6501 ! |
6501 ! |
6502 |
6502 |
6503 doExecuteScript |
6503 doExecuteScript |
6504 "execute a smalltalk script" |
6504 "execute a Smalltalk script" |
6505 |
6505 |
6506 |textHolder dialog template dummyClass dummyInstance| |
6506 |textHolder dialog template dummyClass dummyInstance| |
6507 |
6507 |
6508 template := |
6508 template := |
6509 '"/ Smalltalk script: |
6509 '"/ Smalltalk script: |
7520 ]. |
7520 ]. |
7521 ! |
7521 ! |
7522 |
7522 |
7523 generateDetachedSignaturesForSelectedFiles |
7523 generateDetachedSignaturesForSelectedFiles |
7524 "generate detached signature (pkcs7) files from the contents of the selected files. |
7524 "generate detached signature (pkcs7) files from the contents of the selected files. |
7525 For smalltalk text files, better use #generateSignaturesForSelectedFiles." |
7525 For Smalltalk text files, better use #generateSignaturesForSelectedFiles." |
7526 |
7526 |
7527 self withActivityIndicationDo:[ |
7527 self withActivityIndicationDo:[ |
7528 self currentSelectedFiles do:[:fn | |
7528 self currentSelectedFiles do:[:fn | |
7529 |data hash signature signatureFile| |
7529 |data hash signature signatureFile| |
7530 |
7530 |