Cookie[] cookies = request.getCookies();
Cookie cookie = new Cookie(“a”, “b”);
if (cookies != null){
  for (int i = 0; i < cookies.length; i++){
    cookie = cookies[i];
    if (cookie.getName().equals(“JSESSIONID”)){
      break;
    }
  }
}

%>

{curl 8.0 applet}
{curl-file-attributes character-encoding = "utf8"}
{applet COM.YOUR-COMPANY.YOUR-PRODUCT.YOUR-APPLET,
  version = “1.2.3”,
  manifest = “manifest.mcurl”,
  resync-file = “”,
  {compiler-directives
    stringent? = true
  }
}

|| {applet xxx} 宣言の直後に、以後のセッションで使用できるように
|| 取得したJSESSIONIDの値をCookieに設定するCurlコード
{def cookie = {HttpCookie "JSESSIONID", "<%=cookie.getValue() %>", path = "/mycook"}}
{set-insecure-http-cookie {url "http://localhost:8080/mycook"}, cookie}

|| インポート文とインクルード文は必ず上記
|| set-secure/insecure-http-cookie 呼び出しの後に置いてください。
{import * from CURL.GUI.SHAPES}
||{include "curlcode.scurl"}

{View
  title=”My test Window2″,
  || Replace {Frame} with your code.
  {Frame},
  visibility = “normal”,
  {on WindowClose do
    {exit}
  }
}

{let df:DateField = {DateField
                               value = {DateTime.date}
                           }
}

{value
    def df-ui = df.ui-object asa SkinnableDateFieldUI
    def frame = df-ui.child.graphic asa Frame
    def grid = frame.child.graphic asa Grid
    def dfsc = grid.child-array[0].graphic asa DateFieldSpinControl
    def btn = grid.child-array[1].graphic
   
    set btn.visible? = false
    set btn.width = 0px
   
    df
}

{self.kensakucb.add-event-handler
    {on Action do
        {for i:int = 0 to 10 – 1 do
            def j = i
            {self.b-list-view.append
                {ListViewItemData
                    label = j & “行目” ,
                    {on Action do
                        {popup-message j+1 & “行目がクリックされました！” }
                    }
                }
            }
        }
    }
}

|| Shift-JISの文字コードをバイト配列で返す
{define-proc {get-sjis-code tf:TextField}:ByteVec
    let encoding:CharEncoding = {get-character-encoding-by-name “shift-jis”}
    let code-out:ByteVec = {ByteVec max-size = tf.value.size * encoding.transcode-max-expansion-factor}
    let (in-used:int, out-made:int) = {encode-characters tf.value, code-out, encoding}
    {return code-out}
}

|| 第一引数が大なら1、第二引数が大なら-1、等しければ0を返す
{define-proc {compare byte1:ByteVec, byte2:ByteVec}:int
    let result:int = 0
    {output byte1.size & ” “ &  byte2.size}
    {if byte1.size > byte2.size then
        set result = 1
     elseif byte1.size < byte2.size then
        set result = -1
     else
        {for i:int = 0 below byte1.size do
            {if byte1[i] > byte2[i] then
                set result = 1
                {break}
             elseif byte1[i] < byte2[i] then
                set result = -1
                {break}
            }
        }
    }
    {return result}
}

{value
    def tf1 = {TextField width = 2cm, max-chars = 1, value = “あ”}
    def tf2 = {TextField width = 2cm, max-chars = 1, value = “Ａ”}
    def cm = {CommandButton
                 label = “compare width Shift-jis”,
                 {on Action do                 
                     || Shift-JISでの比較を行います
                     def byte1 = {get-sjis-code tf1}
                     def byte2 = {get-sjis-code tf2}
                     def result = {compare byte1, byte2}
                     {popup-message
                         {if result > 0 then
                             “left is greater”
                          elseif result < 0 then
                             “right is greater”
                          else
                             “equal”
                         }
                     }
                 }
             }     
    {HBox
        tf1, tf2, cm
    }
}

{curl 6.0,7.0,8.0 applet}
{curl-file-attributes character-encoding = “shift-jis”}

{TabContainer
    {TabPane
        label = {text
                        font-size = 30px,
                        font-style = “italic”,
                        text-underline? = true,
                        現在選択中
                   },
        {text font-size = 28pt, 1}
    },
    {TabPane
        label = “L2”,
        {text font-size = 28pt, 2}
    },
    {TabPane
        label = “L2”,
        {text font-size = 28pt, 3}
    }
    ,
    {on CurrentPaneChanged at tc:TabContainer do
        set tc.tab-panes[0].label = “L1”
        set tc.tab-panes[1].label = “L2”
        set tc.tab-panes[2].label = “L3”
        set tc.current-pane.label = {VBox
                                                  background = “blue”,
                                                  {text
                                                      color = “pink”,
                                                      font-size = 30px,
                                                      font-style = “italic”,
                                                      text-underline? = true,
                                                      現在選択中
                                                  }
                                              }
    }
}

{curl 7.0,8.0 applet}

{let people:RecordSet =
    {RecordSet
        {RecordFields
            {RecordField “First”, domain = String},
            {RecordField “Last”, domain = String},
            {RecordField “Age”, domain = int},
            || 合計行を最下行表示するための隠しフィールド
            {RecordField “hidden”, domain = int}
        },
        || hidden = 0
        {RecordData First = “Gene”, Last = “Smith”, Age = 25, hidden = 0},
        {RecordData First = “Fred”, Last = “Smith”, Age = 29, hidden = 0},
        {RecordData First = “Mike”, Last = “Jones”, Age = 28, hidden = 0},
        {RecordData First = “Ben”, Last = “Abrams”, Age = 25, hidden = 0},
        {RecordData First = “Ben”, Last = “Smith”, Age = 21, hidden = 0},
        {RecordData First = “Sam”, Last = “Jones”, Age = 22, hidden = 0},
        {RecordData First = “Nigel”, Last = “Stevens”, Age = 24, hidden = 0},
        {RecordData First = “Bert”, Last = “Stevens”, Age = 22, hidden = 0},
        {RecordData First = “Pat”, Last = “Linden”, Age = 27, hidden = 0},
        || 合計行のみ hidden = 1 とする
        {RecordData First = “TOTAL”, Last = “”, Age = 25+29+28, hidden = 1}
    }
}       
|| 昇順ならtrue
{let asc?:bool = true}       
|| 最後にソートした列名
{let last-sort-column:String = “”}

{def rg = {RecordGrid
                    record-source = people,
                    height = 10cm,
                    automatic-columns? = false,
                    {RecordGridColumn “First”},
                    {RecordGridColumn “Last”},
                    {RecordGridColumn “Age”},
                    || ソート方法を指定
                    sort = {RecordSort.from-string “hidden, Age”},
                    sort-spec = {proc {rgc:RecordGridColumn}:RecordSort
                                        || 異なる列をクリックしたら昇順に戻す
                                        {if last-sort-column != rgc.field-name then
                                            set asc? = true
                                        }
                                        || 第一ソートキー<hidden>, 第二ソートキー<クリックした列>
                                        || ただし降順時でも<hidden>は昇順ソート
                                        let rs:RecordSort =
                                            {RecordSort.from-string
                                                “hidden “ &
                                                {if asc? then
                                                    “asc”
                                                 else
                                                    “desc”
                                                }
                                                & “, “ & rgc.field-name
                                            }
                                        || ソートした列名とソート順を保存
                                        set last-sort-column = rgc.field-name
                                        set asc? = not asc?
                                        {return rs}
                                    }
            }
}
{value rg}