---

Class ::xowiki::formfield::image_url

::xowiki::formfield::image_url create ... \
           [ -border border ] \
           [ -border-width border-width ] \
           [ -bottom bottom ] \
           [ -cssclass cssclass ] \
           [ -float (default "left") ] \
           [ -height height ] \
           [ -href href ] \
           [ -left left ] \
           [ -margin margin ] \
           [ -margin-bottom margin-bottom ] \
           [ -margin-left margin-left ] \
           [ -margin-right margin-right ] \
           [ -margin-top margin-top ] \
           [ -padding padding ] \
           [ -padding-bottom padding-bottom ] \
           [ -padding-left padding-left ] \
           [ -padding-right (default "10px") ] \
           [ -padding-top padding-top ] \
           [ -position position ] \
           [ -right right ] \
           [ -top top ] \
           [ -width width ]

Class Relations

• class: ::xotcl::Class
• superclass: ::xowiki::formfield::text

::xotcl::Class create ::xowiki::formfield::image_url \
     -superclass ::xowiki::formfield::text

Methods (to be applied on instances)

• border (setter)

• border-width (setter)

• bottom (setter)

• check=image_check (scripted)

  if {$value eq ""} {return 1}
  set entry_name [:entry_name $value]
  if {$entry_name eq ""} {
    :log "--img '$value' does not appear to be an image"
    # no image?
    return 0
  }
  set folder_id [${:object} set parent_id]
  if {[::xo::db::CrClass lookup -name $entry_name -parent_id $folder_id]} {
    :log "--img entry named $entry_name exists already"
    # file exists already
    return 1
  }
  if {[regexp {^file://(.*)$} $value _ path]} {
    set f [open $path r]
    fconfigure $f translation binary
    set img [read $f]
    close $f
  } else {
    ad_try {
      set request [util::http::get -url $value]
      set img [expr {[dict exists $request page] ? [dict get $request page] : ""}]
    } on error {errorMsg} {
      # cannot transfer image
      :log "--img cannot obtain image '$value' ($errorMsg)"
      return 0
    }
  }
  #:msg "guess mime_type of $entry_name = [::xowiki::guesstype $entry_name]"
  ::xo::write_tmp_file import_file $img
  set file_object [::xowiki::File new  -title $entry_name  -name $entry_name  -parent_id $folder_id  -mime_type [::xowiki::guesstype $entry_name]  -package_id [${:object} package_id]  -creation_user [::xo::cc user_id]  -destroy_on_cleanup  ]
  $file_object set import_file $import_file
  $file_object save_new
  return 1

• cssclass (setter)

• entry_name (scripted)

  set value [string map [list %2e .] $value]
  if {![regexp -nocase {/([^/]+)[.](gif|jpg|jpeg|png)} $value _ name ext]} {
    return ""
  }
  return file:$name.$ext

• float (setter)

• height (setter)

• href (setter)

• initialize (scripted)

  next
  if {${:help_text} eq ""} {
    set :help_text "#xowiki.formfield-image_url-help_text#"
  }

• left (setter)

• margin (setter)

• margin-bottom (setter)

• margin-left (setter)

• margin-right (setter)

• margin-top (setter)

• padding (setter)

• padding-bottom (setter)

• padding-left (setter)

• padding-right (setter)

• padding-top (setter)

• position (setter)

• pretty_value (scripted)

  set entry_name [:entry_name $v]
  return [:pretty_image -parent_id [${:object} parent_id] $entry_name]

• right (setter)

• top (setter)

• validator (setter)

• width (setter)

---