* WinPaste depends on avalaible Clipboard data

ide/text/weditor.pas

@@ -426,7 +426,8 @@ const
 
      DontConsiderShiftState: boolean  = false;
      ToClipCmds         : TCommandSet = ([cmCut,cmCopy,cmCopyWin]);
-     FromClipCmds       : TCommandSet = ([cmPaste,cmPasteWin]);
+     FromClipCmds       : TCommandSet = ([cmPaste]);
+     FromWinClipCmds    : TCommandSet = ([cmPasteWin]);
      NulClipCmds        : TCommandSet = ([cmClear]);
      UndoCmd            : TCommandSet = ([cmUndo]);
      RedoCmd            : TCommandSet = ([cmRedo]);
@@ -4182,6 +4183,9 @@ begin
   CanPaste:=(Clipboard<>nil) and ((Clipboard^.SelStart.X<>Clipboard^.SelEnd.X) or
        (Clipboard^.SelStart.Y<>Clipboard^.SelEnd.Y));
   SetCmdState(FromClipCmds,CanPaste  and (Clipboard<>@Self));
+{$ifdef WinClipSupported}
+  SetCmdState(FromWinClipCmds,GetTextWinClipboardSize>0);
+{$endif WinClipSupported}
   SetCmdState(UndoCmd,(UndoList^.count>0));
   SetCmdState(RedoCmd,(RedoList^.count>0));
   Message(Application,evBroadcast,cmCommandSetChanged,nil);
@@ -4927,7 +4931,10 @@ end;
 END.
 {
   $Log$
-  Revision 1.59  1999-11-03 09:39:23  peter
+  Revision 1.60  1999-11-05 13:49:13  pierre
+   * WinPaste depends on avalaible Clipboard data
+
+  Revision 1.59  1999/11/03 09:39:23  peter
     * fixed uppercase filenames
     * savetostream did twice a -1 on the linecount, so the lastline of a
       file wasn't saved correctly