Uses 911K of libraries. Click here for Pure Java version (9498L/51K).
1 | !7 |
2 | |
3 | cmodule ChooseBackgroundImage > DynImageSurface { |
4 | start { |
5 | set useUpdateHack; |
6 | setImage(dm_loadBackgroundImage()); |
7 | } |
8 | |
9 | visualize { |
10 | ret withCenteredButtons(super.visualize(), |
11 | "Load image...", rThread { |
12 | selectFile("Background Image (JPG/PNG)", voidfunc(File f) { |
13 | setImage(loadImage2(f)); |
14 | }); |
15 | }, |
16 | |
17 | "Use as background image", r { |
18 | File f = putImageInDirectory_jpeg(getImage(), stefansOS_backgroundDir()); |
19 | saveTextFile(stefansOS_backgroundFile(), f2s(f)); |
20 | set(dm_os(), background := fileToURI(f)); |
21 | updateImage(); |
22 | }, |
23 | |
24 | "Restore default image", r { |
25 | deleteFile(stefansOS_backgroundFile()); |
26 | set(dm_os(), background := dm_getOS('defaultBackground)); |
27 | updateImage(); |
28 | }); |
29 | } |
30 | |
31 | void updateImage { |
32 | infoBox("Background image changed!"); |
33 | set(dm_desktopPane(), image := dm_loadBackgroundImage()); |
34 | dm_desktopPane().repaint(); |
35 | } |
36 | } |
Began life as a copy of #1016607
download show line numbers debug dex old transpilations
Travelled to 12 computer(s): bhatertpkbcr, cbybwowwnfue, cfunsshuasjs, gwrvuhgaqvyk, irmadwmeruwu, ishqpsrjomds, lpdgvwnxivlt, mqqgnosmbjvj, pyentgdyhuwx, pzhvpgtvlbxg, tvejysmllsmz, vouqrxazstgt
No comments. add comment
Snippet ID: | #1019434 |
Snippet name: | Choose Background Image [for Stefan's OS] |
Eternal ID of this version: | #1019434/12 |
Text MD5: | 72466cbc239ab8a564f5f2f6adb0a1a3 |
Transpilation MD5: | 5561b440717b71d9c982310c0057e7b5 |
Author: | stefan |
Category: | javax / html |
Type: | JavaX source code (Dynamic Module) |
Public (visible to everyone): | Yes |
Archived (hidden from active list): | No |
Created/modified: | 2019-11-08 21:32:01 |
Source code size: | 1011 bytes / 36 lines |
Pitched / IR pitched: | No / No |
Views / Downloads: | 283 / 15159 |
Version history: | 11 change(s) |
Referenced in: | [show references] |