Verified Commit 36cb0592 authored by Bernd Paysan's avatar Bernd Paysan
Browse files

Direct log

parent 6d6723a4

gui.fs

+4 −5
Original line number Diff line number Diff line
@@ -1235,14 +1235,13 @@ wmsg-o >o msg-table @ token-table ! o> 
	    year I 1+ month>i year I month>i - IF

		I 0 <# # # #> day-color x-color blackish }}button-lit

		[: data #12 /mod { m y }

		  y m 2 + month>i

		  y m 1 + month>i -

		  y m 2 + month>i  y m 1 + month>i -

		  IF

		      y m 2 + 1 ymd2day unix-day0 -

		      y m 1 + 1 ymd2day unix-day0 - +days

		      chat-history .child+ +resize +sync

		  ELSE

		      ." print chat log directly" cr

		      y m 2 + month>i  y m 1 + month>i log-data

		  THEN

		;] I 1- year 12 * + click[]

	    THEN
@@ -1265,7 +1264,7 @@ wmsg-o >o msg-table @ token-table ! o> 
		      data 4 /mod swap dup 2* + dup 3 + swap 1+ +months

		      chat-history .child+ +resize +sync

		  ELSE

		      ." print chat log directly" cr

		      data 1+ quartal>i data quartal>i log-data

		  THEN

		;] I 1- year 2* 2* + click[]

	    THEN
@@ -1284,7 +1283,7 @@ wmsg-o >o msg-table @ token-table ! o> 
		[: data 1+ year>i data year>i - gui-msgs# u> IF

		      data 4 1 +quartals chat-history .child+ +resize +sync

		  ELSE

		      ." print chat log directly" cr

		      data 1+ year>i data year>i log-data

		  THEN

		;] I click[]

	    THEN