Parents
  •  

    $*************************************************************************
    !Remove = Array()
    Do
    !mcount = !Remove.size()
    id @
    Handle (61,528)
        Golabel /Break
    EndHandle
    
    !Ref = ref
    If('$!mcount' eq '0') Then
        !Remove.append(!!ce)
        !mcount = !Remove.Size()
        Enha $!Remove[$!mcount]
        refre
    Else
        Do !x from 1 to !mcount
            If('$!ref' eq '$!Remove[$!x]')Then
                unenh $!Remove[$!x]
                refre
                $!Remove[$!x].Delete()
                golabel /Skip
            Endif
        Enddo
    EndIf
    
        !Remove.append(!!ce)
        !mcont = !Remove.Size()
        enha  $!Remove[$!mcount]
        refre
    
        Label /skip
        !Remove = !Remove.Unique()
    
    Enddo
    
    Label /Break
    
    !Response = !!alert.Confirm('Are you sure you want to remove all highlighted items')
    
    If(!Response eq 'No') Then
        $PCancel
        return
    EndIf
    
    unenh all
    
    Do !Item from 1 To !Remove.size()
        $!Remove[$!Item]
        remove ce
    Enddo
    
    $****************************************************************************************

Reply
  •  

    $*************************************************************************
    !Remove = Array()
    Do
    !mcount = !Remove.size()
    id @
    Handle (61,528)
        Golabel /Break
    EndHandle
    
    !Ref = ref
    If('$!mcount' eq '0') Then
        !Remove.append(!!ce)
        !mcount = !Remove.Size()
        Enha $!Remove[$!mcount]
        refre
    Else
        Do !x from 1 to !mcount
            If('$!ref' eq '$!Remove[$!x]')Then
                unenh $!Remove[$!x]
                refre
                $!Remove[$!x].Delete()
                golabel /Skip
            Endif
        Enddo
    EndIf
    
        !Remove.append(!!ce)
        !mcont = !Remove.Size()
        enha  $!Remove[$!mcount]
        refre
    
        Label /skip
        !Remove = !Remove.Unique()
    
    Enddo
    
    Label /Break
    
    !Response = !!alert.Confirm('Are you sure you want to remove all highlighted items')
    
    If(!Response eq 'No') Then
        $PCancel
        return
    EndIf
    
    unenh all
    
    Do !Item from 1 To !Remove.size()
        $!Remove[$!Item]
        remove ce
    Enddo
    
    $****************************************************************************************

Children
No Data