equal
deleted
inserted
replaced
909 |
909 |
910 #(#FullSpec |
910 #(#FullSpec |
911 #'window:' |
911 #'window:' |
912 #(#WindowSpec |
912 #(#WindowSpec |
913 #'name:' 'Sliders' |
913 #'name:' 'Sliders' |
914 #'layout:' #(#LayoutFrame 314 0 99 0 758 0 260 0) |
914 #'layout:' #(#LayoutFrame 197 0 175 0 641 0 336 0) |
915 #'label:' 'Sliders' |
915 #'label:' 'Sliders' |
916 #'min:' #(#Point 10 10) |
916 #'min:' #(#Point 10 10) |
917 #'max:' #(#Point 1280 1024) |
917 #'max:' #(#Point 1280 1024) |
918 #'bounds:' #(#Rectangle 314 99 759 261) |
918 #'bounds:' #(#Rectangle 197 175 642 337) |
|
919 #'usePreferredExtent:' false |
919 ) |
920 ) |
920 #'component:' |
921 #'component:' |
921 #(#SpecCollection |
922 #(#SpecCollection |
922 #'collection:' |
923 #'collection:' |
923 #( |
924 #( |
956 #(#ProgressIndicatorSpec |
957 #(#ProgressIndicatorSpec |
957 #'name:' 'Progress Indicator' |
958 #'name:' 'Progress Indicator' |
958 #'layout:' #(#LayoutFrame 102 0 90 0 191 0 108 0) |
959 #'layout:' #(#LayoutFrame 102 0 90 0 191 0 108 0) |
959 #'showPercentage:' true |
960 #'showPercentage:' true |
960 ) |
961 ) |
961 #(#'ProgressIndicatorSpec' |
962 #(#ProgressIndicatorSpec |
962 #'name:' 'Progress Indicator 2' |
963 #'name:' 'Progress Indicator 2' |
963 #'layout:' #(#LayoutFrame 102 0 116 0 191 0 126 0) |
964 #'layout:' #(#LayoutFrame 102 0 116 0 191 0 126 0) |
964 #'showPercentage:' false |
965 #'showPercentage:' false |
965 #'foregroundColor:' #(#Color 100.0 0.0 0.0) |
966 #'foregroundColor:' #(#Color 100.0 0.0 0.0) |
966 ) |
967 ) |
|
968 #(#UpDownButtonSpec |
|
969 #'name:' 'UpDownButton' |
|
970 #'layout:' #(#Point 221 15) |
|
971 ) |
|
972 #(#UpDownButtonSpec |
|
973 #'name:' 'upDownButton1' |
|
974 #'layout:' #(#Point 245 15) |
|
975 #'orientation:' #horizontal |
|
976 ) |
967 ) |
977 ) |
968 ) |
978 ) |
969 ) |
979 ) |
970 |
|
971 "Modified: / 24.10.1997 / 03:27:42 / cg" |
|
972 ! |
980 ! |
973 |
981 |
974 standardText |
982 standardText |
975 "this window spec was automatically generated by the ST/X UIPainter" |
983 "this window spec was automatically generated by the ST/X UIPainter" |
976 |
984 |
1652 lbl := cls perform:userLabels. |
1660 lbl := cls perform:userLabels. |
1653 sel := Array new:(lbl size) withAll:#userDefinedSpec. |
1661 sel := Array new:(lbl size) withAll:#userDefinedSpec. |
1654 self galleryList value:lbl. |
1662 self galleryList value:lbl. |
1655 self minorKeys value:sel. |
1663 self minorKeys value:sel. |
1656 ] ifFalse:[ |
1664 ] ifFalse:[ |
1657 builder := UIBuilder new. |
1665 builder := UIBuilder new isEditing:true. |
|
1666 |
1658 builder application:self. |
1667 builder application:self. |
1659 (self builder componentAt:#gallery) builder:builder. |
1668 (self builder componentAt:#gallery) builder:builder. |
1660 self galleryList value:#( '???' ). |
1669 self galleryList value:#( '???' ). |
1661 self minorKeys value:#( standardUserPanel ). |
1670 self minorKeys value:#( standardUserPanel ). |
1662 ] |
1671 ] |