Chris Rathman / ChrisRath@aol.

com
"************************************************* *********************** * Caracteres permitidos: * * - * Az * - * AZ * - 0-9 * * - + / \ * ~ <> @% |. &? * * - Pestaa en blanco, cr, ff, lf * ** * Variables: * * - Las variables deben ser declaradas antes de usar * * - Vars compartidas debe comenzar con mayscula * * - Vars locales deben comenzar con minscula * * - Nombres reservados: nil, true, false, self, super, and Smalltalk* ** * Ambito de las variables: * * - Global: se define en el Diccionario Smalltalk y accesible a todos * * Objetos de sistema * * - Especial: * (reservado)Smalltalk, super, self, true, false, & nil * - Mtodo temporal: local a un mtodo * * - Bloqueo temporal: local de un bloque * * - Piscina: variables de un objeto * Diccionario * - Parmetros del mtodo: automtico vars locales creados como resultado de * * Mensaje de llamada con * params * - Parmetros del bloque: automtico vars locales creados como resultado de * Valor: * mensaje de llamada * - Clase: compartida con todas las instancias de una clase y sus subclases * * - Clase Instancia: nico para cada instancia de una clase * * - Variables de instancia: nicos para cada instancia * ************************************************** ********************** " "Los comentarios se encierran entre comillas" "Punto (.) Es el separador de declaracin" "************************************************* *********************** * Transcripcin: * ************************************************** ********************** " Transcripcin clara. "Aclarar a la ventana de transcripcin" Transcripcin espectculo: 'Hola Mundo'. "Cadena de salida en la ventana de transcripcin" NextPutAll Transcripcin: 'Hola Mundo'. "Cadena de salida en la ventana de transcripcin" NextPut Transcripcin: $ A. "La salida de caracteres en la ventana de transcripcin" Transcripcin del espacio. "Salida carcter de espacio en la ventana de transcripcin" Transcripcin ficha. "Salida carcter de tabulacin en la ventana de transcripcin" Transcript cr. "Retorno de carro / salto de lnea" 'Hola' printOn: Transcript. "Anexar cadena de impresin en la ventana" 'Hola' storeOn: Transcript. "Append cadena de almacenamiento en la ventana" Transcripcin endEntry. "Vaciar el bfer de salida" "************************************************* *********************** * Tarea: * ************************************************** ********************** " | Xy | x _ 4. "Asignacin (Squeak) <-" x: = 5. "Asignacin" x: = y: = z: = 6. "Compuesto asignacin" x: = (y: = 6) + 1. x: = new Object. "Se unen a instancia de una clase asignada" x: = 123 clase. "Descubrir la clase de objeto" x: = entero superclase. "Descubrir la superclase de una clase" x: = allinstances objeto. "Obtener una matriz de todas las instancias de una clase" x: = allSuperclasses enteros. "Obtener todas las superclases de una clase" x: = 1,2 hash. "Valor hash para el objeto" y: = x copia. "Copia el objeto" y: = x shallowCopy. "Copia de objeto (no anulado)" y: = x deepCopy. "Copia del objeto y la instancia vars" y: = x veryDeepCopy. "Copia del rbol completo usando un diccionario" "************************************************* *********************** * Constantes: * ************************************************** ********************** " | B | b: = true. "Constante verdadera" b: = false. "Falsa constante" x: = nil. "Objeto nulo constante" x: = 1. "Constantes enteras" x: = 3.14. "Constantes float" x: = 2e-2. "Constantes fraccional" x: = 16r0F. "Hex constante". x: = -1. "Constantes negativas" x: = 'Hola'. "Constante de cadena" x: = 'I'' m aqu ". "Escape comilla" x: = $ A. "Carcter permanente" x: = $. "Carcter constante (espacio)" x: = # unSimbolo. "Constantes smbolo" x: = # (3 2 1). "Constantes de matriz" x: = # ('abc' 2 $ a). "Mezcla de tipos permitidos"

"************************************************* *********************** * Booleanos: * ************************************************** ********************** " | Bxy | x: = 1. y: = 2. b: = (x = y). "Iguales" b: = (x ~ = y). "No es igual" b: = (x == y). "Idntico" b: = (x ~ y). "No idntico" b: = (x> y). "Mayor que" b: = (x <y). "Menor que" b: = (x> = y). "Mayor o igual" b: = (x <= y). "Menor o igual" b: = b no. "No booleano" b: = (x <5) y (y> 1). "Booleano y" b: = (x <5) | (y> 1). "Booleano o" b: = (x <5) y: [y> 1]. "Booleano y (cortocircuito)" b: = (x <5) o: [y> 1]. "Booleano o (cortocircuito)" b: = (x <5) eqv: (y> 1). "Prueba si ambas verdaderas o falsas tanto" b: = (x <5) xor: (y> 1). "Probar si una verdadera y otra falsa" b: = 5 entre: 3 y: 12. "Entre (inclusive)" b: = 123 isKindOf: nmero. "Prueba si el objeto es de clase o subclase de" b: = 123 isMemberOf: SmallInteger. "Prueba si el objeto es un tipo de clase" b: = 123 respondsTo: sqrt. "Prueba si el objeto responde al mensaje" b: = x nombreElegido isNil. "Prueba si el objeto es nulo" b: = x isZero. "Prueba si el nmero es cero" b: = x positivo. "Probar si el nmero es positivo" b: = x strictlyPositive. "Probar si el nmero es mayor que cero" b: = x negativa. "Probar si el nmero es negativo" b: = x, incluso. "Probar si el nmero es par" b: x = impar. "Probar si el nmero es impar" b: = x isLiteral. "Prueba si literal constante" b: = x IsInteger. "Prueba si el objeto es entero" b: = x isFloat. "Prueba si el objeto es float" b: = x ESNUMERO. "Prueba si el objeto es nmero" b: = $ A isUppercase. "Prueba de si el carcter en maysculas" b: = $ A isLowercase. "Probar si el personaje de las letras" "************************************************* *********************** * Las expresiones aritmticas: * ************************************************** ********************** " | X | x: = 6 + 3. "Adicin" x: = 6 - 3. "Sustraccin" x: = 6 * 3. "Multiplicacin" x: = 1 + 2 * 3. "La evaluacin siempre de izquierda a derecha (1 + 2) * 3" x: = 5/3. "Divisin con resultado fraccional" x: = 5,0 / 3,0. "Divisin con resultado float" x: = 5.0 / / 3.0. "Integer divide" x: = 5,0 \ \ 3,0. "Resto entero" x: = -5. "Menos unario" x: = 5 signo. "Signo numrico (1, -1 o 0)" x: = 5 negada. "Negar receptor" x: = 1,2 integerPart. "Parte entera del nmero (1,0)" x: = 1,2 fractionPart. "Parte fraccionaria del nmero (0,2)" x: = 5 recproco. "La funcin recproca" x: = 6 * 3.1. "Auto convertir a flote" x: = 5 al cuadrado. "La funcin square" x: = 25 sqrt. "Raz cuadrada" x: = 5 raisedTo: 2. "Poder de funcin" x: = 5 raisedToInteger: 2. "Poder funcionar con entera" x: = 5 exp. "Exponencial" x: = -5 abs. "Valor absoluto" x: = 3,99 redondeado. "Round" x: = 3,99 truncado. "Truncar" x: = 3,99 roundTo: 1. "Redondeo al nmero especificado decimales" x: = 3,99 truncateTo: 1. "Truncar a determinados lugares decimales" x: = 3,99 suelo. "Truncar" x: = 3,99 techo. "Redondear" x: = 5 factorial. "Factorial" x: = -5 quo: 3. "Divisin entera redondea hacia cero" x: = -5 rem: 3. "Resto entero redondeado hacia cero" x: = 28 mcd: 12. "Mximo comn denominador" x: = 28 mcm: 12. "Mnimo comn mltiplo" x: = 100 ln. "Logaritmo natural" x: = 100 log. "Logaritmo en base 10" x: log = 100: 10. "Logaritmo con base especificada" x: = 100 floorLog: 10. "Piso de la madera" x: = 180 degreesToRadians. "Convertir grados a radianes" x: = 3.14 radiansToDegrees. "Convertir radianes a grados" x: = 0,7 pecado. "Sine" x: = 0,7 cos. "Coseno" x: = 0,7 bronceado. "Tangente" x: = 0,7 arcSin. "Arcoseno" x: = 0,7 ARccOS. "Arcocoseno" x: = arctan 0,7. "Arcotangente" x: = 10 max: 20. "Obtener el mximo de dos nmeros"

