diff --git a/gui/notepad/src/notepad.tal b/gui/notepad/src/notepad.tal index 09dc57a..c53e10f 100644 --- a/gui/notepad/src/notepad.tal +++ b/gui/notepad/src/notepad.tal @@ -215,9 +215,9 @@ @|file ) @file-init ( -- ) - ;notepad-txt file-size #0000 EQU2 ?file-new + ;notepad-path file-size #0000 EQU2 ?file-new ( | load file ) - ;notepad-txt .File/name DEO2 + ;notepad-path .File/name DEO2 #8000 .File/length DEO2 ;mem .File/read DEO2 JMP2r @@ -231,13 +231,11 @@ POP2 JMP2r @file-save ( -- ) - ;notepad-txt .File/name DEO2 + ;notepad-path .File/name DEO2 #8000 .File/length DEO2 ;mem .File/write DEO2 JMP2r -@notepad-txt ".notepad $1 - @file-size ( path* -- size* ) .File/name DEO2 #0001 .File/length DEO2 @@ -266,15 +264,13 @@ !file-save @edit-copy ( -- ) - .selection/length LDZ2 #0001 GTH2 [ JMP JMP2r ] ;snarf-txt .File/name DEO2 + .selection/length LDZ2 #0001 GTH2 [ JMP JMP2r ] ;snarf-path .File/name DEO2 .selection/length LDZ2 .File/length DEO2 get-from .File/write DEO2 JMP2r @edit-paste ( -- ) - ;snarf-txt file-inject !file-save - -@snarf-txt ".snarf $1 + ;snarf-path file-inject !file-save ( @|core ) @@ -521,7 +517,7 @@ JMP2r @load-theme ( -- ) - ;&path .File/name DEO2 + ;theme-path .File/name DEO2 #0002 .File/length DEO2 ;&r .File/read DEO2 ;&g .File/read DEO2 @@ -531,7 +527,6 @@ [ LIT2 &g $2 ] .System/g DEO2 [ LIT2 &b $2 ] .System/b DEO2 } JMP2r - &path ".theme $1 @ ( b* a* len* -- ) STH2 @@ -549,5 +544,14 @@ #0001 SUB2 LTH2k ?&>l POP2 POP2 &e POP2r JMP2r +( +@|strings ) + +@snarf-path ".snarf $1 + +@theme-path ".theme $1 + +@notepad-path ".notepad $1 + ~src/assets.tal