Changeset 7346 for branches

Timestamp:

Oct 4, 2007, 7:12:51 AM (17 years ago)

Author:

af

Message:

Some obvious things, part 1: implement the password-input-view

(from NSSecureTextField)

Location:

branches/easygui/ccl

Files:

• darwin-x86-headers64/libc/C/populate.sh (modified) (1 diff)
• examples/cocoa/easygui/package.lisp (modified) (1 diff)
• examples/cocoa/easygui/views.lisp (modified) (2 diffs)

branches/easygui/ccl/darwin-x86-headers64/libc/C/populate.sh

@@ -618 +618 @@
 h-to-ffi.sh -include ${SDK}/usr/include/sys/types.h ${SDK}/usr/include/vis.h
 h-to-ffi.sh ${SDK}/usr/include/zconf.h
+h-to-ffi.sh ${SDK}/usr/include.xattr.h
 h-to-ffi.sh ${SDK}/usr/include/zlib.h
+h-to-ffi.sh ${SDK}/usr/include.xattr.h

branches/easygui/ccl/examples/cocoa/easygui/package.lisp

@@ -4 +4 @@
   (:export #:point #:window
            ;; view classes
-           #:view #:static-text-view #:text-input-view #:push-button-view
+           #:view #:static-text-view #:text-input-view #:password-input-view
+           #:push-button-view
            #:form-view #:form-cell-view #:box-view
            ;; operators

branches/easygui/ccl/examples/cocoa/easygui/views.lisp

@@ -70 +70 @@
                       :reader text-input-locked-p)))
 
+(defclass password-input-view (text-input-view)
+     ())
+
 (defclass push-button-view (view view-text-via-title-mixin)
      ((default-button-p :initarg :default-button-p :initform nil
@@ -88 +91 @@
               '((static-text-view . ns:ns-text-field)
                 (text-input-view . ns:ns-text-field)
+                (password-input-view . ns:ns-secure-text-field)
                 (push-button-view . ns:ns-button)
                 (form-view . ns:ns-form)