x: x: x: x: x: x: x:

= = = = = = =

10 min: 20. "Get mnimo de dos nmeros" Float pi. "Pi" e Float. "Exp constante" infinito Float. "Infinito" Float nan. "-No un nmero" Random nuevo siguiente; usted mismo. x siguiente. "Corriente de nmeros aleatorios (0,0 a 1,0) 100 atRandom. "El nmero aleatorio rpido"

"************************************************* *********************** * La manipulacin bit a bit: * ************************************************** ********************** " | Bx | x: = 16rFF bitand: 16r0F. "Y los bits" x: = 16rF0 Bitor: 16r0F. "O bits" x: = 16rFF BITXOR: 16r0F. "Xor bits" x: = 16rFF bitInvert. "Invertir bits" x: = 16r0F BitShift: 4. "Giro a la izquierda" x: = 16rF0 BitShift: -4. "Desplazamiento a la derecha" "X: = 16r80 Bitat: 7." "Bit en la posicin (0 | 1) [! Squeak]" x: = 16r80 highbit. "La posicin de conjunto de bits ms alta" b: = 16rFF allMask: 16r0F. "Prueba de si todos los bits en la mscara establecido en receptor" b: = 16rFF anyMask: 16r0F. "Prueba si los bits establecidos en la mscara establecido en receptor" b: = 16rFF noMask: 16r0F. "Prueba de si todos los bits fijados en la mscara clara en receptor" "************************************************* *********************** * Conversin: * ************************************************** ********************** " | X | x: = 3,99 AsInteger. "Convertir a nmero entero (trunca en Squeak)" x: = 3,99 asFraction. "Convertir nmero a la fraccin" x: = 3 asFloat. "Convertir nmero a flote" x: = 65 asCharacter. "Convierte un entero a carcter" x: = $ A asciiValue. "Convertir caracteres a entero" x: = 3,99 printString. "Convertir objeto a cadena a travs de printOn:" x: = 3,99 storeString. "Convertir objeto a cadena a travs de storeOn:" x: = 15 Base: 16. "Convertir a la cadena en base dada" x: = 15 printStringBase: 16. x: = 15 storeStringBase: 16. "************************************************* *********************** * Bloques: * * - Bloques son objetos y puede ser asignado a una variable * * - Valor es la ltima expresin evaluada a menos que * rendimiento explcito * - Bloques pueden anidarse * * - [Argumentos especificaciones | | | localvars expresiones] * * - Squeak no es compatible actualmente con localvars en bloques * * - Mximo de tres argumentos permitidos * * - ^ Expresin termina bloque y mtodo (salidas todos los bloques anidados) * * - Bloques destinados para el almacenamiento a largo plazo no debe contener ^ * ************************************************** ********************** " | Xyz | x: = [y: = 1. z: = 2. ]. x valor. "Uso del bloque de simple" x: = [: argOne:. argTwo | argOne, 'y', argTwo]. "Establecer bloque con paso de argumentos" Mostrar Transcripcin: (valor x: 'Primero' valor: 'Segundo'); cr. "El uso de bloques con paso de argumentos" "X: = [| z | z:. = 1]. Localvars no disponible en bloques chirrido" "************************************************* *********************** * Las llamadas a mtodos: * * - Mtodos unarios son mensajes sin argumentos * * - * Mtodos binarios * - Mtodos de palabras clave son mensajes con selectores incluyendo dos puntos * ** * Categoras estndar / protocolos: * * - Initialize de liberacin lenta (por ejemplo, los mtodos de llamada nuevo) * * - Acceso (mtodos get / set) * * - Testing (pruebas booleanas - es) * * - La comparacin (pruebas booleanas con * parmetro * - Mostrar (gui mtodos relacionados) * * - Impresin (mtodos de impresin) * * - Actualizacin (recibir notificacin de los cambios) * * - Privada (mtodos privados a la clase) * * - Ejemplo de creacin (mtodos de clase para la creacin de instancia) * ************************************************** ********************** " | X | x: = 2 sqrt. "Mensaje unario" x: = 2 raisedTo: 10. "Keyword mensaje" x: = 194 * 9. "Binary mensaje" Mostrar Transcripcin: (194 * 9) printString; cr. "Combinacin (encadenamiento)" x: = 2 ejecutar: # sqrt. "Invocacin del mtodo indirecto" Transcripcin de "Cascading - enviar varios mensajes al receptor" mostrar: 'hola'; show: 'mundo'; cr. x: = 3 + 2; * 100. "Resultado = 300. Enva mensaje al mismo receptor (3)" "************************************************* ***********************

