Check-in [7e998db7e5]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Keep status icons floating over top bar
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 7e998db7e5f44a9b3e39f800475e2138a4c217b9
User & Date: bernd 2019-05-21 21:13:13
Context
2019-05-22
23:06
Add invitations notification check-in: 8d79e35784 user: bernd tags: trunk
2019-05-21
21:13
Keep status icons floating over top bar check-in: 7e998db7e5 user: bernd tags: trunk
2019-05-17
12:58
Resign key fixed, addr-changed added to Android check-in: 0be8970ecc user: bernd tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to gui.fs.

   550    550   		    {{
   551    551   			{{ \script \mono \bold l" Pubkey"   }}i18n-text 20%bt glue*l }}glue }}h
   552    552   			{{ \script \sans \bold l" Key date" }}i18n-text glue*l }}glue }}h
   553    553   		    }}v pk-tab
   554    554   		    glue*lll± }}glue
   555    555   		}}h box[]
   556    556   	    vp-title glue*lll ['] vp-title }}vp vp[] dup to title-vp
   557         -	    \large online-symbol white# }}text dup to online-flag
   558         -	    s" ❌" $444444FF new-color, }}button-lit [: -1 data +! ;] level# click[]
   559    557   	}}h box[]
   560    558       }}z box[] ;
   561    559   
   562    560   previous
   563    561   
   564    562   {{ users-color# pres-frame
   565    563       {{
   566    564   	{{
   567    565   	    nicks-title
   568    566   	    glue*shrink }}glue
   569         -	}}h box[]
          567  +	    \Large s" ❌" $444444FF new-color, }}button-lit /hfix [: -1 data +! ;] level# click[]
          568  +	}}h box[] /vfix
   570    569   	{{
   571    570   	    {{
   572    571   		{{ glue*l $303000FF new-color, bar-frame
   573    572   		{{ \script l" My key" }}i18n-text 25%b glue*l }}glue }}h }}z
   574    573   		{{ }}v box[] dup to mykey-box
   575    574   		{{ glue*l $300030FF new-color, bar-frame
   576    575   		{{ \script l" My groups" }}i18n-text 25%b glue*l }}glue }}h }}z
................................................................................
  1072   1071   	[ box-actor :: ekeyed ]  EXIT
  1073   1072       endcase ; net2o-actor to ekeyed
  1074   1073   
  1075   1074   : net2o[] ( o -- o )
  1076   1075       >o net2o-actor new !act o o> ;
  1077   1076   
  1078   1077   {{
  1079         -    glue-left }}glue
  1080         -    pw-frame          dup >slides
  1081         -    id-frame   /flip  dup >slides
  1082         -    chat-frame /flip  dup >slides
  1083         -    post-frame /flip  dup >slides
  1084         -    glue-right }}glue
  1085         -}}h net2o[]
         1078  +    {{
         1079  +	glue-left }}glue
         1080  +	pw-frame          dup >slides
         1081  +	id-frame   /flip  dup >slides
         1082  +	chat-frame /flip  dup >slides
         1083  +	post-frame /flip  dup >slides
         1084  +	glue-right }}glue
         1085  +    }}h box[]
         1086  +    {{
         1087  +	{{
         1088  +	    glue*lll }}glue
         1089  +	    \large online-symbol white# }}text dup to online-flag
         1090  +	    s" ❌" $444444FF new-color, }}button-lit [: -1 data +! ;] level# click[]
         1091  +	}}h box[] /vfix
         1092  +	glue*lll }}glue
         1093  +    }}v box[]
         1094  +}}z net2o[]
  1086   1095   Value n2o-frame
  1087   1096   
  1088   1097   \ top widgets
  1089   1098   
  1090   1099   : !widgets ( -- )
  1091   1100       top-widget .htop-resize
  1092   1101       pw-field engage

Changes to keys.fs.

  1218   1218       oldskc oldpkc +revsign
  1219   1219       0oldkey revtoken $@ ;
  1220   1220   
  1221   1221   \ invitation
  1222   1222   
  1223   1223   Variable invitations
  1224   1224   
  1225         -event: :>invite ( addr u -- )
         1225  +Defer do-invite
         1226  +:noname ( addr u -- )
  1226   1227       ." invite me: " over >r .pk2key$ cr r> free throw ctrl L inskey ;
         1228  +is do-invite
         1229  +
         1230  +event: :>invite ( addr u -- ) do-invite ;
  1227   1231   
  1228   1232   : pk2key$-add ( addr u perm -- ) { perm }
  1229   1233       sample-key >o import#invited import-type ! cmd:nestsig
  1230   1234       perm ke-mask !
  1231   1235       import#new import-type !  save-pubkeys o> ;
  1232   1236   
  1233   1237   : x-erase ( len -- )  edit-curpos !

Changes to lang/de.

    10     10   Öffentlicher Schlüssel
    11     11   Schlüsselsignaturdatum
    12     12   Meine Schlüssel
    13     13   Meine Gruppen
    14     14   Meine Freunde
    15     15   Posting
    16     16      17         -Senden
           17  +

Changes to lang/en.

    10     10   Pubkey
    11     11   Key date
    12     12   My key
    13     13   My groups
    14     14   My peers
    15     15   Post
    16     16      17         -Send
           17  +