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

|| ///////////////////////////////////////////////////////////////
|| カスタマイズしてvalidateのメッセージを変更したint型のドメイン
|| ///////////////////////////////////////////////////////////////
{define-class public CustomIntDomain {inherits StandardIntDomain}

  {constructor public {default
                          default-value:any = 0,
                          min-allowable:any = null,
                          max-allowable:any = null,
                          allowable-values:#{Array-of int} = null
                      }

    {construct-super
        default-value = default-value,
        min-allowable = min-allowable,
        max-allowable = max-allowable,
        allowable-values = allowable-values
    }
   
  }

  || /////////////////////////////////////////////////
  || メッセージ変更のためメソッドを拡張します。
  || /////////////////////////////////////////////////
  {method public {validate x:any}:#ValidationException

    ||最小値チェック(min-allowableが指定されていない場合は無視)
    {if-non-null min-val:any = self.min-allowable
     then
        let min:int = min-val asa int

        {if min > x asa int
         then
            ||最小値エラーの場合はValidationExceptionを返却
            {return
                {ValidationException
                    {format “%d未満の値を指定することは出来ません。”,min}
                }
            }
        }
    }

    ||最大値チェック(max-allowableが指定されていない場合は無視)
    {if-non-null max-val:any = self.max-allowable
     then
        let max:int = max-val asa int

        {if max < x asa int
         then
            ||最大値エラーの場合はValidationExceptionを返却
            {return
                {ValidationException
                    {format “%dよりも上の値を指定することは出来ません。”,max}
                }
            }
        }
    }

    ||範囲チェック(allowable-valuesが指定されていない場合は無視)
    {if-non-null data-sets:{Set-of any} = self.unsorted-allowable-values
     then
        {if not {data-sets.member? x}
         then
            ||範囲エラーの場合はValidationExceptionを返却
            {return
                {ValidationException
                    {format “%sは指定不可能な値です。”,x}
                }
            }
        }
    }

    {return {super.validate x}}    ||値が許容される場合はスーパークラスに処理を任せる

  }
}

||ドメインの定義
{let domain-for-validate:Domain =
    {CustomIntDomain
        min-allowable = 0,||最小値
        max-allowable = 100,||最大値
        allowable-values = {{Array-of int} 0,1,5,10,50}||指定可能な範囲値
    }
}

{let md1:MessageDisplay = {MessageDisplay}}

{TextField
    message-display = md1,
    {validate-with
        ||DomainValidatorにて使用するドメインを指定
        {DomainValidator domain-for-validate}
    }
}

{value md1}

{value
        {Frame
            background = “red”, width = 3cm, height = 3cm,
            {on e:AttachEvent at v:Frame do
                def accel =
                    {KeyAccel
                        key-accel-string = “Ctrl+A”,
                        {on Action do
                            {popup-message “Press the Ctrl+A key.”}
                        }
                    }
               
                {if-non-null
                    focus-manager = {v.get-focus-manager}
                 then
                    {focus-manager.add-key-accel accel}
                }
            }
        }
}

||数値検証
{let numeric-val:TextField =
    {TextField
        width = 3cm,
        {validate-with
            {NumericValidator},
            message = “年齢は数値で記入してください。”
        }
    }
}
||文字列検証
{let string-val:TextArea =
    {TextArea
        height = 3cm,
        width = 3cm,
        {validate-with
            {StringValidator max-chars=30},
            message = “コメントは30文字以内です。”
        }
    }
}

||正規表現検証
{let phone-val:TextField =
    {TextField
        width = 3cm,
        {validate-with
            {RegExpValidator.from-ValidationPattern ValidationPattern.ja-phone-number},
            message = “電話番号が不正です。”,
            dialog-on-finished? = true
        }
    }
}

||正規表現検証２
{let md:MessageDisplay = {MessageDisplay}}
{let email-val:TextField =
    {TextField
        width = 3cm,
        message-display = md,
        {validate-with
            {RegExpValidator.from-ValidationPattern ValidationPattern.email-address},
            message = “メールアドレスが不正です。”
        }
    }
}
||ドメイン検証
{let md2:MessageDisplay = {MessageDisplay}}
{let domain-val:TextField =
    {TextField
        width = 3cm,
        message-display = md2,
        {validate-with
            {DomainValidator {StandardDateDomain}},
            message = “日付は、[日/月/西暦]の形式で記入してください。”
        }
    }
}

{text 丸を四角エリアにドラッグしてください。}
{text CTRを押しながらドラッグするとコピーされます}

{HBox
    valign = “center”, width = 9cm,
    {EllipseGraphic
        width = 1cm, height = 1cm, dragee = {ImageDragee}},
    {Fill width = {make-elastic preferred-size = 10cm}},
    {VBox
        width = 1.5cm, height = 1.5cm, border-width = 1pt,
        border-color = {FillPattern.get-black},
        opaque-to-events? = true,
        {on e:DragOver do
            {e.will-accept-drop?
                {proc
                    {a:Type,
                     b:Distance,
                     c:Distance,
                     d:#DragEffect
                    }:DragEffect
                    {if {d.has-effect? “copy”} then
                        {return drag-effect-copy}
                     else
                        {return drag-effect-move}
                    }
                }
            }
        },
        {on e:Drop at vb:VBox do
            {e.accept-drop
                {proc
                    {w:any,
                     x:Distance,
                     y:Distance,
                     z:#DragEffect
                    }:DropResult

                    {if {z.has-effect? “copy”} then
                        {return
                            {DropResultCopy
                                action =
                                    {proc {}:void
                                        {vb.add {w.clone-appearance}}
                                    }
                            }
                        }
                     else
                        {return
                            {DropResultMove
                                action =
                                    {proc {}:void
                                        {vb.add w}
                                    }
} } } } } } } }