* Sentencias condicionales: * ************************************************** ********************** " | X | x> 10 ifTrue: [show Transcripcin: 'ifTrue'; cr]. "Si entonces" x> 10 ifFalse: [show Transcripcin: 'ifFalse'; cr]. "If else" x> 10 "si entonces si no" ifTrue: [show Transcripcin: 'ifTrue'; cr] ifFalse: [show Transcripcin: 'ifFalse'; cr]. x> 10 ", si bien luego" ifFalse: [show Transcripcin: 'ifFalse'; cr] ifTrue: [show Transcripcin: 'ifTrue'; cr]. Transcripcin show: (X> 10 ifTrue: ['ifTrue'] ifFalse: ['ifFalse']); cr. Transcripcin "anidado IF THEN ELSE" show: (X> 10 ifTrue: [x> 5 ifTrue: ['A'] ifFalse: ['B']] ifFalse: ['C']); cr. Cambiar: = Dictionary new. "Cambiar la funcionalidad" cambiar a: $ A put: [show Transcripcin: 'Case A'; cr]. cambiar a: $ B puso: [show Transcripcin: 'Case B'; cr]. cambiar a: $ C poner: [show Transcripcin: 'Case C'; cr]. resultado: = (interruptor en: $ B) de valor. "************************************************* *********************** * Instrucciones de iteracin: * ************************************************** ********************** " | Xy | x: = 4. y: = 1. [X> 0] whileTrue: [x: = x - 1. y: = y * 2]. "Bucle while true" [X> = 4] whileFalse: [x: = x + 1. y: = y * 2]. "While true" x timesRepeat: [y: = y * 2]. "A la hora repear bucle (i: = 1 hasta x)" 1 a: x do: [: a | y: = y * 2]. "Por ciclo" 1 a: x por: 2 do: [: a | y: = y / 2]. "Bucle for con incremento especificado" # (5 4 3) do: [: a | x: = x + a]. "Iterar sobre los elementos de la matriz" "************************************************* *********************** Carcter: * ************************************************** ********************** " | Xy | x: = $ A. "El personaje de asignacin" y: = x isLowercase. "Prueba si minscula" y: = x isUppercase. "Prueba si maysculas" y: = x IsLetter. "Prueba de si la carta" y: = x IsDigit. "Probar si el dgito" y: = x isAlphaNumeric. "Prueba si alfanumrico" y: = x isSeparator. "Prueba si seperator char" y: = x isVowel. "Prueba de si la vocal" y: = x digitValue. "Convertir en valor del dgito numrico" y: = x asLowercase. "Convertir a minsculas" y: = x asUppercase. "Convertir a maysculas" y: = x asciiValue. "Convertir a valor ASCII numrico" y: = x AsString. "Convertir a la cadena" b: = $ A <= $ B. "Comparacin" y: = $ A max: $ B. "************************************************* *********************** * Smbolo: * ************************************************** ********************** " | Bxy | x: = # Hola. "Smbolo de la asignacin" y: = 'Cadena', 'concatenacin'. "Smbolo de concatenacin (el resultado es cadena)" b: x = IsEmpty. "Test smbolo si est vaco" y: = x tamao. "Cadena de longitud" y: = x en: 2. "Char en el lugar" y: = x copyFrom: 2 a: 4. "Subcadena" y: = x indexOf: $ ifAbsent e: [0]. "Primera posicin de carcter en cadena" x do: [: a | mostrar Transcripcin: a printString; cr]. "Iterar sobre la cadena" b: = x conforme: [: a | (a> = $ a) y (a <= $ z)]. "Probar si todos los elementos cumplen condicin" y: = x elegir: [: a | a> $ a]. "Devolver todos los elementos que cumplen con condiciones" y: = x AsString. "Convertir a smbolo de cadena" y: = x AsText. "Convertir a smbolo de texto" y: = x asArray. "Convertir a smbolo de matriz" y: = x asOrderedCollection. "Convertir a smbolo coleccin ordenada" y: = x asSortedCollection. "Convertir a smbolo coleccin ordenada" y: = x Asbag. "Convertir a smbolo coleccin de bolsos" y: = x de activos. "Convertir a smbolo establecido coleccin" "************************************************* *********************** * Cadena: *

