"vertical-bar" (list (cons 'name "vertical-bar") (cons 'parent-class container-classes) (cons 'code (lambda (parent-3304) (let* ((code-3306 parent-3304) (code-3308 (new prop:atom% (value 'vertical-bar))) (code-3307 (new prop:field-id% (value code-3308) (field-id 'id) (option '#t) (necessary '#f) (no-code '#t) (hidden '#f))) (code-3310 (new prop:some-of% (value (list 'border)) (choices (list 'border 'deleted)))) (code-3309 (new prop:field-id% (value code-3310) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-3312 (new prop:atom% (value '#t))) (code-3311 (new prop:field-id% (value code-3312) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-3314 (new prop:atom% (value '0))) (code-3313 (new prop:field-id% (value code-3314) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-3316 (new prop:atom% (value '0))) (code-3315 (new prop:field-id% (value code-3316) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-3318 (new prop:atom% (value '0))) (code-3317 (new prop:field-id% (value code-3318) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-3320 (new prop:atom% (value '0))) (code-3319 (new prop:field-id% (value code-3320) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-3323 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-3324 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-3322 (new prop:group% (value (list code-3323 code-3324)))) (code-3321 (new prop:field-id% (value code-3322) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-3326 (new prop:atom% (value '0))) (code-3325 (new prop:field-id% (value code-3326) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-3328 (new prop:atom% (value '0))) (code-3327 (new prop:field-id% (value code-3328) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-3330 (new prop:atom% (value '#f))) (code-3329 (new prop:field-id% (value code-3330) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-3332 (new prop:atom% (value '#t))) (code-3331 (new prop:field-id% (value code-3332) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-3305 (new mred-id% (plugin (get-widget-plugin 'vertical-panel)) (mred-parent code-3306) (properties (list (cons 'id code-3307) (cons 'style code-3309) (cons 'enabled code-3311) (cons 'vert-margin code-3313) (cons 'horiz-margin code-3315) (cons 'border code-3317) (cons 'spacing code-3319) (cons 'alignment code-3321) (cons 'min-width code-3325) (cons 'min-height code-3327) (cons 'stretchable-width code-3329) (cons 'stretchable-height code-3331)))))) (list code-3305)))))