{curl 8.0 applet}

||グラフィックオブジェクト
{let g:VBox = {VBox
                  width  = 5cm ,
                  height = 5cm,
                  background = “blue”
              }
}

||グラフィックオブジェクトの表示
{value
    {VBox
        g,
        {HBox
            {CommandButton
                label = “JPEG”,
                {on Action do
                    let image-data:ImageData = {ImageData}
                   
                    ||グラフィックオブジェクトをPixmapに変換する
                    def pixmap = {Graphic-to-Pixmap g}
                   
                    ||ImageDataクラスにPixmapを設定する。
                    set image-data.pixmaps = {new {Array-of Pixmap},pixmap}

                    ||画像ファイルに変換する。
                    {image-data.save-to-url {url “./sample.jpeg”} , “image/jpeg”}  
                }
            },
            {CommandButton
                label = “PDF”,
                {on Action do
                    {print-graphic-pdf g,{url “./sample.pdf”}}
                }
            }
        }
    }
}

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

{let vbox:VBox = {VBox halign = “center”, spacing = 1cm,
                     {HBox spacing = 2cm,
                         {EllipseGraphic
                             width = 10mm, height = 15mm, dragee = {ImageDragee}},
                         {EllipseGraphic
                             width = 20mm, height = 5mm, dragee = {ImageDragee}},
                         {EllipseGraphic
                             width = 20mm, height = 10mm, dragee = {ImageDragee}},
                         {EllipseGraphic
                             width = 15mm, height = 20mm, dragee = {ImageDragee}
                         }
                     },
                     {TextFlowBox   
                         border-width = 2pt,
                         border-color = “black”,
                         margin = 5pt,　
                         height = 5cm,
                         width = 5cm,
                         opaque-to-events? = true,
                         {text font-size = 16pt, 縦に長い図形だけドロップできます},
                        
                         {on e:DragOver do
                             || DataTransferSourceSetを取得
                             {if-non-null dss = e.dss  then
                                 {for i = 0 to dss.for-loop-count – 1 do
                                     || DataTransferSourceを取得
                                     {type-switch {{dss.get i}.get-data}
                                      case obj:EllipseGraphic do
                                         || ドラッグ中のEllipseGraphicオブジェクトにアクセス
                                         {if obj.height > obj.width then
                                             {e.will-accept-drop?
                                                 {proc
                                                     {type:Type,
                                                      x:Distance,
                                                      y:Distance,
                                                      effect:#DragEffect
                                                     }:DragEffect
                                                     {return drag-effect-copy}
                         }}}}}}},
                         {on e:Drop do
                             {e.accept-drop
                                 {proc
                                     {a:any,
                                      x:Distance,
                                      y:Distance,
                                      effect:#DragEffect}:DropResult
                                     {return
                                         {DropResultCopy
                                             action =
                                                 {proc {}:void
                                                     {if a isa EllipseGraphic then
                                                         {if a.height > a.width then
                                                             {popup-message
                                                                 modal? = true,
                                                                 “縦に長いのでdrop可”}
                         }}}}}}}}}
　　　　　　　　　　　　}
}

{View
    {Frame vbox, width = 8cm, height = 8cm},
    visibility = “normal”,
    {on WindowClose do
        {exit}
    }
}

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

{let size:VBox = {VBox}}
{let d:Dialog = {Dialog
                          width = 5cm,
                          height = 5cm,
                          {CommandButton
                              label = “get-size”,
                              {on Action do
                                  {size.clear}
                                  {size.add “幅　　：　”&d.width}
                                  {size.add “高さ　：　”&d.height}
                              }
                          }
                      }
}

{VBox
    {CommandButton
        label = “show”,
        {on Action do
            {d.show}
        }
    },
    {Fill height = 0.1cm},
    size
}

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

{import * from CURL.RUNTIME.HOST-PROCESS}

{let tf:TextField =
    {TextField
        value = “フルパスを入力してください”,
        width = 10cm
    }
}

{let cb:CommandButton =
    {CommandButton
        label=“関連付け実行”,
        {on Action do
            let url-link:Url = {url “file:///“ & tf.value}
            let file:any = {url-link.resolve error-if-missing? = false}
            {type-switch file
             case file:File do
                ||ファイルとして存在する
                let hostprocessrtn:int =
                    {run-host-shell
                        “START \”\” cmd /c \”” & url-link.local-filename asa String & “\””
                    }
             else
                {popup-message “ファイルが存在しません”}
            }
        }                           
    }
}

{View
    {VBox
        tf,
        cb
    },
    visibility = “normal”,
    {on WindowClose do
        {exit}
    }
}

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

{define-proc {prepare-traverse-with-enter
                      atc:ActiveTraversalContainer,
                      target-controls:{Set-of Type},
                      ignore-exception? = true
                  }:void
    {let gui-m:GuiManager = {get-gui-manager}}
    {let fm:#FocusManager = {atc.get-focus-manager}}
    {gui-m.add-event-handler
        {on ke:RawKeyRelease at gui-m do
            {if ke.keycode == Keycode.enter and fm.keyboard-focus-target isa ControlUI then
                def target = fm.keyboard-focus-target asa ControlUI
                def ctl = target.control
                {if {target-controls.member? {type-of ctl}}then
                    {if ke.shift? then
                        {d.traverse forward?=false}
                     else
                        {d.traverse}
                    }
                }
            }
        }
    }
    {return}
}

{def enter-to-move-targets:{Set-of Type} =
    {{Set-of Type}
        TextField
        ,PasswordField
        ||,TextArea || In TextArea, enter key will be kept as a carriage return key.
        ,{type-of {SpinControl}.focus-object} || for DateField and SpinControl
        ,CommandButton
        ,CalendarControl
    }
}

{let d:Dialog
    ={Dialog
         {VBox
             {TextField prompt=“enter to move next”},
             {PasswordField prompt=“enter to move next”},
             {TextDisplay value=“test”},
             {DateField},
             {SpinControl},
             {CalendarControl},
             {CommandButton},
             {TextArea}
         }
     }
}

{value d}

{prepare-traverse-with-enter
    d,
    enter-to-move-targets
}

{let invoke-count:int = 0}

{do
  set {get-the-applet}.launch-handler =
          {proc {url:Url}:void
              {inc invoke-count}
              {if invoke-count > 1 then
                  {popup-message “すでに起動しています。”}
              }
          }
}

{MenuAction
　  label = “印刷…”,
    {on Action do
    　　　　{print-graphic
    　　　　　　　　contents,  ||画面に表示されている全コンテンツを含むFrameなど

　　　　　　　　　　||デフォルトの「印刷…」ボタンと同じスタイルで印刷する為に
　　　　　　　　　　||以下のプロパティを変更します。
      　　　　　　　hstretch? = true,
      　　　　　　　ne-title = {get-base-url}
      　　　}
    }
}

menu-pane-proc =
{proc {vi:Visual}:MenuPane
　　　　{return
　　　　　　　　{MenuPane
　　　　　　　　　　　　{MenuAction
　　　　　　　　　　　　　　　　label = vi.name & “印刷”,
　　　　　　　　　　　　　　　　{on Action do
　　　　　　　　　　　　　　　　    {print-graphic
　　　　　　　　　　　　　　　　　　　　vi,
　　　　　　　　　　　　　　　　　　　　ne-title = {get-base-url}
　　　　　　　　　　　　　　　　    }
                            }
                     }
              }
　　　　}
}