Merge branch 'fix/ivette/form/rlaz' into 'master'

Ivette : Field, label html en Label JSX

See merge request frama-c/frama-c!4479

ivette/src/dome/renderer/controls/labels.tsx

@@ -61,6 +61,8 @@ export interface LabelProps {
   display?: boolean;
   /** Additional content of the `<label/>` element. */
   children?: React.ReactNode;
+  /** Html tag `<input />` element. */
+  htmlFor?: string;
   /** Click event callback. */
   onClick?: (evt: React.MouseEvent) => void;
   /** Click event callback. */
@@ -93,6 +95,7 @@ const makeLabel = (className: string) =>
         onClick={props.onClick}
         onDoubleClick={props.onDoubleClick}
         onContextMenu={props.onContextMenu}
+        htmlFor={props.htmlFor}
       >
         {props.icon &&
          <Icon title={props.title} id={props.icon} className={iconClass} />}

ivette/src/dome/renderer/layout/forms.tsx

@@ -44,6 +44,7 @@ import * as Dome from 'dome';
 import * as Utils from 'dome/misc/utils';
 import { SVG } from 'dome/controls/icons';
 import { Checkbox, Radio, Select as SelectMenu } from 'dome/controls/buttons';
+import { Label } from 'dome/controls/labels';
 
 export type FieldError =
   | undefined | boolean | string
@@ -596,14 +597,13 @@ export function Field(props: GenericFieldProps): JSX.Element | null {
 
   return (
     <>
-      <label
+      <Label
         className={cssLabel}
         style={{ top: offset }}
         htmlFor={htmlFor}
         title={title}
-      >
-        {label}
-      </label>
+        label={label}
+      />
       <div className={cssField} title={title}>
         {children}
         {WARNING}