"dialog-login" (list (cons 'name "dialog-login") (cons 'parent-class (list dialog% frame% project%)) (cons 'code (lambda (parent-16894) (let* ((code-16896 parent-16894) (code-16898 (new prop:atom% (value 'dialog-login))) (code-16897 (new prop:field-id% (value code-16898) (field-id 'id) (option '#t) (necessary '#f) (no-code '#t) (hidden '#f))) (code-16900 (new prop:atom% (value '"Login"))) (code-16899 (new prop:field-id% (value code-16900) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-16902 (new prop:atom% (value '243))) (code-16901 (new prop:field-id% (value code-16902) (field-id 'width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16904 (new prop:atom% (value '75))) (code-16903 (new prop:field-id% (value code-16904) (field-id 'height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16906 (new prop:atom% (value '474))) (code-16905 (new prop:field-id% (value code-16906) (field-id 'x) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16908 (new prop:atom% (value '576))) (code-16907 (new prop:field-id% (value code-16908) (field-id 'y) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16911 (new prop:some-of% (value (list)) (choices (list 'no-caption 'resize-border 'no-sheet)))) (code-16910 (new prop:popup% (value code-16911))) (code-16909 (new prop:field-id% (value code-16910) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16913 (new prop:atom% (value '#t))) (code-16912 (new prop:field-id% (value code-16913) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16915 (new prop:atom% (value '0))) (code-16914 (new prop:field-id% (value code-16915) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16917 (new prop:atom% (value '0))) (code-16916 (new prop:field-id% (value code-16917) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16920 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-16921 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-16919 (new prop:group% (value (list code-16920 code-16921)))) (code-16918 (new prop:field-id% (value code-16919) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16923 (new prop:atom% (value '70))) (code-16922 (new prop:field-id% (value code-16923) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16925 (new prop:atom% (value '30))) (code-16924 (new prop:field-id% (value code-16925) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16927 (new prop:atom% (value '#t))) (code-16926 (new prop:field-id% (value code-16927) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16929 (new prop:atom% (value '#t))) (code-16928 (new prop:field-id% (value code-16929) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16931 (new prop:atom% (value '#f))) (code-16930 (new prop:field-id% (value code-16931) (field-id 'show-at-init) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-16895 (new mred-id% (plugin (get-widget-plugin 'dialog)) (mred-parent code-16896) (properties (list (cons 'id code-16897) (cons 'label code-16899) (cons 'width code-16901) (cons 'height code-16903) (cons 'x code-16905) (cons 'y code-16907) (cons 'style code-16909) (cons 'enabled code-16912) (cons 'border code-16914) (cons 'spacing code-16916) (cons 'alignment code-16918) (cons 'min-width code-16922) (cons 'min-height code-16924) (cons 'stretchable-width code-16926) (cons 'stretchable-height code-16928) (cons 'show-at-init code-16930))))) (code-16934 (new prop:atom% (value 'text-field-login))) (code-16933 (new prop:field-id% (value code-16934) (field-id 'id) (option '#t) (necessary '#f) (no-code '#t) (hidden '#f))) (code-16936 (new prop:atom% (value '"Login"))) (code-16935 (new prop:field-id% (value code-16936) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-16938 (new prop:code% (value (lambda (text-field control-event) (void))) (value-code '(lambda (text-field control-event) (void))))) (code-16937 (new prop:field-id% (value code-16938) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16940 (new prop:atom% (value '""))) (code-16939 (new prop:field-id% (value code-16940) (field-id 'init-value) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16944 (new prop:one-of% (value 'single) (choices (list 'single 'multiple)))) (code-16945 (new prop:one-of% (value 'horizontal-label) (choices (list 'vertical-label 'horizontal-label)))) (code-16946 (new prop:some-of% (value (list)) (choices (list 'hscroll 'password 'deleted)))) (code-16943 (new prop:group% (value (list code-16944 code-16945 code-16946)))) (code-16947 (new prop:code% (value (λ (l) (list* (first l) (second l) (third l)))) (value-code '(λ (l) (list* (first l) (second l) (third l)))))) (code-16942 (new prop:proc% (value code-16943) (prop-code code-16947))) (code-16941 (new prop:field-id% (value code-16942) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16950 (new prop:atom% (value (list '8 'default 'normal 'normal '#f 'default '#f)))) (code-16951 (new prop:code% (value list->font) (value-code 'list->font))) (code-16949 (new prop:font% (value code-16950) (prop-code code-16951))) (code-16948 (new prop:field-id% (value code-16949) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16953 (new prop:atom% (value '#t))) (code-16952 (new prop:field-id% (value code-16953) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16955 (new prop:atom% (value '2))) (code-16954 (new prop:field-id% (value code-16955) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16957 (new prop:atom% (value '2))) (code-16956 (new prop:field-id% (value code-16957) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16959 (new prop:atom% (value '200))) (code-16958 (new prop:field-id% (value code-16959) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16961 (new prop:atom% (value '0))) (code-16960 (new prop:field-id% (value code-16961) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16963 (new prop:atom% (value '#f))) (code-16962 (new prop:field-id% (value code-16963) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16965 (new prop:atom% (value '#f))) (code-16964 (new prop:field-id% (value code-16965) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16932 (new mred-id% (plugin (get-widget-plugin 'text-field)) (mred-parent code-16895) (properties (list (cons 'id code-16933) (cons 'label code-16935) (cons 'callback code-16937) (cons 'init-value code-16939) (cons 'style code-16941) (cons 'font code-16948) (cons 'enabled code-16952) (cons 'vert-margin code-16954) (cons 'horiz-margin code-16956) (cons 'min-width code-16958) (cons 'min-height code-16960) (cons 'stretchable-width code-16962) (cons 'stretchable-height code-16964))))) (code-16968 (new prop:atom% (value 'text-field-password))) (code-16967 (new prop:field-id% (value code-16968) (field-id 'id) (option '#t) (necessary '#f) (no-code '#t) (hidden '#f))) (code-16970 (new prop:atom% (value '"Password"))) (code-16969 (new prop:field-id% (value code-16970) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-16972 (new prop:code% (value (lambda (text-field control-event) (void))) (value-code '(lambda (text-field control-event) (void))))) (code-16971 (new prop:field-id% (value code-16972) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16974 (new prop:atom% (value '""))) (code-16973 (new prop:field-id% (value code-16974) (field-id 'init-value) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16978 (new prop:one-of% (value 'single) (choices (list 'single 'multiple)))) (code-16979 (new prop:one-of% (value 'horizontal-label) (choices (list 'vertical-label 'horizontal-label)))) (code-16980 (new prop:some-of% (value (list 'password)) (choices (list 'hscroll 'password 'deleted)))) (code-16977 (new prop:group% (value (list code-16978 code-16979 code-16980)))) (code-16981 (new prop:code% (value (λ (l) (list* (first l) (second l) (third l)))) (value-code '(λ (l) (list* (first l) (second l) (third l)))))) (code-16976 (new prop:proc% (value code-16977) (prop-code code-16981))) (code-16975 (new prop:field-id% (value code-16976) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16984 (new prop:atom% (value (list '8 'default 'normal 'normal '#f 'default '#f)))) (code-16985 (new prop:code% (value list->font) (value-code 'list->font))) (code-16983 (new prop:font% (value code-16984) (prop-code code-16985))) (code-16982 (new prop:field-id% (value code-16983) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16987 (new prop:atom% (value '#t))) (code-16986 (new prop:field-id% (value code-16987) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16989 (new prop:atom% (value '2))) (code-16988 (new prop:field-id% (value code-16989) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16991 (new prop:atom% (value '2))) (code-16990 (new prop:field-id% (value code-16991) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16993 (new prop:atom% (value '200))) (code-16992 (new prop:field-id% (value code-16993) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16995 (new prop:atom% (value '0))) (code-16994 (new prop:field-id% (value code-16995) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16997 (new prop:atom% (value '#f))) (code-16996 (new prop:field-id% (value code-16997) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16999 (new prop:atom% (value '#f))) (code-16998 (new prop:field-id% (value code-16999) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-16966 (new mred-id% (plugin (get-widget-plugin 'text-field)) (mred-parent code-16895) (properties (list (cons 'id code-16967) (cons 'label code-16969) (cons 'callback code-16971) (cons 'init-value code-16973) (cons 'style code-16975) (cons 'font code-16982) (cons 'enabled code-16986) (cons 'vert-margin code-16988) (cons 'horiz-margin code-16990) (cons 'min-width code-16992) (cons 'min-height code-16994) (cons 'stretchable-width code-16996) (cons 'stretchable-height code-16998))))) (code-17002 (new prop:atom% (value 'horizontal-pane-16817))) (code-17001 (new prop:field-id% (value code-17002) (field-id 'id) (option '#t) (necessary '#f) (no-code '#t) (hidden '#f))) (code-17004 (new prop:atom% (value '0))) (code-17003 (new prop:field-id% (value code-17004) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-17006 (new prop:atom% (value '0))) (code-17005 (new prop:field-id% (value code-17006) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-17008 (new prop:atom% (value '0))) (code-17007 (new prop:field-id% (value code-17008) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-17010 (new prop:atom% (value '0))) (code-17009 (new prop:field-id% (value code-17010) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-17013 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-17014 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-17012 (new prop:group% (value (list code-17013 code-17014)))) (code-17011 (new prop:field-id% (value code-17012) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-17016 (new prop:atom% (value '0))) (code-17015 (new prop:field-id% (value code-17016) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-17018 (new prop:atom% (value '0))) (code-17017 (new prop:field-id% (value code-17018) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-17020 (new prop:atom% (value '#t))) (code-17019 (new prop:field-id% (value code-17020) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-17022 (new prop:atom% (value '#t))) (code-17021 (new prop:field-id% (value code-17022) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-17000 (new mred-id% (plugin (get-widget-plugin 'horizontal-pane)) (mred-parent code-16895) (properties (list (cons 'id code-17001) (cons 'vert-margin code-17003) (cons 'horiz-margin code-17005) (cons 'border code-17007) (cons 'spacing code-17009) (cons 'alignment code-17011) (cons 'min-width code-17015) (cons 'min-height code-17017) (cons 'stretchable-width code-17019) (cons 'stretchable-height code-17021))))) (code-17025 (new prop:atom% (value 'button-login-ok))) (code-17024 (new prop:field-id% (value code-17025) (field-id 'id) (option '#t) (necessary '#f) (no-code '#t) (hidden '#f))) (code-17029 (new prop:atom% (value '"Ok"))) (code-17030 (new prop:boolean% (value '#f) (label '"Image?"))) (code-17031 (new prop:file% (value '#f))) (code-17028 (new prop:group% (value (list code-17029 code-17030 code-17031)))) (code-17032 (new prop:code% (value label-bitmap-proc) (value-code 'label-bitmap-proc))) (code-17027 (new prop:proc% (value code-17028) (prop-code code-17032))) (code-17026 (new prop:field-id% (value code-17027) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-17034 (new prop:code% (value (lambda (button control-event) (void))) (value-code '(lambda (button control-event) (void))))) (code-17033 (new prop:field-id% (value code-17034) (field-id 'callback) (option '#t) (necessary '#t) (no-code '#f) (hidden '#f))) (code-17036 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-17035 (new prop:field-id% (value code-17036) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-17039 (new prop:atom% (value (list '8 'default 'normal 'normal '#f 'default '#f)))) (code-17040 (new prop:code% (value list->font) (value-code 'list->font))) (code-17038 (new prop:font% (value code-17039) (prop-code code-17040))) (code-17037 (new prop:field-id% (value code-17038) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-17042 (new prop:atom% (value '#t))) (code-17041 (new prop:field-id% (value code-17042) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-17044 (new prop:atom% (value '2))) (code-17043 (new prop:field-id% (value code-17044) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-17046 (new prop:atom% (value '2))) (code-17045 (new prop:field-id% (value code-17046) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-17048 (new prop:atom% (value '0))) (code-17047 (new prop:field-id% (value code-17048) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-17050 (new prop:atom% (value '0))) (code-17049 (new prop:field-id% (value code-17050) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-17052 (new prop:atom% (value '#f))) (code-17051 (new prop:field-id% (value code-17052) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-17054 (new prop:atom% (value '#f))) (code-17053 (new prop:field-id% (value code-17054) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-17023 (new mred-id% (plugin (get-widget-plugin 'button)) (mred-parent code-17000) (properties (list (cons 'id code-17024) (cons 'label code-17026) (cons 'callback code-17033) (cons 'style code-17035) (cons 'font code-17037) (cons 'enabled code-17041) (cons 'vert-margin code-17043) (cons 'horiz-margin code-17045) (cons 'min-width code-17047) (cons 'min-height code-17049) (cons 'stretchable-width code-17051) (cons 'stretchable-height code-17053))))) (code-17057 (new prop:atom% (value 'button-login-cancel))) (code-17056 (new prop:field-id% (value code-17057) (field-id 'id) (option '#t) (necessary '#f) (no-code '#t) (hidden '#f))) (code-17061 (new prop:atom% (value '"Cancel"))) (code-17062 (new prop:boolean% (value '#f) (label '"Image?"))) (code-17063 (new prop:file% (value '#f))) (code-17060 (new prop:group% (value (list code-17061 code-17062 code-17063)))) (code-17064 (new prop:code% (value label-bitmap-proc) (value-code 'label-bitmap-proc))) (code-17059 (new prop:proc% (value code-17060) (prop-code code-17064))) (code-17058 (new prop:field-id% (value code-17059) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-17066 (new prop:code% (value (lambda (button control-event) (void))) (value-code '(lambda (button control-event) (void))))) (code-17065 (new prop:field-id% (value code-17066) (field-id 'callback) (option '#t) (necessary '#t) (no-code '#f) (hidden '#f))) (code-17068 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-17067 (new prop:field-id% (value code-17068) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-17071 (new prop:atom% (value (list '8 'default 'normal 'normal '#f 'default '#f)))) (code-17072 (new prop:code% (value list->font) (value-code 'list->font))) (code-17070 (new prop:font% (value code-17071) (prop-code code-17072))) (code-17069 (new prop:field-id% (value code-17070) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-17074 (new prop:atom% (value '#t))) (code-17073 (new prop:field-id% (value code-17074) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-17076 (new prop:atom% (value '2))) (code-17075 (new prop:field-id% (value code-17076) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-17078 (new prop:atom% (value '2))) (code-17077 (new prop:field-id% (value code-17078) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-17080 (new prop:atom% (value '0))) (code-17079 (new prop:field-id% (value code-17080) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-17082 (new prop:atom% (value '0))) (code-17081 (new prop:field-id% (value code-17082) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-17084 (new prop:atom% (value '#f))) (code-17083 (new prop:field-id% (value code-17084) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-17086 (new prop:atom% (value '#f))) (code-17085 (new prop:field-id% (value code-17086) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-17055 (new mred-id% (plugin (get-widget-plugin 'button)) (mred-parent code-17000) (properties (list (cons 'id code-17056) (cons 'label code-17058) (cons 'callback code-17065) (cons 'style code-17067) (cons 'font code-17069) (cons 'enabled code-17073) (cons 'vert-margin code-17075) (cons 'horiz-margin code-17077) (cons 'min-width code-17079) (cons 'min-height code-17081) (cons 'stretchable-width code-17083) (cons 'stretchable-height code-17085)))))) (list code-16895 code-16932 code-16966 code-17000 code-17023 code-17055)))))