************************************************** ********************** " | Bxy | x: = 'Esto es una cadena ". "Cadena de asignacin" x: = 'Cadena', 'concatenacin'. "Concatenacin de cadenas" b: x = IsEmpty. "Prueba de si la cadena est vaca" y: = x tamao. "Cadena de longitud" y: = x en: 2. "Char en el lugar" y: = x copyFrom: 2 a: 4. "Subcadena" y: = x indexOf: $ a ifAbsent: [0]. "Primera posicin de carcter en cadena" x: = new String: 4. "Asignar objeto de cadena" x "ajustar elementos de cuerda" en: 1 pone: $ a; en: 2 put: $ b; en: 3 put: $ c; en: 4 put: $ e. x: String = con: $ a con: $ b con: $ c con: $ d. "Configurar hasta 4 elementos a la vez" x do: [: a | mostrar Transcripcin: a printString; cr]. "Iterar sobre la cadena" b: = x conforme: [: a | (a> = $ a) y (a <= $ z)]. "Probar si todos los elementos cumplen condicin" y: = x elegir: [: a | a> $ a]. "Devolver todos los elementos que cumplen con condiciones" y: = x asSymbol. "Convierte una cadena a smbolo" y: = x asArray. "Convierte una cadena a la matriz" x: = 'ABCD' asByteArray. "Convert string a array byte" y: = x asOrderedCollection. "Convertir a cadena coleccin ordenada" y: = x asSortedCollection. "Convertir a cadena coleccin ordenada" y: = x Asbag. "Convierte una cadena a la bolsa de recogida" y: = x de activos. "Convierte una cadena a establecer coleccin" y: = x barajan. "Barajar al azar cadena" "************************************************* *********************** * Array: * Se ha corregido coleccin de longitud ByteArray *: Array limitado a elementos byte (0-255) * WordArray *: Array limitado a elementos denominativos (0-2 ^ 32) * ************************************************** ********************** " | Bxy suma max | x: = # (4 3 2 1). "Matriz constante" x: = Array con: 5 con: 4, con: 3 con: 2. "Crear la matriz con hasta 4 elementos" x: = new Array: 4. "Asignar una matriz con el tamao especificado" x "elementos de ajuste de la matriz" en: 1 put: 5; en: 2 put: 4; en: 3 put: 3; en: 4 Ponga: 2. b: x = IsEmpty. "Prueba de si el array est vaco" y: = x tamao. "Array size" y: = x en: 4. "Obtener un elemento de matriz en el ndice" b: = X incluye: 3. "Probar si el elemento est en la matriz" y: = x copyFrom: 2 a: 4. "Subconjunto" y: = x indexOf: 3 ifAbsent: [0]. "Primera posicin del elemento dentro de la matriz" y: = x occurrencesOf: 3. "Nmero de veces objeto de coleccin" x do: [: a | mostrar Transcripcin: a printString; cr]. "Iterar sobre la matriz" b: x = conforme: [: a | (a> = 1) y (a <= 4)]. "Probar si todos los elementos cumplen condicin" y: = x elegir: [: a | a> 2]. "Volver coleccin de elementos que pasan a prueba" y: = x rechazar: [: a | a <2]. "Volver coleccin de elementos que no prueba" y: = x cobrar: [: a | a + a]. "Transformar cada elemento de la nueva coleccin" y: = x detectar: [: a | a> 3] ifNone: []. "Encontrar la posicin del primer elemento que pasa la prueba" suma: = 0. x do: [: a | suma: = suma + a]. suma. "Elementos de matriz suma" suma: = 0. 1 a: (tamao x) do: [: a | suma: = suma + (x en: a)]. "Elementos de matriz suma" suma: = x inyectar: 0 a: [: a: c | a + c]. "Elementos de matriz suma" max: = x inyectar: 0 a: [: a: c | (a> c) "encontrar el elemento mximo en la matriz" ifTrue: [a] ifFalse: [c]]. y: = x barajan. "Barajar al azar coleccin" y: = x asArray. "Convertir a la matriz" "Y:. = X asByteArray" "Nota: Esta instruccin no est disponible en Squeak" y: = x asWordArray. "Convertir a la matriz palabra" y: = x asOrderedCollection. "Convertir a coleccin ordenada" y: = x asSortedCollection. "Convertir a la coleccin ordenada" y: = x Asbag. "Convertir a la coleccin de bolsa" y: = x de activos. "Convertir a establecer coleccin" "************************************************* *********************** * OrderedCollection: acta como una matriz * ampliable ************************************************** ********************** " | Bxy suma max | x: = OrderedCollection con: 4 con: 3 con: 2 con: 1. "Crear coleccin con hasta 4 elementos" x: = OrderedCollection nuevo. "Asignar coleccin" x aadir: 3; add: 2; add: 1; add: 4; usted mismo. "Agregar elemento a la coleccin" y: = x addFirst: 5. "Aadir elemento al principio de la coleccin" y: = x removeFirst. "Quitar primer elemento de coleccin" y: = x addLast: 6. "Aadir elemento al final de la coleccin" y: = x removeLast. "Eliminar el ltimo elemento en la coleccin" y: = x addAll: # (7 8 9). "Aadir varios elementos a la coleccin" y: = x removeAll: # (7 8 9). "Eliminar varios elementos de la coleccin" x en: 2 put: 3. "Conjunto de elementos en el ndice" y: = x quitar: 5 ifAbsent: []. "Quitar elemento de la coleccin" b: x = IsEmpty. "Prueba si est vaco"

y: = x tamao. "Nmero de elementos" y: = x en: 2. "Recuperar elemento en el ndice" y: = x en primer lugar. "Recuperar el primer elemento en la coleccin" y: = x pasado. "Recuperar ltimo elemento de coleccin" b: x = Incluye: 5. "Probar si el elemento est en la coleccin" y: = x copyFrom: 2: 3. "Subcoleccin" y: = x indexOf: 3 ifAbsent: [0]. "Primera posicin del elemento dentro de la coleccin" y: = x occurrencesOf: 3. "Nmero de veces objeto de coleccin" x do: [: a | mostrar Transcripcin: a printString; cr]. "Iterar sobre la coleccin" b: x = conforme: [: a | (a> = 1) y (a <= 4)]. "Probar si todos los elementos cumplen condicin" y: = x elegir: [: a | a> 2]. "Volver coleccin de elementos que pasan a prueba" y: = x rechazar: [: a | a <2]. "Volver coleccin de elementos que no prueba" y: = x cobrar: [: a | a + a]. "Transformar cada elemento de la nueva coleccin" y: = x detectar: [: a | a> 3] ifNone: []. "Encontrar la posicin del primer elemento que pasa la prueba" suma: = 0. x do: [: a | suma: = suma + a]. suma. "Elementos de suma" suma: = 0. 1 a: (tamao x) do: [: a | suma: = suma + (x en: a)]. "Elementos de suma" suma: = x inyectar: 0 a: [: a: c | a + c]. "Elementos de suma" max: = x inyectar: 0 a: [: a: c | (a> c) "encontrar el elemento mximo en la coleccin" ifTrue: [a] ifFalse: [c]]. y: = x barajan. "Barajar al azar coleccin" y: = x asArray. "Convertir a la matriz" y: = x asOrderedCollection. "Convertir a coleccin ordenada" y: = x asSortedCollection. "Convertir a la coleccin ordenada" y: = x Asbag. "Convertir a la coleccin de bolsa" y: = x de activos. "Convertir a establecer coleccin" "************************************************* *********************** * SortedCollection: como OrderedCollection salvo orden de los elementos * * Determinado por los criterios de clasificacin * ************************************************** ********************** " | Bxy suma max | x: = SortedCollection con: 4 con: 3 con: 2 con: 1. "Crear coleccin con hasta 4 elementos" x: = SortedCollection nuevo. "Asignar coleccin" x: = sortBlock SortedCollection: [: a: c | a> c]. "Establecer los criterios de ordenacin" x aadir: 3; add: 2; add: 1; add: 4; usted mismo. "Agregar elemento a la coleccin" y: = x addFirst: 5. "Aadir elemento al principio de la coleccin" y: = x removeFirst. "Quitar primer elemento de coleccin" y: = x addLast: 6. "Aadir elemento al final de la coleccin" y: = x removeLast. "Eliminar el ltimo elemento en la coleccin" y: = x addAll: # (7 8 9). "Aadir varios elementos a la coleccin" y: = x removeAll: # (7 8 9). "Eliminar varios elementos de la coleccin" y: = x quitar: 5 ifAbsent: []. "Quitar elemento de la coleccin" b: x = IsEmpty. "Prueba si est vaco" y: = x tamao. "Nmero de elementos" y: = x en: 2. "Recuperar elemento en el ndice" y: = x en primer lugar. "Recuperar el primer elemento en la coleccin" y: = x pasado. "Recuperar ltimo elemento de coleccin" b: = X incluye: 4. "Probar si el elemento est en la coleccin" y: = x copyFrom: 2: 3. "Subcoleccin" y: = x indexOf: 3 ifAbsent: [0]. "Primera posicin del elemento dentro de la coleccin" y: = x occurrencesOf: 3. "Nmero de veces objeto de coleccin" x do: [: a | mostrar Transcripcin: a printString; cr]. "Iterar sobre la coleccin" b: x = conforme: [: a | (a> = 1) y (a <= 4)]. "Probar si todos los elementos cumplen condicin" y: = x elegir: [: a | a> 2]. "Volver coleccin de elementos que pasan a prueba" y: = x rechazar: [: a | a <2]. "Volver coleccin de elementos que no prueba" y: = x cobrar: [: a | a + a]. "Transformar cada elemento de la nueva coleccin" y: = x detectar: [: a | a> 3] ifNone: []. "Encontrar la posicin del primer elemento que pasa la prueba" suma: = 0. x do: [: a | suma: = suma + a]. suma. "Elementos de suma" suma: = 0. 1 a: (tamao x) do: [: a | suma: = suma + (x en: a)]. "Elementos de suma" suma: = x inyectar: 0 a: [: a: c | a + c]. "Elementos de suma" max: = x inyectar: 0 a: [: a: c | (a> c) "encontrar el elemento mximo en la coleccin" ifTrue: [a] ifFalse: [c]]. y: = x asArray. "Convertir a la matriz" y: = x asOrderedCollection. "Convertir a coleccin ordenada" y: = x asSortedCollection. "Convertir a la coleccin ordenada" y: = x Asbag. "Convertir a la coleccin de bolsa" y: = x de activos. "Convertir a establecer coleccin" "************************************************* *********************** Bolsa *: OrderedCollection excepto como elementos no son en * * * Orden particular ************************************************** ********************** " | Bxy suma max | x: = bolsa con: 4 con: 3 con: 2 con: 1. "Crear coleccin con hasta 4 elementos" x: = NUEVO. "Asignar coleccin" x aadir: 4; add: 3; add: 1; add: 2; usted mismo. "Agregar elemento a la coleccin" x aadir: 3 withOccurrences: 2. "Aadir varias copias a la coleccin" y: = x addAll: # (7 8 9). "Aadir varios elementos a la coleccin" y: = x removeAll: # (7 8 9). "Eliminar varios elementos de la coleccin" y: = x quitar: 4 ifAbsent: []. "Quitar elemento de la coleccin" b: x = IsEmpty. "Prueba si est vaco" y: = x tamao. "Nmero de elementos" b: = X incluye: 3. "Probar si el elemento est en la coleccin"

