Skip to content

Commit

Permalink
changed document download path creation
Browse files Browse the repository at this point in the history
  • Loading branch information
jkubuni committed Jun 26, 2024
1 parent cd2e594 commit 192087c
Show file tree
Hide file tree
Showing 2 changed files with 3 additions and 4 deletions.
Original file line number Diff line number Diff line change
Expand Up @@ -4,11 +4,10 @@ moveDocument
| sourceFile destinationFile sourceStream destinationStream |

sourceFile := self messageModel core documentStore getDocumentFor: self messageModel documentId.
destinationFile := (DirectoryChooserDialog openOn:FileDirectory default label: 'Select Directory for download') pathName, '\', self messageModel filename.
Transcript show: destinationFile.
destinationFile := (DirectoryChooserDialog openOn:FileDirectory default label: 'Select Directory for download') / self messageModel filename.

sourceStream := StandardFileStream readOnlyFileNamed: sourceFile.
destinationStream := StandardFileStream newFileNamed: destinationFile.
destinationStream := StandardFileStream newFileNamed: destinationFile pathName.
destinationStream binary.
[sourceStream atEnd] whileFalse: [
destinationStream nextPutAll: (sourceStream next: 1024).
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -5,4 +5,4 @@
"instance" : {
"addContent" : "AH 6/21/2024 14:07",
"addIcon" : "JK 6/26/2024 12:31",
"moveDocument" : "JK 6/26/2024 14:23" } }
"moveDocument" : "JK 6/26/2024 14:38" } }

0 comments on commit 192087c

Please sign in to comment.