#|
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 ) ) #||#