y: = x occurrencesOf: 3. "Nmero de veces objeto de coleccin" x do: [: a | mostrar Transcripcin: a printString; cr]. "Iterar sobre la coleccin" b: x = conforme: [: a | (a> = 1) y (a <= 4)]. "Probar si todos los elementos cumplen condicin" y: = x elegir: [: a | a> 2]. "Volver coleccin de elementos que pasan a prueba" y: = x rechazar: [: a | a <2]. "Volver coleccin de elementos que no prueba" y: = x cobrar: [: a | a + a]. "Transformar cada elemento de la nueva coleccin" y: = x detectar: [: a | a> 3] ifNone: []. "Encontrar la posicin del primer elemento que pasa la prueba" suma: = 0. x do: [: a | suma: = suma + a]. suma. "Elementos de suma" suma: = x inyectar: 0 a: [: a: c | a + c]. "Elementos de suma" max: = x inyectar: 0 a: [: a: c | (a> c) "encontrar el elemento mximo en la coleccin" ifTrue: [a] ifFalse: [c]]. y: = x asOrderedCollection. "Convertir a coleccin ordenada" y: = x asSortedCollection. "Convertir a la coleccin ordenada" y: = x Asbag. "Convertir a la coleccin de bolsa" y: = x de activos. "Convertir a establecer coleccin" "************************************************* *********************** * Ajuste: como bolsa excepto duplicados no autorizados * * IdentitySet: utiliza la prueba de identidad (== en lugar de =) * ************************************************** ********************** " | Bxy suma max | x: = Set con: 4 con: 3 con: 2 con: 1. "Crear coleccin con hasta 4 elementos" x: = NUEVO AJUSTE. "Asignar coleccin" x aadir: 4; add: 3; add: 1; add: 2; usted mismo. "Agregar elemento a la coleccin" y: = x addAll: # (7 8 9). "Aadir varios elementos a la coleccin" y: = x removeAll: # (7 8 9). "Eliminar varios elementos de la coleccin" y: = x quitar: 4 ifAbsent: []. "Quitar elemento de la coleccin" b: x = IsEmpty. "Prueba si est vaco" y: = x tamao. "Nmero de elementos" x incluye: 4. "Probar si el elemento est en la coleccin" x do: [: a | mostrar Transcripcin: a printString; cr]. "Iterar sobre la coleccin" b: x = conforme: [: a | (a> = 1) y (a <= 4)]. "Probar si todos los elementos cumplen condicin" y: = x elegir: [: a | a> 2]. "Volver coleccin de elementos que pasan a prueba" y: = x rechazar: [: a | a <2]. "Volver coleccin de elementos que no prueba" y: = x cobrar: [: a | a + a]. "Transformar cada elemento de la nueva coleccin" y: = x detectar: [: a | a> 3] ifNone: []. "Encontrar la posicin del primer elemento que pasa la prueba" suma: = 0. x do: [: a | suma: = suma + a]. suma. "Elementos de suma" suma: = x inyectar: 0 a: [: a: c | a + c]. "Elementos de suma" max: = x inyectar: 0 a: [: a: c | (a> c) "encontrar el elemento mximo en la coleccin" ifTrue: [a] ifFalse: [c]]. y: = x asArray. "Convertir a la matriz" y: = x asOrderedCollection. "Convertir a coleccin ordenada" y: = x asSortedCollection. "Convertir a la coleccin ordenada" y: = x Asbag. "Convertir a la coleccin de bolsa" y: = x de activos. "Convertir a establecer coleccin" "************************************************* *********************** * Intervalo: * ************************************************** ********************** " | Bxy suma max | x: = Intervalo de: 5 a 10. "Crear el objeto interval" x: = 5 a: 10. x: = Intervalo de: 5 a: 10 por: 2. "Crear el objeto con intervalo de incremento especificado" x: = 5 a: 10 por: 2. b: x = IsEmpty. "Prueba si est vaco" y: = x tamao. "Nmero de elementos" x incluye: 9. "Probar si el elemento est en la coleccin" x do: [: k | mostrar Transcripcin: k printString; cr]. "Iterar intervalo" b: x = conforme: [: a | (a> = 1) y (a <= 4)]. "Probar si todos los elementos cumplen condicin" y: = x elegir: [: a | a> 7]. "Volver coleccin de elementos que pasan a prueba" y: = x rechazar: [: a | a <2]. "Volver coleccin de elementos que no prueba" y: = x cobrar: [: a | a + a]. "Transformar cada elemento de la nueva coleccin" y: = x detectar: [: a | a> 3] ifNone: []. "Encontrar la posicin del primer elemento que pasa la prueba" suma: = 0. x do: [: a | suma: = suma + a]. suma. "Elementos de suma" suma: = 0. 1 a: (tamao x) do: [: a | suma: = suma + (x en: a)]. "Elementos de suma" suma: = x inyectar: 0 a: [: a: c | a + c]. "Elementos de suma" max: = x inyectar: 0 a: [: a: c | (a> c) "encontrar el elemento mximo en la coleccin" ifTrue: [a] ifFalse: [c]]. y: = x asArray. "Convertir a la matriz" y: = x asOrderedCollection. "Convertir a coleccin ordenada" y: = x asSortedCollection. "Convertir a la coleccin ordenada" y: = x Asbag. "Convertir a la coleccin de bolsa" y: = x de activos. "Convertir a establecer coleccin" "************************************************* *********************** * Asociaciones: * ************************************************** ********************** " | Xy | x: = # myVar-> 'hola'. y: = x llave. y: = valor x.

