Smalltalk › Pharo › Pharo Smalltalk Users

[FUN] Get ready to celebrate

_‹ Previous Topic Next Topic _›

Classic

List

Threaded

3 messages Options

Sven Van Caekenberghe-2

[FUN] Get ready to celebrate

https://en.wikipedia.org/wiki/Unix_time

"Right now"

DateAndTime now asUnixTime.

"Coming up"

DateAndTime fromUnixTime: 1500000000.

"How long till then ?"

(DateAndTime fromUnixTime: 1500000000) - DateAndTime now.

;-)

Sven

Tudor Girba-2

Re: [FUN] Get ready to celebrate

Geeky :)

Doru

> On Jul 13, 2017, at 12:03 PM, Sven Van Caekenberghe <[hidden email]> wrote:
>
> https://en.wikipedia.org/wiki/Unix_time
>
> "Right now"
>
> DateAndTime now asUnixTime.
>
> "Coming up"
>
> DateAndTime fromUnixTime: 1500000000.
>
> "How long till then ?"
>
> (DateAndTime fromUnixTime: 1500000000) - DateAndTime now.
>
> ;-)
>
> Sven
>

--
www.tudorgirba.com
www.feenk.com

"We are all great at making mistakes."

HenrikNergaard5

Re: [FUN] Get ready to celebrate

In reply to this post by Sven Van Caekenberghe-2

---------------------------
| font time morph window |

font := LogicalFont familyName: 'Source Sans Pro' pointSize: 55.
time := [ ((DateAndTime fromUnixTime: 1500000000) - DateAndTime now) asString ].

morph := StringMorph
contents: time value
font: font.

window := morph openInWindow.

window center: (window world clearArea center).

window world
startStepping: morph
at: Time millisecondClockValue
selector: #in:
arguments: {[ :sm | sm contents: time value ]}
stepTime: 125
---------------------------

Best regards,
Henrik