Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Pepare for Forth-Tagung |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
7cd7c65a2f80d5fa01e8ba42daee339b |
User & Date: | bernd 2019-04-09 21:56:44.570 |
Context
2019-04-10
| ||
20:52 | Forth-Tagung 2019 Präsentation check-in: c51858acfa user: bernd tags: trunk | |
2019-04-09
| ||
21:56 | Pepare for Forth-Tagung check-in: 7cd7c65a2f user: bernd tags: trunk | |
2019-04-08
| ||
15:30 | Add day/night mode check-in: 84dc15a8dd user: bernd tags: trunk | |
Changes
Changes to gui.fs.
︙ | ︙ | |||
286 287 288 289 290 291 292 | pw-text-col# to x-color "" }}pw dup to pw-field 25%b >o config:passmode# @ to pw-mode o o> glue*lll }}glue }}h pw-field ' pw-done edit[] ' entropy-colorize filter[] \normal \sans white# to x-color | | | | 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 | pw-text-col# to x-color "" }}pw dup to pw-field 25%b >o config:passmode# @ to pw-mode o o> glue*lll }}glue }}h pw-field ' pw-done edit[] ' entropy-colorize filter[] \normal \sans white# to x-color "" }}text blackish dup value show-pw-sign \regular : pw-show/hide ( flag -- ) dup IF "" ELSE "" THEN show-pw-sign >o to text$ o> 2 config:passmode# @ 1 min rot select pw-field >o to pw-mode o> pw-field engage +sync ; ' pw-show/hide config:passmode# @ 1 > toggle[] \normal }}h box[] }}z box[] bx-tab {{ |
︙ | ︙ | |||
732 733 734 735 736 737 738 | glue*l imports#rgb-bg ki + sf@ slide-frame dup .button1 {{ prj key| ?avatar \large imports#rgb-fg ki + sf@ to x-color prj key| ['] .key-id? $tmp }}text 25%b glue*ll }}glue \small prj drop keysize + le-64@ [: .ticks space ;] $tmp }}text 25%b | | | | 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 | glue*l imports#rgb-bg ki + sf@ slide-frame dup .button1 {{ prj key| ?avatar \large imports#rgb-fg ki + sf@ to x-color prj key| ['] .key-id? $tmp }}text 25%b glue*ll }}glue \small prj drop keysize + le-64@ [: .ticks space ;] $tmp }}text 25%b \normal prj drop keysize + 8 chain-tags# #@ ['] chain-string $tmp }}text 25%b blackish }}h box[] }}z box[] posting-vp .child+ ; : display-file { d: prj -- } prj display-title prj [ keysize $10 + ]L safe/string 2dup "file:" string-prefix? IF |
︙ | ︙ | |||
1039 1040 1041 1042 1043 1044 1045 | \ top box box-actor class end-class net2o-actor :noname ( ekey -- ) case | | | | 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 | \ top box box-actor class end-class net2o-actor :noname ( ekey -- ) case k-f5 of color-theme 0<> IF 0.25e o [: 1e fswap f- fdup f>s to color-theme 0.5e f+ ColorMode! +sync +vpsync ;] >animate THEN endof k-f6 of color-theme 0= IF 0.25e o [: fdup f>s to color-theme 0.5e f+ ColorMode! +sync +vpsync ;] >animate THEN endof [ box-actor :: ekeyed ] EXIT endcase ; net2o-actor to ekeyed : net2o[] ( o -- o ) >o net2o-actor new !act o o> ; |
︙ | ︙ |
Changes to json/g+-import.fs.
︙ | ︙ | |||
193 194 195 196 197 198 199 | media:url$ basename nip $100 > IF ." file:" media:localFilePath$ basename type ELSE media:localFilePath$ nip IF ." file:" media:url$ basename type ELSE media:url$ .mfile THEN THEN ; : inline-image ( -- ) | | | 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 | media:url$ basename nip $100 > IF ." file:" media:localFilePath$ basename type ELSE media:localFilePath$ nip IF ." file:" media:url$ basename type ELSE media:url$ .mfile THEN THEN ; : inline-image ( -- ) media:contentType$ "image/" string-prefix? IF ." ' emit cr ELSE media:url$ ." [" 2dup type ." ](" type ')' emit cr THEN ; : .media ( -- ) comments:media{} ?dup-IF cr .inline-image THEN ; : .album ( -- ) |
︙ | ︙ |