Check-in [c50a966049]
Not logged in

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

Overview
Comment:Use anonymous quotation
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: c50a9660497d964549c88ee0171e8a651263e343
User & Date: bernd 2019-05-13 22:39:52
Context
2019-05-15
13:07
Fix install instruction check-in: a6ebe6d705 user: bernd tags: trunk
2019-05-13
22:39
Use anonymous quotation check-in: c50a966049 user: bernd tags: trunk
2019-05-11
23:44
Add small discussion about social networks check-in: 24ed860e48 user: bernd tags: trunk
Changes
Hide Diffs Unified Diffs Show Whitespace Changes Patch

Changes to gui.fs.

940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
    [: case 0 >r
	    msg:image#     of  ." img["      85type  endof
	    msg:thumbnail# of  ." thumb["    85type  endof
	    msg:patch#     of  ." patch["    85type  endof
	    msg:snapshot#  of  ." snapshot[" 85type  endof
	    msg:message#   of  ." message["  85type  endof
	    msg:posting#   of  ." posting"
		rdrop 2dup [{: d: prj :}H prj open-posting ;] >r
		.posting
	    endof
	endcase ." ]" r> ;] $tmp }}text
    swap ?dup-IF  0 click[]  THEN  msg-box .child+
    text-color!
; wmsg-class is msg:object








|







940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
    [: case 0 >r
	    msg:image#     of  ." img["      85type  endof
	    msg:thumbnail# of  ." thumb["    85type  endof
	    msg:patch#     of  ." patch["    85type  endof
	    msg:snapshot#  of  ." snapshot[" 85type  endof
	    msg:message#   of  ." message["  85type  endof
	    msg:posting#   of  ." posting"
		rdrop 2dup [d:h open-posting ;] >r
		.posting
	    endof
	endcase ." ]" r> ;] $tmp }}text
    swap ?dup-IF  0 click[]  THEN  msg-box .child+
    text-color!
; wmsg-class is msg:object