"************************************************* *********************** * Diccionario: * * IdentityDictionary: utiliza la prueba de identidad (== en lugar de =) * ************************************************** ********************** " | Bxy | x: = Dictionary new. "Asignar coleccin" x aadir: # a-> 4; add: # b-> 3; add: # c-> 1; add: # d-> 2; usted mismo. "Agregar elemento a la coleccin" x en: # e puesto: 3. "Conjunto de elementos en el ndice" b: x = IsEmpty. "Prueba si est vaco" y: = x tamao. "Nmero de elementos" y: = x en: # a ifAbsent: []. "Recuperar elemento en el ndice" y: = x keyAtValue: 3 ifAbsent: []. "Recuperar la clave para el valor dado con el bloque de error" y: = x removeKey: # ifAbsent e: []. "Quitar elemento de la coleccin" b: = X incluye: 3. "Probar si el elemento est en la coleccin de valores" b: = x includesKey: # a. "Prueba si el elemento est en la coleccin de llaves" y: = x occurrencesOf: 3. "Nmero de veces objeto de coleccin" y: x = teclas. "Conjunto de claves" y: = x valores. "Bolsa de valores" x do: [: a | mostrar Transcripcin: a printString; cr]. "Iterar sobre la coleccin de valores" x keysDo: [: a | mostrar Transcripcin: a printString; cr]. "Iterar sobre la coleccin de llaves" x associationsDo: [: a | mostrar Transcripcin: a printString; cr] ". iterar sobre las asociaciones" x keysAndValuesDo: [: aKey: aValue | Transcripcin "iterar sobre las claves y valores" show: aKey printString, el espacio; show: aValue printString; cr]. b: x = conforme: [: a | (a> = 1) y (a <= 4)]. "Probar si todos los elementos cumplen condicin" y: = x elegir: [: a | a> 2]. "Volver coleccin de elementos que pasan a prueba" y: = x rechazar: [: a | a <2]. "Volver coleccin de elementos que no prueba" y: = x cobrar: [: a | a + a]. "Transformar cada elemento de la nueva coleccin" y: = x detectar: [: a | a> 3] ifNone: []. "Encontrar la posicin del primer elemento que pasa la prueba" suma: = 0. x do: [: a | suma: = suma + a]. suma. "Elementos de suma" suma: = x inyectar: 0 a: [: a: c | a + c]. "Elementos de suma" max: = x inyectar: 0 a: [: a: c | (a> c) "encontrar el elemento mximo en la coleccin" ifTrue: [a] ifFalse: [c]]. y: = x asArray. "Convertir a la matriz" y: = x asOrderedCollection. "Convertir a coleccin ordenada" y: = x asSortedCollection. "Convertir a la coleccin ordenada" y: = x Asbag. "Convertir a la coleccin de bolsa" y: = x de activos. "Convertir a establecer coleccin" Smalltalk en: # CMRGlobal puso: entrada CMR. "Puesto mundial en Smalltalk diccionario" x: = Smalltalk en: # CMRGlobal. "Leer mundial de Smalltalk diccionario" Mostrar Transcripcin: (CMRGlobal printString). "Las entradas son accesibles directamente por su nombre" Smalltalk teclas do: [: k | "imprimir todas las clases" ((Smalltalk en: k) isKindOf: Class) ifFalse: [show Transcripcin: k printString; cr]]. Smalltalk en: # CMRDictionary poner: (Diccionario de nuevo). "Establecer diccionario definido por el usuario" CMRDictionary en: # MyVar1 puso: 'hello1'. "Poner entrada en el Diccionario" CMRDictionary add: # MiVar2-> 'hello2'. "Aadir entrada a un uso diccionario clave-> valor combo" CMRDictionary tamao. "Diccionario de tamao" Teclas CMRDictionary do: [: k | "imprimir claves en el Diccionario" Transcripcin del espectculo: k printString; cr]. Valores CMRDictionary do: [: k | "imprimir valores en el diccionario" Transcripcin del espectculo: k printString; cr]. CMRDictionary keysAndValuesDo: [: aKey: aValue | "imprimir claves y valores" Transcripcin show: aKey printString; el espacio; show: aValue printString; cr]. CMRDictionary associationsDo: [: aKeyValue | "otro iterador para la impresin de los valores clave" Mostrar Transcripcin: aKeyValue printString; cr]. Smalltalk removeKey: # ifAbsent CMRGlobal: []. "Eliminar la entrada de Smalltalk diccionario" Smalltalk removeKey: # ifAbsent CMRDictionary: []. "Eliminar diccionario de usuario de Smalltalk diccionario" "************************************************* *********************** * Corriente interna: * ************************************************** ********************** " | Ios bx | ios: = ReadStream en: 'Hola ledo corriente. ios: = ReadStream en: 'Hola ledo corriente' de: 1 a: 5. [(X: = ios nextLine) notNil] whileTrue: [show Transcripcin: x; cr]. posicin ios: 3. ios posicin. x: = ios siguiente. x: = ios vistazo. x: = Contenido de iOS. b: = ios atEnd. ios: ReadWriteStream = ON: 'Hola ledo corriente.

