{curl 5.0 applet}
{curl-file-attributes character-encoding = "shift-jis"}
{applet manifest = "manifest.mcurl",
||--    resync-as-of = {utc-date-time "2008-01-27 23:59:59 +0900"},
    {compiler-directives careful? = true}
}

{import * from CURL.GRAPHICS.DISPLAY}
||*****************************************************************************
|| SAINTの実行開始
||*****************************************************************************
{document-style PlainDocument}

|| 初期表示で使われる画像の取得
{let images-url:Url = {manifest-url "directory", "images"}}
{let gif-url:Url = {images-url.concat "4.gif"}}
{let icon-url:Url = {images-url.concat "00_Collabos.gif"}}

|| ローディング待機画面の表示
{let onePix:Distance = {any-to-Distance 1px}}
{let dsp:Display = {Display.get-primary}}
{let wid:Distance = 482 * onePix}
{let hei:Distance = 358 * onePix}

{let v:View =
    {View
        {VBox
            background = {Background gif-url}
            ,width = wid
            ,height = hei
            ,halign = "center"
            ,color = "#808080"
            ,font-size = 12pt
            ,{Fill height = 100pt}
            ,{bold ただいま読み込み中です。しばらくお待ちください。}
        },
        title = "COLLABOS CRM",
        visibility = "hidden",
        resizable? = false,
        {on e:WindowClose do
            {e.consume}
        }
    }
}
{do
    let xpos:Distance = (dsp.width - wid) / 2
    let ypos:Distance = (dsp.height - hei) / 2
    {v.set-window-position xpos, ypos}
    {v.set-icon {Pixmap.from-url icon-url}, {Pixmap.from-url icon-url}}
    {v.show}
}

{import * from JP.CO.AKASHIC.AKCL}
{import * from JP.CO.AKASHIC.AKCLS}

|| パーシスタント データ使用の宣言
{persistent-data "SAINT", duration = 30days, max-size = 1024}

|| ログの出力
{set-default-output-log false}

|| リクエスト サーバーのＵＲＬ
{set-default-request-server-url {manifest-url "server", "DB-REQUEST-SERVER"}}

|| メッセージ一覧のＵＲＬ
{set-default-message-list-url {manifest-url "file", "message-list.xml"}}

||アイコンの指定
{set-default-dialog-icon-url icon-url}

|| コントロールのフォントサイズ、色の指定
{set-akcl-default-gui-font-size 9pt}
{set-akcl-default-gradation-spot "bottom"}|| Changed by satoh at 2008/05/27 
{set-akcl-default-gradation-color 236, 233, 216} || #ECE9D8

{import * from SAINT.CONTROL}
{import * from SAINT.MENU}

|| ローディングが終わり次第、ログイン入力欄を表示
{do
    {v.add {CSL01010 top-view = v}, replace? = true}
    {v.add-event-handler
        {on WindowClose do
            {if-non-null saint-main-window then
                {saint-main-window.close "logout"}
            }
            {exit}
        }
    }
}
||-- アプレット終了時の処理
{on-applet-suspend do
    {if-non-null saint-main-window then
        {saint-main-window.close "logout"}
    }
}