// To be used with Savelayr.lsp.
//
// Copyright (C) Erik Murray, 1997
// last modified 4/1/97

main : dialog {
	label = "Purge";
	: row {
		: spacer {}
		: boxed_column {
			label = "Select properties to purge: ";
			: row {
				: spacer {}
				: column {
					: toggle {
						label = "Blocks";
						value = 0;
						key = "blocks";
					}
					: toggle {
						label = "Dimstyles";
						value = 0;
						key = "dims";
					}
					: toggle {
						label = "Layers";
						value = 0;
						key = "layers";
					}
					: toggle {
						label = "Linetypes";
						value = 0;
						key = "ltypes";
					}
					: toggle {
						label = "Shapes";
						value = 0;
						key = "shapes";
					}
					: toggle {
						label = "Styles";
						value = 0;
						key = "styles";
					}
					: toggle {
						label = "Mlinestyles";
						value = 0;
						key = "mlines";
					}
				}
				: spacer {}
			}
			: spacer {}
			: button {
				label = "Purge All";
				mnemonic = "A";
				key = "all";
			}
			: button {
				label = "Clear Toggles";
				mnemonic = "C";
				key = "clear";
			}
		}
		: spacer {}
	}
	: spacer {}
	ok_cancel;
}