ios: ReadWriteStream = ON: 'Hola ledo corriente' de: 1 a: 5. ios: = ReadWriteStream con: 'Hola ledo corriente. ios: ReadWriteStream = con: 'Hola ledo corriente' de: 1 a: 10. posicin ios: 0. [(X: = ios nextLine) notNil] whileTrue: [show Transcripcin: x; cr]. posicin ios: 6. ios posicin. ios nextPutAll: 'Chris'. x: = ios siguiente. x: = ios vistazo. x: = Contenido de iOS. b: = ios atEnd. "************************************************* *********************** FileStream *: * ************************************************** ********************** " | Ios bx | ios: = FileStream newFileNamed: 'ios.txt'. ios nextPut: $ H; cr. ios nextPutAll: 'Hola archivo'; cr. 'Hola File' printOn: ios. 'Hola File' storeOn: ios. ios cerrarlo. ios: = FileStream oldFileNamed: 'ios.txt'. [(X: = ios nextLine) notNil] whileTrue: [show Transcripcin: x; cr]. posicin ios: 3. x: = posicin ios. x: = ios siguiente. x: = ios vistazo. b: = ios atEnd. ios cerrarlo. "************************************************* *********************** * Fecha: * ************************************************** ********************** " | Xy | x: = Fecha hoy. "Fecha de creacin para hoy" x: = dateAndTimeNow Fecha. "Fecha de creacin de la hora / fecha actual" x: = Fecha readFromString: '01 / 02/1999 '. "Fecha de creacin de la cadena con formato" x: = newDay Fecha: 12 mes: # julio del ao: 1999 "fecha de creacin de las piezas" x: = fromDays Fecha: 36000. "Fecha de creacin de los das transcurridos desde el 01/01/1901" y: = dadelasemana Fecha: # lunes. "Da de la semana como int (1-7)" y: = indexOfMonth Fecha: # enero. "El mes del ao como int (1-12)" y: = DaysInMonth Fecha: 2 forYear: 1996. "El da del mes como int (1-31)" y: = daysInYear Fecha: 1996. "Das en un ao (365 | 366)" y: = nameOfDay Fecha: 1 de "nombre de da de la semana (# lunes, ...)" y: = nameOfMonth Fecha: 1. "El mes name (# enero, ...)" y: = LeapYear Fecha: 1996. "1 si el ao bisiesto; 0 en caso de ao bisiesto" y: = x semana. "Da de la semana (# Lunes, ...)" y: = x anterior: # lunes. "Fecha para el da anterior de la semana" y: = x DAYOFMONTH. "El da del mes (1-31)" y: = x da. "Da del ao (1-366)" y: = x firstDayOfMonth. "Da del ao para el primer da del mes" y: = x Nombremes. "El mes del ao (# enero, ...)" y: = x monthIndex. "El mes del ao (1-12)" y: = x DaysInMonth. "Das en el mes (1-31)" y: = x ao. "El ao (19xx)" y: = x daysInYear. "Das en un ao (365 | 366)" y: = x daysLeftInYear. "Faltan das del ao (364 | 365)" y: = x asSeconds. "Segundos transcurridos desde el 01/01/1901" y: = x addDays: 10. "Agregar das a objeto de fecha" y: = x subtractDays: 10. "Restar das a objeto de fecha" y: = x subtractDate: (Fecha de hoy). "Sustraer fecha (resultado en das)" y: = x printFormat: # (2 1 3 $ / 1 1). "Imprimir fecha con formato" b: = (x <= Fecha de hoy). "Comparacin" "************************************************* *********************** * Hora: * ************************************************** ********************** " | Xy | x: = Tiempo ahora. "Crear tiempo desde el momento actual" x: = dateAndTimeNow Time. "Crear tiempo de hora / fecha" x: = Tiempo readFromString: '3: 47:26 pm. "Crear tiempo de cadena con formato" x: = FromSeconds Tiempo: (60 * 60 * 4). "Crear tiempo al tiempo transcurrido desde la medianoche" y: = millisecondClockValue Time. "Milisegundos desde la media noche" y: = TotalSeconds Tiempo. "Segundos totales desde 01/01/1901" y: = x segundos. "Segundo minuto despus (0-59)" y: = x minutos. "Minutos ltima hora (0-59)" y: = x horas. "Horas despus de la medianoche (0-23)" y: = x tiempoSuma: (Fecha actual). "Aadir tiempo de objetar el tiempo" y: = x subtractTime: (Fecha actual). "Resta tiempo a objeto de tiempo" y: = x asSeconds. "Convertir el tiempo en segundos" x: = millisecondsToRun Hora: ["centro de distribucin" 1 a: 1000 do: [: ndice | y: = 3.14 * index]].

