DEFINE RECTANGLE rect2
EDGE-PIXELS 4 
SIZE 30 BY 6.
DEFINE VARIABLE var2 AS CHARACTER.

DEFINE BUTTON btn2 LABEL "OK2".

DEFINE BUTTON btn1 LABEL "OK1".

DEFINE FRAME pframe btn1 AT COL 80 ROW 9 space btn2 
rect2 AT COL 70 ROW 8 
var2 AT COL 75 ROW 12 
WITH 1 DOWN KEEP-TAB-ORDER OVERLAY            
SIDE-LABELS NO-UNDERLINE THREE-D            
AT COL 1 ROW 1           
SIZE 120 BY 15           
TITLE "Parent Frame" BGCOLOR 2.

DEFINE VARIABLE hText AS HANDLE.

CREATE TEXT hText 
ASSIGN
      FRAME = FRAME pframe:HANDLE
      HIDDEN = FALSE
      WIDTH = 4
      HEIGHT = 1
      COL = 90
      ROW = 10.5
      SCREEN-VALUE = "text".

hText:MOVABLE = TRUE.

DEFINE VAR wWin AS HANDLE.

CREATE WINDOW wWin ASSIGN
 HIDDEN = YES
 TITLE = "Issue 8647" 
 HEIGHT = 15
 WIDTH = 120
 RESIZE = no
 SCROLL-BARS = no
 STATUS-AREA = yes
 BGCOLOR = ?
 FGCOLOR = ?
 THREE-D = yes
 MESSAGE-AREA = yes
 SENSITIVE = yes.

DEFINE VAR fld1 AS CHAR.

DEFINE VAR fld2 AS CHAR.

DEFINE FRAME frame1 fld1 WITH 1 DOWN KEEP-TAB-ORDER OVERLAY            
SIDE-LABELS NO-UNDERLINE THREE-D            
AT COL 1 ROW 1           
SIZE 83 BY 13           
TITLE "Frame 1" BGCOLOR 1.
FRAME frame1:HIDDEN = TRUE.
FRAME frame1:MOVABLE = TRUE.
FRAME frame1:RESIZABLE = TRUE.



DEFINE FRAME frame2 fld2 AT ROW 1.5 COL 18 COLON-ALIGNED WITH 1 DOWN KEEP-TAB-ORDER OVERLAY            
SIDE-LABELS NO-UNDERLINE THREE-D            
AT COL 40 ROW 1           
SIZE 60 BY 10           
TITLE "Frame 2" BGCOLOR 3.
FRAME frame2:HIDDEN = TRUE.
FRAME frame2:MOVABLE = TRUE.
FRAME frame2:RESIZABLE = TRUE.


/* z-order of frames */
FRAME frame1:FRAME = FRAME pframe:HANDLE.
FRAME frame2:FRAME = FRAME pframe:HANDLE.

FRAME frame1:HIDDEN = FALSE.
FRAME frame2:HIDDEN = FALSE.
btn1:MOVABLE IN FRAME pframe = TRUE.

btn2:MOVABLE IN FRAME pframe = TRUE.

var2:MOVABLE IN FRAME pframe = TRUE.
var2:SIDE-LABEL-HANDLE:MOVABLE IN FRAME pframe = TRUE.
/* rectangle cannot be moved */
rect2:MOVABLE IN FRAME pframe = TRUE.


VIEW wWin.

ENABLE btn1 btn2 var2 WITH FRAME pframe IN WINDOW wWin.



WAIT-FOR CLOSE OF THIS-PROCEDURE.