alex-ilin

! Copyright (C) 2017 Alexander Ilin.
USING: accessors alien alien.c-types alien.libraries
alien.syntax classes.struct destructors kernel libc math
sequences strings windows windows.types ;

IN: ask

CONSTANT: OFN_OVERWRITEPROMPT 2

STRUCT: OPENFILENAME

alex-ilin

: first-column-width ( table model -- width )
    value>> dup sequence? [
        length 1 - 1array
    ] [
        make-mirror keys
    ] if [ unparse-short ] map
    over renderer>> column-titles first suffix
    row-column-widths supremum ;

: <inspector-table> ( model -- table )

alex-ilin

: first-column-width ( table model -- width )
    [
        [ font>> dup ] keep
        renderer>> column-titles first cell-dim nip +
    ] dip
    value>> dup sequence? [
        length 1 - unparse-short swapd cell-dim nip + max
    ] [
        make-mirror [
            ! font prev key value

alex-ilin

Keybase proof

I hereby claim:

• I am alex-ilin on github.
• I am alexilin (https://keybase.io/alexilin) on keybase.
• I have a public key ASAnt7XgurD0YSBk1FyuVgR55Wbdqa5zQkVc1a7vOeMGPQo

To claim this, I am signing this object:

alex-ilin

type SitAction = { Rest: int }
type StandAction = { Rest: int }
type Action =
    | Stand of StandAction
    | Sit of SitAction

let lastStandIndex (x: Action list) : int option =
    try
        x |> List.tryFindIndex (function
            | Stand _ -> true