b: = (x <= Tiempo ahora). "Comparacin" "************************************************* *********************** * Punto: * ************************************************** ********************** " | Xy | x: = 200 @ 100. "Obtener un nuevo punto" y: = x x. "Coordenada x" y: = x. "Coordenada" x: = 200 @ 100 negado. "Niega x e y" x: = (-200 @ -100) abs. "Valor absoluto de x e y" x: = (200,5 @ 100,5) redondeado. "Ronda de x e y" x: = (200,5 @ 100,5) truncado. "Truncate x e y" x: = 200 @ 100 + 100. "Aadir a escala tanto x como y" x: = 200 a 100 - 100. "Sustraer escala de xey" x: = 200 @ 100 * 2. "Multiplicar x e y por la escala" x: = 200 @ 100/2. "Dividir x e y por la escala" x: = 200 @ 100 / / 2. "Dividir x e y por la escala" x: = 200 @ 100 \ \ 3. "Resto de x e y por la escala" x: = 200 100 + 50 @ @ 25. "Sumar puntos" x: = 200 @ 100 a 50 a 25. "Resta puntos" x: = 200 @ 100 * 3 @ 4. "Multiplicar los puntos" x: = 200 @ 100 / / 3 @ 4. "Puntos de divisin" x: = 200 @ 100 max: 50 a 200. "Max x e y" x: = 200 @ 100 min: 50 a 200. "Min x e y" x: = 20 @ 5 dotProduct: 10 @ 2. "Suma de productos (x1 * x2 + y2 y1 *)" "************************************************* *********************** * Rectngulo: * ************************************************** ********************** " Rectngulo fromuser. "************************************************* *********************** Pen *: * ************************************************** ********************** " | MyPen | Mostrar restoreAfter: [ Mostrar fillWhite. myPen: = pluma nueva. "Conseguir pluma grfica" myPen squareNib: 1. Color myPen: (Color azul). "Establecer el color de pluma" myPen casa. "La posicin del lpiz en el centro de la pantalla" myPen arriba. "Hace incapaz de sacar punta" myPen abajo. "Permitir la pluma para dibujar" myPen norte. "Los puntos de direccin hacia arriba" myPen vez: -180. "Aadir grados especificados para la direccin" myPen direccin. "Get ngulo actual de la pluma" myPen ir: 50. "Avanzar nmero de pluma de pxeles especificado" myPen ubicacin. "Obtener la posicin del lpiz" myPen goto: 200 @ 200. "Llegada al punto especificado" myPen lugar: 250 @ 250. "Llegada al punto especificado sin dibujo" impresin myPen: 'Hola Mundo' withFont: (TextStyle fontAt defecto: 1). Muestra medida. "Conseguir ancho de la pantalla @ altura" Mostrar anchura. "Conseguir ancho de la pantalla" Muestra altura. "Get altura de la pantalla" ]. "************************************************* *********************** * Mensaje dinmica del llamante / Compilacin: * ************************************************** ********************** " | Mensaje receptor argumento resultado Palabra clave1 Palabra clave2 argumento1 argument2 | "Mensaje unario" receptor: = 5. mensaje: = 'factorial' asSymbol. resultado: = receptor realice: mensaje. resultado: = Compilador evaluar: ((receptor storeString), '', mensaje). resultado: = (Mensaje nuevo setSelector: argumentos Mensaje: # ()) SentTo: receptor. "Binary mensaje" receptor: = 1. mensaje: = '+' asSymbol. argumento: = 2. resultado: = receptor realizar: withArguments mensaje: (Array con: argumento). resultado: = Compilador evaluar: ((receptor storeString), '', mensaje, '', (storeString argumento)). resultado: = (Mensaje nuevo setSelector: los argumentos del mensaje: (Array con: argumento)) SentTo: receptor. "Mensajes clave" receptor: = 12. keyword1: = 'entre:' asSymbol. Palabra clave2: = 'y:' asSymbol. argumento1: = 10. argument2: = 20. resultado: = receptor cumplir: (keyword1, Palabra clave2) asSymbol

withArguments: (Array con: argumento1 con: argument2). resultado: = Compilador evaluar: ((StoreString receptor), '', keyword1, (argumento1 storeString), '', Palabra clave2, (argument2 storeString)). resultado: = (Mensaje nuevo setSelector: (keyword1, Palabra clave2) asSymbol argumentos: (Array con: argumento1 con: argument2)) SentTo: receptor. "************************************************* *********************** * Clase / meta-clase: * ************************************************** ********************** " | Bx | x: name = String. "Nombre de clase" x: = categora String. "Organizacin de la categora" x: = comentario String. "Clase de comentario" x: = kindOfSubclass String. "Subclase tipo - subclase: variableSubclass, etc" x: = definicin String. "Definicin de la clase" x: = instVarNames String. "Inmediatas nombres de instancia de variable" x: = allInstVarNames String. "Acumulados nombres de instancia de variable" x: = classVarNames String. "Inmediatas nombres de clase de variable" x: = allClassVarNames String. "Los nombres de variable acumulada de la clase" x: = sharedPools String. "Diccionarios inmediatos utilizados como piscinas compartidas" x: = allSharedPools String. "Diccionarios acumulados utilizado como piscinas compartidas" x: = selectores String. "Selectores de mensaje para la clase" x: = String sourceCodeAt: # tamao. "Cdigo fuente para el mtodo especificado" x: = allinstances String. "Coleccin de todas las instancias de la clase" x: = String superclase. "Superclase inmediata" x: = allSuperclasses String. "Superclases acumulados" x: = withAllSuperclasses String. "Receptor de clases y superclases acumuladas" x: = subclases de cadena. "Inmediato subclases" x: = allSubclasses String. "Subclases acumulados" x: = withAllSubclasses String. "Receptor de clases y subclases acumuladas" b: = instSize String. "El nmero de variables de instancia con nombre" b: = String IsFixed. "True si no hay variables de instancia indexadas" b: = isVariable String. "True si ha indexado variables de instancia" b: = isPointers String. "True si vars ndice de instancia contiene los objetos" b: = isBits String. "True si vars ndice de instancia contiene bytes / palabras" b: = isBytes String. "True si vars ndice de instancia contiene bytes" b: = String isWords. cierto si vars ndice de instancia contienen palabras " Tamao del objeto withAllSubclasses. "Obtener el nmero total de participaciones de clase" "************************************************* *********************** * Debuging: * ************************************************** ********************** " | Abx | ax ti mismo. "Retornos receptor" Cadena de navegar. "Navegar clase especificada" x inspeccionar. "Objeto ventana abierta inspector" x confirmar: "Es esto correcto? '. alto x. "Punto de ruptura para abrir la ventana del depurador" x detener: "mensaje Halt '. x notificar: 'Notificar texto ". x error: 'Cadena de error ". "Abrir ventana de error con el ttulo" x doesNotUnderstand: # cmrMessage. "Mensaje de bandera no se maneja" x shouldNotImplement. "Mensaje de bandera no debe ser implementada" x subclassResponsibility. "Bandera mensaje como abstracto" x errorImproperStore. "Marcar un almacn impropio en objeto indexable" x errorNonIntegerIndex. "Enteros bandera slo se debe utilizar como ndice" x errorSubscriptBounds. "Bandera subndice fuera de los lmites" x primitiveFailed. "Primitivo sistema fall" a: = 'A1'. b: = 'B2'. convertirse en un: b. "Conectar dos objetos" Transcripcin espectculo: a, b, cr. "************************************************* *********************** * Misc. * ************************************************** ********************** " | X | "Smalltalk condenseChanges". "Comprimir el archivo de cambio" x: = solicitud FillInTheBlank: 'Preguntar Me'. "Preguntar al usuario para la entrada" Utilidades openCommandKeyHelp