class KOMPONENTE inherit WEL_STANDARD_COLORS feature zeichne (dc:WEL_CLIENT_DC) is local x1, y1, x2, y2:INTEGER; stift:WEL_PEN; do x1:=x1r.rounded; y1:=y1r.rounded; x2:=x2r.rounded; y2:=y2r.rounded; !!stift.make(1,1,grey); dc.select_pen(stift); dc.line(x1, y1, x2, y1); dc.line(x2, y1, x2, y2); dc.line(x2, y2, x1, y2); dc.line(x1, y2, x1, y1); stift.delete; end; verschiebe (x1, y1:INTEGER) is do end; loesche_komp:KOMPONENTE is do Result:=Current; end; setze_neue_Koordinaten(x1, y1, x2, y2:REAL) is do x1r:=x1; y1r:=y1; x2r:=x2; y2r:=y2; end; set_color(color:WEL_COLOR_REF) is do komp_color:=color; end; set_number(num:INTEGER) is do number:=num; end; set_name(nam:STRING) is do Name:=nam; end; set_text (text_eingabe:STRING) is do text:=text_eingabe; end; gib_text:STRING is do Result:=text; end; gib_name:STRING is do Result:=Name; end; gib_nummer:INTEGER is do Result:=number; end; gib_x1r:REAL is do Result:=x1r; end; gib_y1r:REAL is do Result:=y1r; end; gib_x2r:REAL is do Result:=x2r; end; gib_y2r:REAL is do Result:=y2r; end; is_text:BOOLEAN is do Result:=false; end; feature {KOMPONENTE, TEXT_KOMPONENTE} x1r, y1r, x2r, y2r:REAL; Name:STRING; komp_color:WEL_COLOR_REF; number:INTEGER; text:STRING; end --class KOMPONENTE