Example for User-Defined Attribute

#| Example for User-Defined Attribute - Column Type Integer Note: This is an example file showing concepts of the Integration Kit. The code itself is not supported and will never be supported.

Load this file and switch to browser view named "UDA Integer Column". Open the tool box menu to start the dialog.

|#
(oli:sd-defdialog 'add_uda_integer
  :dialog-title "Add User-def. Attr"
  :variables
  '(
     (A_PART
       :value-type :part
       :title "Part:"
     )
     ("Add")
     (ADD_INTEGER
       :value-type :integer
       :title "Integer:"
     )
     (ADD_ATTRIBUTE
       :title "Add Attribute"
       :toggle-type :wide-toggle
       :push-action (add-uda a_part)
     )
   )
  :local-functions
  '(
     (add-uda (part)
       (oli:sd-attach-item-attribute
         part
         "INTEGER-COLUMN"
         :attachment :instance
         :values `( :integer-value ,add_integer)
       )
       (g-browser::rebuild-browser-tree "parcel-gbrowser")
     )
   )
)

(oli:sd-create-uda-integer-column-definition
  :uda-integer-column
  :attribute "INTEGER-COLUMN"
  :value-list-key :integer-value
  :title "Integer Column"
  :mapping '( (0 "None") )
  :attachment :instance
)

(oli:sd-create-browser-view
  "UDA-INTEGER-COLUMN"
  :title "UDA Integer Column"
  :tree-config '( :instance-name "[ " :uda-integer-column " ]")
  :detail-config '( :uda-integer-column )
)
#|