;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: gtkselection.lisp,v 1.2 2006-02-06 14:02:17 espen Exp $
+;; $Id: gtkselection.lisp,v 1.3 2006-02-08 21:58:49 espen Exp $
(in-package "GTK")
((length targets) int))
(defmethod initialize-instance ((target-list target-list) &key targets)
- (setf
- (slot-value target-list 'location)
+ (setf
+ (slot-value target-list 'location)
(%target-list-new targets))
(call-next-method))
-(defbinding target-list-add (target-list targets &optional flags info) nil
+(defbinding target-list-add (target-list target &optional flags info) nil
(target-list target-list)
(target gdk:atom)
(flags unsigned-int)
(defbinding selection-data-targets-include-text-p (selection-data) boolean
(selection-data selection-data))
-(defbinding selection-remove-all (selection-data) boolean
+(defbinding selection-remove-all () boolean
(widget widget))