M src/apps.tal => src/apps.tal +29 -0
@@ 269,6 269,11 @@ JMP2r
00 "2 =select-color2 "Color1 $1
00 "3 =select-color3 "Color2 $1
00 "4 =select-color4 "Color3 $1
+ 04 "Goto $1
+ 00 00 =app-tile/goto-pattern "Pattern $1
+ 00 00 =app-tile/goto-font "Font $1
+ 00 00 =app-tile/goto-window "Window $1
+ 00 00 =app-tile/goto-icons "Icons $1
$1
@app-tile
@@ 381,6 386,30 @@ JMP2
JMP2
+&goto-pattern ( -- )
+
+ ;paint-patt/addr LDA2 ;&sel-tile JSR2
+
+JMP2r
+
+&goto-font ( -- )
+
+ ;font/visible ;&sel-tile JSR2
+
+JMP2r
+
+&goto-window ( -- )
+
+ ;frame1-chr ;&sel-tile JSR2
+
+JMP2r
+
+&goto-icons ( -- )
+
+ ;icons ;&sel-tile JSR2
+
+JMP2r
+
@paint-patt ( x y -- )
DUP2 [ LIT2 &last ffff ] NEQ2 ,&changed JCN
M src/assets.tal => src/assets.tal +1 -1
@@ 55,7 55,7 @@ aa55 aa55 aa55 aa55 ffff ffff ffff ffff
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
-0000 0000 0000 0000 6060 6060 6000 6000
+0000 0000 0000 0000 &visible 6060 6060 6000 6000
6666 6600 0000 0000 006c fe6c 6cfe 6c00
183e 603c 067c 1800 0066 6c18 3066 4600
386c 3870 decc 7600 6060 6000 0000 0000
M src/desktop.tal => src/desktop.tal +2 -2
@@ 4,8 4,8 @@
04 "Potato $1
01 "1 =open-about "About $1
- 01 "w =open-tile "Wallpaper $1
- 01 "2 =open-color "Theme $1
+ 01 "t =open-tile "Wallpaper $1
+ 01 "k =open-color "Theme $1
01 "q =exit "Exit $1
04 "File $1
01 "n =file-create "Create $1
M src/potato.tal => src/potato.tal +1 -0
@@ 27,6 27,7 @@
> Add window close icons in bar
> Write welcome message
> Cannot delete files with long names
+ > Cut long filenames in window titles
)
|0100 ( -> ) @size-system-start